Sütunda Belli Bir Koşula Göre Saydırma Hk.

[baykan_m]

Merhaba,

Tabloda H ile AL sütunlarında H- ile başlayan değerler var. Bu değerlerin aşağıdaki kriterlerde saydırılması gerekiyor.

H VE AL SÜTUNLARI ARASINDA OLAN VE H- İLE BAŞLAYAN DEĞERLERİN AŞAĞIDAKİ KRİTELERDE SAYILMASI GEREKİYOR;

* SADECE H YAZIYOR İSE 0

* H- İLE BAŞLIYOR VE SONRAKİ DEĞER EĞER 11:50 ÜSTÜNDEYSE KAÇ TANE OLDUĞUNU SAY (ÖRNEK H-12:15)

* H- İLE BAŞLIYOR VE SONRAKİ DEĞER EĞER 11:50 ALTINDAYSA 1 YAZ (ÖRNEK H-08:00)

Yardımcı olanlara şimdiden teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.

Nereye yazılacağını söylemediğiniz için Mesaj ile gösterdim.

Sub test()
    Dim Bak As Range
    Dim i As Variant
    Dim SayBuyuk As Long
    Dim SayKucuk As Long
    For Each Bak In Range("H4:AL" & Cells(Rows.Count, "H").End(xlUp).Row)
        
        If Left(Bak.Text, 1) = "H" Then
            i = Split(Bak.Text, "-")
            If UBound(i) > 0 Then
                If i(1) >= "11:50" Then
                    SayBuyuk = 1 + SayBuyuk
                ElseIf i(1) < "11:50" Then
                    SayKucuk = 1 + SayKucuk
                End If
            End If
        End If
    Next
    
    MsgBox "11:50 ye eşit ve büyük " & SayBuyuk & " tane var."
    MsgBox "11:50 den küçük " & SayKucuk & " tane var."
End Sub

 

[baykan_m]

Merhaba,

Desteğiniz için teşekkür ederim. Ancak bunu formül ile yapma imkanımız var ise çok daha iyi olacak.

 

[Korhan Ayhan]

Deneyiniz.

=TOPLA.ÇARPIM((SOLDAN(H4:AL4;2)="H-")*(YERİNEKOY(H4:AL4;"H-";"")>="11:50"))