Büyük harfle başlayan hücreleri bulma ???

[MİLENYUMTUNCAY]

Arkadaşlar merhaba. D sütununda yer alan ve büyük harfle başlayan tüm hücreleri seçip pembe renkli yapmak istiyorum. Çalışma dökümanım çok uzun olduğu için tek tek bulup seçmek baya bi zaman alıyor. Bu hücreler ulaşabilmem için önerebileceğiniz bir kod var mı? Ya da nasıl yapabileceğim konusunda bir fikri olan varsa ve benimle paylaşırsa çok sevinirim. Saygılar...

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub renklendir()
For a = 1 To [d65536].End(3).Row
If UCase(Left(Cells(a, "d"), 1)) = Left(Cells(a, "d"), 1) Then Cells(a, "d").Interior.ColorIndex = 38
Next
End Sub

 

[Ali]

D sütununu komple seçili hale getirdikten sonra Biçim-Koşullu Biçimlendirme ve Formül kısmını seçin ve
=EĞER(EHATALIYSA(BUL(YAZIM.DÜZENİ(D1);D1;1));YANLIŞ;DOĞRU) formülünü yazıp biçimden istediğiniz biçim rengini seçip tamam deyip çıkın.

Büyük harf ile başlayan hücreleriniz renklenecektir

 

[MİLENYUMTUNCAY]

Sayın levetm verdiğiniz kod için teşekkür ederim. Büyük harfle başlayan hücreleri renklendirdi ancak bununla beraber boş olan hücreleri ve * ile başlayan hücreleride renklendirdi. Yine de teşekkür ederim emeğiniz için...

 

[MİLENYUMTUNCAY]

Sayın fructose yazmış olduğunuz formülü denedim ancak şöyle bir ileti ile karşılaşıyorum. "Koşullu biçimlendirme ölçütü için birleşimler, arakesitler, ya da dizi sabitleri kullanmayabilirsiniz" Yani olmadı. Ben mi yanlış bişeyler yaptım acaba?

 

[Levent Menteşoğlu]

Birde aşağıdaki kodu deneyin.

Sub renklendir()
For a = 1 To [d65536].End(3).Row
If Left(Cells(a, "d"), 1) Like "[A-Z]" Then Cells(a, "d").Interior.ColorIndex = 38
Next
End Sub

 

[Ali]

Sn Tuncay Forumun yeni olması nedeni ile bazı karekterler ayrı gözüküyor formüldeki YANLI Ş olmayacak I ile Ş arası açık olmayacak YANLIŞ şeklinde olacak. Böyle bir deneyin

 

[MİLENYUMTUNCAY]

Teşekkür ederim sayın levetm bu kez oldu. Emeğiniz için sağolun...

 

[MİLENYUMTUNCAY]

Sn Tuncay Forumun yeni olması nedeni ile bazı karekterler ayrı gözüküyor formüldeki YANLI Ş olmayacak I ile Ş arası açık olmayacak YANLIŞ şeklinde olacak. Böyle bir deneyin

Size de teşekkür ederim sayın fructose. Sn leventm'in vermiş olduğu kod işe yaradı. Sizin verdiğiniz de büyük ihtimalle işime yarar. Aradaki boşluğu farketmemişim. Teşekkürler...