Secilen ve sıfırdan buyuk hucrelerin toplamı

[cevrens]

Ustadlar Merhaba,
Ekte acıklamasını yaptıgım hucrelerin toplam adedini bulmak icin bir formule ihtiyacım var,simdiden tesekkur ediyorum.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki fonksiyonu boş bir modüle uygulayın.

Function KSAY(Aralik As Range)
    Dim Veri As Range
    For Each Veri In Aralik
        If Veri.Columns.Width <> 0 Then
            If Veri.Value > 0 Then
                KSAY = KSAY + 1
            End If
        End If
    Next
End Function

Daha sonra excel sayfasına dönün ve sonucu görmek istediğiniz hücreye aşağıdaki formülü uygulayın.

=KSAY(M2:DS2)

 

[cevrens]

Korhan Bey, ellerinize saglık tam rica ettigim gibi olmus. Tesekkurler..