Soru Dolu Hücre Saydırmak.

[ta2uk]

Arkadaşlar Selamlar;

Elimde bulunan bir excel tablosunda D sütunu 2 çeşit veriden oluşuyor. (akıllılar ve deliler diyelim) Sayısız satır veri içerebilecek D sütununda filtreleme yaptığım zaman, D sütununda dolu olan hücreleri saydırmak istiyorum. (Örneğin Akıllılar şeklinde filtreleme yaptığım zaman 50, deliler şeklinde filtreleme yaptığım zaman 55, filtreleme yapmadığım zaman 105 yazacak)

Teşekkürler şimdiden…

 

[byfika]

Merhabalar,
Önce bir modul açıp içine alttaki kodu yazın, sonra E1 hücresine =sayılabilir(D2105) yazın deneyin. D sütununda filtre yaptığınızda filtre olanı sayar. Filtre yapmazsanız hepsini sayar. ( verileriniz D2 ile D105 arası düşünüldü.).

Function sayılabilir(Rg)
Dim xCount As Long
Dim xCell As Range
Application.Volatile
For Each xCell In Rg
If (Not xCell.EntireRow.Hidden) And (Not xCell.EntireColumn.Hidden) Then
xCount = xCount + 1
End If
Next
sayılabilir = xCount
End Function

Filtre yapmadan saydırma: E1 e sayılacal olanı veya boş bırakılarak sayma işlemini yapar...
=EĞER(E1<>"";EĞERSAY(D2105;E1);BAĞ_DEĞ_DOLU_SAY(D2105))