dolgu rengine göre filtre

[krmkrkmz]

Resimdeki gibi bir tablo oluşturdum. Bu tabloda toplam kısmına o satırda en az 1 tane boyalı hücre varsa o satırdaki toplam kısmına 1 yazmasını istiyorum. bunu nasıl formülize edebilirim. https://www.hizliresim.com/jzhqco4 dosya https://we.tl/t-9qXQOWYRl9

 

[Necdet]

Merhaba,
Resim değil örnek dosya paylaşınız ki çözüme hızlı ulaşabilesiniz.
Size yardımcı olacak insan için bir de veri hazırlama zahmetinden kurtarınız.

 

[krmkrkmz]

Merhaba,
Resim değil örnek dosya paylaşınız ki çözüme hızlı ulaşabilesiniz.
Size yardımcı olacak insan için bir de veri hazırlama zahmetinden kurtarınız.

WeTransfer - Send Large Files & Share Photos Online - Up to 2GB Free

WeTransfer is the simplest way to send your files around the world

we.tl

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki KTF'yi kullanabilirsiniz.

=EĞER(COLOR_CELL_COUNT(A2:G2)>0;1;"")

Option Explicit

Function COLOR_CELL_COUNT(My_Area As Range)
    Dim Rng As Range
   
    Application.Volatile True
   
    For Each Rng In My_Area
        If Rng.Interior.ColorIndex <> xlNone Then
            COLOR_CELL_COUNT = COLOR_CELL_COUNT + 1
        End If
    Next
End Function