CountIf

[kan-nas]

Cells(1, 5) = WorksheetFunction.Count(Range("a1:a100"), ">=500" And "<=3000") Type hatası alıyorum.

İsteğim a1ile a100 arasında 500 den büyük 300 den küçük sayıların toplamını istiyorum.Yardımlarınız içib..

 

[Necdet]

Merhaba,

Aşağıdaki kodu dener misiniz?

Sub Macro1()
    Range("E1") = Evaluate("=SUMPRODUCT((A1:A100>=500)*(A1:A100<=3000)*(A1:A100))")
End Sub

 

[kan-nas]

Üstad sağol mümkünse kodu açıklayabilirmisin.?
Evaluate nedir.
.....*(A1:A100))") en sona eklediğin bu kod ne işe yarar..

 

[Necdet]

Merhaba,

Range("E1") ="=SUMPRODUCT((A1:A100>=500)*(A1:A100<=3000)*(A1:A100))"

Bu şekilde olsaydı E1 alanına fonksiyonu yazacaktı, Evaluate ile Fonksiyon sonucu elde edilen değeri yazdırılıyor.

Formül sonucunda sanki tekrarlanıyormuş gibi olan (A1:A100) yazılmasaydı formül şarta uyanları sayacaktı, bu durumda ise topluyor.

TOPLA.ÇARPIM olarak arattırınız, çok örneklerle karşılaşacaksınız.

Bence doğrudan Excel Dersanesini inceleyiniz.