renkli hücre içeriğini sayma

[HANEDANNN]

 

[HANEDANNN]

sekilde 6 tane a var ben toplam kısmana kaç tane a oldugunu yazmak istiyorum fakat sadece beyaz hücreli olanları almak istiyorum gri fondakiler sayıma katılmayacak,toplam 3 gösterecek ,yardımcı olursanız sevinirim

 

[377harun377]

1 2 3 4 5 6 7 8 9 toplam
a a a a a a a a 4

2 3 4 ve 7 numaralı hücreleri sarıya boyadım


kodlar


Sub sasa()
For i = 1 To 9
If Sayfa1.Cells(2, i) = "a" And Sayfa1.Cells(2, i).Interior.Color = vbYellow Then
s = s + 1
End If
Next
Sayfa1.Cells(2, 10) = s

End Sub



siz kendinize göre biçimlendirirsiniz

 

[377harun377]

1 2 3 4 5 6 7 8 9 toplam
0 a a a a a a a a 4




Sub sasa()
For i = 1 To 9
If Sayfa1.Cells(2, i) = "a" And Sayfa1.Cells(2, i).Interior.Color = vbYellow Then
s = s + 1
End If
Next
Sayfa1.Cells(2, 10) = s
End Sub



siz kendinize göre biçimlendirirsiniz

 

[HANEDANNN]

olmadı kardeşim bu