eğer say ile hesaplama

[AYCANA]

merhaba
aşağıdakı konuda yardımınızı rica edyrm
listemde C sutununda yaslar var vericilerin..yas aralıklarına göre kac adet verici oldugunu hesaplamam gerek ama eğer sayda 2 kosula göre yapaöadım
yardımınızı rica ediyorum

tesekkurler

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil deneyiniz.

Sub egersay()
Dim sat As Integer
Range("aa5:aa19").ClearContents
    For sat = 2 To Cells(Rows.Count, "c").End(xlUp).Row
        If Cells(sat, "c") >= 5 And Cells(sat, "c") <= 9 Then
            [aa5] = [aa5] + 1
        End If
        If Cells(sat, "c") >= 10 And Cells(sat, "c") <= 14 Then
            [aa6] = [aa6] + 1
        End If
    Next
End Sub

 

[Ömer]

merhaba
aşağıdakı konuda yardımınızı rica edyrm
listemde C sutununda yaslar var vericilerin..yas aralıklarına göre kac adet verici oldugunu hesaplamam gerek ama eğer sayda 2 kosula göre yapaöadım
yardımınızı rica ediyorum

tesekkurler

Merhaba,

Fonksiyonlarla çözüm için;

AA5 hücresine yazıp alt satırlara kopyalayın.

=TOPLA.ÇARPIM(($C$2:$C$500>=SOLDAN(Z5;BUL("-";Z5)-1)+0)
 *($C$2:$C$500<=PARÇAAL(Z5;BUL("-";Z5)+1;256)+0))

.

 

[öğrtm]

aa5 hücresine
=EĞERSAY(C2:C431;">=5")-EĞERSAY(C1:C431;">9") deneyebilirsiniz.