Sutun toplamı sıfırdan büyük olanları say

[merakli_72]

Selam,
Arkadaşlar ekteki gibi bir tabloda ADET sütunu toplamı sıfırdan büyük kaç kişi var, excelin yerleşik fonksiyonları ile buldurabilimiyiz

 

[Korhan Ayhan]

Merhaba,

B23 hücresine aşağıdaki formülü uygulayıp deneyiniz.

=EĞERSAY(B3:B22;">0")

 

[hamitcan]

Böyle deneyin.

=EĞERSAY(B3:B22;">0")

 

[merakli_72]

Selam,
sanırım yanlış anlaşılma var
Adet sütunundaki dolu hücrelerin sayısını istemiyorum
Adet sütunu TOPLAMI>0 (yada adet sütununda en az bir veri olan) KİŞİLERİN sayısını istiyorum
21 sonucu çıkması lazım

 

[Erdal]

Merhabalar
Eki inceler misiniz?

 

[merakli_72]

Erdal bey mrb,
tek formül ile mümkünmüdür, böyle bir çözüm arıyorum
Teşekkürler

 

[Erdal]

Erdal bey mrb,
tek formül ile mümkünmüdür, böyle bir çözüm arıyorum
Teşekkürler

Merhabalar
5 nolu mesajımdaki dosyayı güncelledim. Biraz pratiklikten uzak ve acemi işi oldu ama aklıma başka birşey gelmedi.

 

[merakli_72]

Erdal bey ilginiz için teşekkür ederim,
ben daha prof. bir çözümü varmı diye merak etmiştim
bu tür çözümleri bende denedim

 

[bzace]

Merhabalar,
Sayın Merakli_72, Açıklamalarınızdan anladığım;

• A sütunu sayılar,
• B sütunu sayılar,
• C sütunu toplam, (C sütununun formül ile bir alakası yok)

=TOPLA(0+(((A1:A5)+(B1:B5))>0))
[COLOR="Blue"]Formül dizi formülüdür. CTRL + SHIFT + ENTER ile tamamlayınız.[/COLOR]

 

[Korhan Ayhan]

Merhaba,

Bende kullanıcı tanımlı fonksiyon hazırladım. Dilerseniz kullanabilirsiniz.

Eklediğiniz örnek dosyada boş bir hücreye aşağıdaki formülü uygulayınız.

=K_SAY(B2:AS2;"ADET";B3:AS22)

Function K_SAY(Kriter_Alani As Range, Kriter As Variant, Alan As Range)
    Satir_1 = Evaluate("=Min(Row(" & Alan.Address & "))")
    Satir_2 = Evaluate("=Max(Row(" & Alan.Address & "))")
    
    For Each Veri In Kriter_Alani
        If Veri = Kriter Then
            Adres = Range(Cells(Satir_1, Veri.Column), Cells(Satir_2, Veri.Column))
            If WorksheetFunction.Sum(Adres) > 0 Then
                K_SAY = K_SAY + 1
            End If
        End If
    Next
End Function

 

[Ömer]

Merhaba,

Alternatif olsun.

Dizi formülüdür. Girişini ctrl+shift+enter tuş kombinasyonu ile yapınız.

=TOPLA((DÇARP(DEVRİK_DÖNÜŞÜM(SATIR(B3:AS22))^0
 ;(MOD(SÜTUN(B3:AS22);2)=0)*(B3:AS22))>0)+0)

.

 

[Korhan Ayhan]

Elinize sağlık Ömer bey...

 

[Ömer]

Teşekkür ederim Korhan bey.

 

[Erdem Akdemir]

Merhaba,

Alternatif olsun.

=TOPLA.ÇARPIM(--(ALTTOPLAM(9;KAYDIR(B3;;(SATIR(1:22)-1)*2;20))>0))

 

[Necdet]

Böyle bir formül bekliyordum Ömer bey, çok beklettin beni

Bilgine sağlık.

 

[Necdet]

Sayın kuvari,

Sizin de bilginize sağlık. Formüller gittikçe kısalıyor

 

[Erdem Akdemir]

Necdet bey güzel sözleriniz için teşekkür ederim.