Countıf

[kan-nas]

Günaydın,

Excel dosyasındaki A sütununda binlerce rakamdan oluşan bir listede A1 ile A50000 arasındaki rakamlardan 1000 den büyük 5300 den küçük olan rakamların adedini bulmak istiyorum. CountIf formulü ve makro ile nasıl yapabilirim.

Kendi çabamla yapamadım..

For i = 1 To Range("a65536").End(3).Row
a = Cells(i, 1).Value > 200 And Cells(i, 1) < 800
If Cells(i, 1) = a Then
Cells(i, 5) = WorksheetFunction.CountA("Range(a1: a1000")
End If
Next i
End Sub

 

[abonem]

Dim say As Integer
say = 0
For i = 1 To 50000
If Cells(i, 1) > 1000 And Cells(i, 1) < 5300 Then
say = say + 1
End If
Next i
MsgBox say

Saygılarımla.

 

[Necdet]

Merhaba,

Sonucu B1 hücresine yazdıracağınızı varsayarak :

Sub Makro1()
    Range("B1").Formula = "=SUMPRODUCT((A1:A5>1000)*(A1:A5<5300))"
End Sub

 

[kan-nas]

Üstadlar çok teeşkkürler.