renk toplama (gizli hücreler hariç)

[euphrates55]

renklere göre toplama yaparken gizlenmiş hücrelerin toplama girmemesi için nasıl bir formül yazılabilir.

 

[Necdet]

Merhaba,

Dosyanızda kullandığnız KTF yok.

 

[euphrates55]

ktf nedir?

 

[euphrates55]

normal de toplamı veriyor. vba da yazılı kodum var ama dediğim gibi gizli hücre olduğunda toplamasın istiyorum.

 

[Necdet]

normal de toplamı veriyor. vba da yazılı kodum var ama dediğim gibi gizli hücre olduğunda toplamasın istiyorum.

Kodunuzu görmeden ne yapılabilir ki?

Aşağıdaki kodları inceleyiniz ve kendinize uyarlayınız.

 Function RenkTopla(Dizi As Range, Renk_Tipi As Range)
    Dim Toplam  As Double
    Dim Hucre   As Range
    Toplam = 0
    Application.Volatile
    For Each Hucre In Dizi
       [B][COLOR=red] If Hucre[/COLOR][COLOR=red].EntireRow.Hidden = False Then[/COLOR][/B]
            If Hucre.Interior.Color = Renk_Tipi.Interior.Color Then
                Toplam = Toplam + Hucre.Value
            End If
        [B][COLOR=red]End If[/COLOR][/B]
    Next Hucre
    RenkTopla = Toplam
End Function

 

[euphrates55]

süper. sorun yok gibi gözüküyor. teşekkürler.

 

[Necdet]

süper. sorun yok gibi gözüküyor. teşekkürler.

Güle güle kullanınız.