yazı rengini makro ile değiştirme

[tooba]

arkadaşlar, bir hücrenin içerisindeki yazının ilk harfinin rengini koşullu olarak kırmızı yapmak istiyorum. ilginç bir istek farkındayım . şimdiden teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Hangi koşula göre hangi hücreyi yada hücrelerin ilk harfinin rengini değiştirmek istiyorsunuz ?

 

[Kemal Demir]

Sub ilkharf_A_ise()
'A kolonu baz alınmıştır A2 den en son dolu hucreye kadar ilk harf  A ise A harfini kırmızı yapar.
For x = 2 To [a65536].End(3).Row
If Left(Cells(x, 1), 1) = "A" Then

Cells(x, 1).Characters(Start:=1, Length:=1).Font.ColorIndex = 3 '3 Kırmızı Rengini verir
  
End If
Next
End Sub

Bu Arada Sn.Cost Control'a hakısızlık Etmemişimdir umarım.Doğrusu Sorunuz Tam açık olsa daha sağlıklı olurdu

 

[Korhan Ayhan]

Selamlar,

Sn. kemaldemir aksine verilen cevaplar beni sevindiriyor. Lütfen bu şekilde düşünmeyin. Ben soruları cevaplarken genelde soruyu soran arkadaşlarımızın bilgilerine uygun cevaplar vermeye özen gösteriyorum. Bu yüzden de özellikle hücre bilgilerini ve kriterleri belirtmelerini rica ediyorum. Bu bilgiler ne kadar net olursa verilen cevaplarda o kadar açık ve net olacaktır.