Renkli Hücreleri Saymak

[kemalist]

Arkadaşlar Merhaba;renkli olan hücreleri saydırmak istiyorum.
Örnek Dosya Ektedir.
İlginiz için şimdiden teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz.

Sub Kod()
Dim say As Range, hcr As Range, a As Integer
For Each say In Range("H3,J3,L3,N3")
    For Each hcr In Range("H7:H24")
        If hcr.Interior.Color = say.Interior.Color Then a = a + 1
    Next
    say.Value = a
    a = 0
Next
End Sub

 

[kemalist]

sayın mucit77 dolu olan renkli hücreleri nasıl saydırabiliriz?

 

[ÖmerBey]

İlgili kısma şu şekilde ilave yapıp deneyiniz.

If [COLOR="Red"]hcr.Value <> "" And [/COLOR]hcr.Interior.Color = say.Interior.Color Then a = a + 1

 

[kemalist]

Teşekkür ederim sayın Mucit77 tam istediğim gibi oldu.