kırmızı harflerle yazılan yazıları toplamak (saymak) (ÇÖZÜLDÜ)

[4yaKuza]

merhabalar arkadaşlar
yukarıdan aşağıya hücrelerde örnek;
mehmet
ali
mehmet
veli

yazdğını farzedelim buradaki mehmet olanın yazı rengi kırmızı diğerleri siyah (hücre değil yazı rengi)
ben bunları saymak istiyoum örnek 2 adet diyecek (2 tane kırmzılı mehmet olduğu için
@asri hocam şöyle bir kod verdin ama kurdum tıkladığımda 0 adet diyor
hangi hücreleri yapacağımı çözemedim macrodan anlamıyorum

İki yöntem ile bulunabilir.

Sub siyah_olmayanlar()
sonsatir = Cells(Rows.Count, "A").End(3).Row
say = 0
For i = 1 To sonsatir
If Cells(i, 1).Font.Color <> 0 Then
say = say + 1
End If
Next i
MsgBox (say & " adet siyah olmayan yazı var")
End Sub

Sub kirmizi_olanlar()
sonsatir = Cells(Rows.Count, "A").End(3).Row
say = 0
For i = 1 To sonsatir
If Cells(i, 1).Font.Color = 255 Then
say = say + 1
End If
Next i
MsgBox (say & " adet kırmızılı yazı var")
End Sub


Burada alttaki yöntemi seçtim ama 0 adet diyor hücre stun aralığını belirlemek için nereyi değiştirmem gerek ?

 

[Ömer BARAN]

Merhaba.

Sayın asri'nin verdiği kod'da sorun yok ki.
Belirttiğiniz kod'lardan alttaki ( Sub kirmizi_olanlar ) yazı tipi rengi kırmızı olanları sayar.

Belli bir hücre aralığındakileri (örneğin A1:B10 aralığı olsun) saymak istiyorsanız aşağıdaki gibi olabilir.
.

[B]Sub kirmizilar()[/B]
say = 0
For Each hcr In Range("[B][COLOR="blue"]A1:B10[/COLOR][/B]")
    If hcr.Value <> "" And hcr.Font.Color = 255 Then say = say + 1
Next
    MsgBox (say & " adet kırmızı var")
[B]End Sub[/B]

 

[4yaKuza]

Teşekkürler şimdi oldu çok sağolun.