Görünen hücrelerdeki 1 sayısını saymak

[ataman55]

Örnek dosya ektedir. Teşekkür ederim.

 

[Ömer]

Örnek dosya ektedir. Teşekkür ederim.

Merhaba,

U sütunundaki verileriniz 0 yada 1 olduğu için,

=ALTTOPLAM(9;U3:U152)

Biçiminde kullanabilirsiniz..

.

 

[Orion1]

Alternatif kod ile :

Sub gorunen_say()
Dim hcr As Range, say As Long
For Each hcr In Range("U3:U" & Cells(65536, "U").End(xlUp).Row)
    If hcr.EntireRow.Hidden = False And hcr.Value = 1 Then say = say + 1
Next
MsgBox say
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki formülü denermisiniz.

=TOPLA.ÇARPIM(ALTTOPLAM(3;KAYDIR(U1:U150;SATIR(U1:U150)-SATIR(U1);;1));--(U1:U150=1))

 

[ataman55]

arkadaşlar ilginize çok teşekkür ederim.