filtre edilmiş hücrede dolgu rengine göre say

[snx111]

Function RenkSay(Dizi As Range)
For Each hucre In Dizi
If hucre.Interior.ColorIndex <> xlNone Then
toplam = toplam + 1
End If
Next
RenkSay = toplam

End Function
bu fonksiyonla dolgu rengi ne olursa olsun hücrelerin toplam sayısını alıyorum ama filtre edilmiş listedeki dolgulu hücrelerin sayısını saymıyor ? alttoplam ile bu fonksiyonu birleştirebilecek biri varmı ?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Function RenkSay(Dizi As Range)
    Dim hucre As Range, toplam As Long

    Application.Volatile True

    For Each hucre In Dizi
        If ActiveSheet.AutoFilterMode = True Then
            If hucre.Rows.Hidden = False Then
                If hucre.Interior.ColorIndex <> xlNone Then
                    toplam = toplam + 1
                End If
            End If
        Else
            If hucre.Interior.ColorIndex <> xlNone Then
                toplam = toplam + 1
            End If
        End If
    Next

    RenkSay = toplam
End Function

 

[snx111]

kod çalışıyor teşekkür ederim ;
ama filtrede birşey aranmamışsa kutucuklar defaultsa 0 göstersin yada disable olsun diyebilirmiyiz Korhan bey ?

 

[Korhan Ayhan]

Selamlar,

Örnek dosya ekleyerek yapmak istediğiniz işlemi açıklarsanız yardımcı olmaya çalışırız.