Dolu Hücreleri Say

[Carpintero]

Merhabalar;
Bu kod sadece "elma" ları saysın istiyorum.
"elma" yı nereye yazmalıyım acaba ?

Sub dolulari_say()
For i = 1 To 100
Cells(i, "E").Value = WorksheetFunction.CountA(Range(Cells(i, "A"), Cells(i, "D")))
Next i
End Sub

 

[GursoyC]

Bu şekilde değiştirin.

For i = 1 To 100
Cells(i, "E").Value = WorksheetFunction.CountIf(Range(Cells(i, "A"), Cells(i, "D")), "Elma")
Next i

 

[Carpintero]

çok teşekkür ederim
@unlimitted
eline sağlık

 

[GursoyC]

Rica ederim.
iyi çalışmalar.