DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Function Dolu(ByVal Alan As Range) As Integer
Dim a As Integer
Application.Volatile
For Each i In Alan
If i <> "" Then
a = a + 1
End If
Next i
Dolu = a
a = Empty
End Function
=TOPLA.ÇARPIM((B:B<>"")*(B:B>0))
=BAĞ_DEĞ_DOLU_SAY(B:B)-EĞERSAY(B:B;">0")
=BAĞ_DEĞ_DOLU_SAY(B:B)-EĞERSAY(B:B;0)
Merhaba,
Evet gözümden kaçan bir nokta varmış. İkinci formül aşağıdaki gibi olmalıdır. Ayrıca bu formül ilk formüle göre biraz daha hızlı sonuç üretir.
Kod:=BAĞ_DEĞ_DOLU_SAY(B:B)-EĞERSAY(B:B;0)
Korhan Hocam bir aralıktaki dolu hücreleri saymak için aşağıdaki formülü kullanıyordum; yalnız bu aralıktaki hücrelerde formül ile sonuç "" gelenler de sayılıyor, formülü çok uzatıp karıştırmadan bu durumu nasıl çözebiliriz?Merhaba,
Alternatif olarak aşağıdaki fonksiyonları deneyebilirsiniz.
Kod:=TOPLA.ÇARPIM((B:B<>"")*(B:B>0))
Kod:=BAĞ_DEĞ_DOLU_SAY(B:B)-EĞERSAY(B:B;">0")
=EĞERSAY(J1:J100;"<>")