RENKSAY başka formüllerle kullanılııyor mu?

[euphrates55]

merhaba, =MAK(EĞER(GT!CF3:CF1592=V3;GT!CI3:CI1592)) formülü sonuç verirken aşağıdaki formül sonuç vermiyor.
=RenkSayN(EĞER(GT!CF3:CF1592=V3;GT!G3:G1592);AD11)

module ekleme kod olduğu için bu şekilde kullanmak mümkün değil mi diye sormak istedim. malum kod da aşağıdaki gibi.

Function RenkTopla(Dizi As Range, Renk_Tipi)
Toplam = 0
Application.Volatile
For Each Hucre In Dizi
    If Hucre.Font.ColorIndex = Renk_Tipi.Font.ColorIndex And _
        Hucre.Interior.Color = Renk_Tipi.Interior.Color And IsNumeric(Hucre) = True 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 + Hucre
    End If
Next
RenkTopla = Toplam
End Function
Function RenkSayN(Dizi As Range, Renk_Tipi)
Toplam = 0
Application.Volatile
For Each Hucre In Dizi
    If Hucre.Font.ColorIndex = Renk_Tipi.Font.ColorIndex And _
        Hucre.Interior.Color = Renk_Tipi.Interior.Color And IsNumeric(Hucre) = True 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
RenkSayN = Toplam
End Function
Function RenkSayA(Dizi As Range, Renk_Tipi)
Toplam = 0
Application.Volatile
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