veri saydırma yardım

[cartok]

arkadaşlar forumunuza yeni üye oldum
oldukça öğretici bilgiler var
benim aşağıdaki dosya ile ilgili olarak yardıma ihtiyacım var
tablodaki verilerde kaç tane adana, ankara ...vb olduğunu saydırmak istiyorum
ancak bulduğumuz bu sayıdan renkli olanları çıkarmak istiyorum.
veya sadece renksiz hücrelerde kaç tane adana, ankara... vb. olduğunu saydırmak istiyorum. Sanırım anlatabildim. Teşekkür ederim.

 

[Necdet]

Merhaba,

Kullanıcı tanımlı fonksiyonla saydırmak olası.

Public Function RenkSayA(Dizi As Range, Renk_Tipi)
Toplam = 0
For Each Hucre In Dizi
    If Hucre.Font.ColorIndex = Renk_Tipi.Font.ColorIndex And _
        Hucre.Interior.Color = Renk_Tipi.Interior.Color And _
        Hucre.Font.Bold = Renk_Tipi.Font.Bold And _
        Hucre.Font.Italic = Renk_Tipi.Font.Italic And _
        Hucre.Font.Underline = Renk_Tipi.Font.Underline And _
        Hucre.Font.Size = Renk_Tipi.Font.Size And _
        Hucre.Font.Name = Renk_Tipi.Font.Name Then
        Toplam = Toplam + 1
    End If
Next
RenkSayA = Toplam
End Function

 

[cartok]

çok teşekkür ederim
kısmen oldu ama bu kod sadece o renkdeki hücrelerin sayısını buluyor
bu sayının içinde kaç tane adana kaç tane mersin onları nasıl ayırabilirim?
örneğin, sadece beyaz hücrelerin sayısı değil de beyaz hücrelerdeki adanaların sayısı.
excel bilgim zayıfsa kusura bakmayın, tam anlamamış da olabilirim