Açıklama Sayısını Bulma

[Korhan Ayhan]

Aşağıdaki kod ile sonuca gidebilirsiniz.

Private Sub CommandButton1_Click()
    Dim Ilk_Tarih As Long, Son_Tarih As Long, Son_Satir As Long, Son_Sutun As String, Formul As String
    
    Ilk_Tarih = DateSerial(Sheets("Randevu").Range("R4"), 1, 1)
    Son_Tarih = DateSerial(Sheets("Randevu").Range("R4"), 12, 31)
    
    Son_Satir = Sheets("Veri").Cells(Rows.Count, 1).End(3).Row
    Son_Sutun = Replace(Cells(1, Sheets("Veri").Cells.Find("*", LookIn:=xlFormulas, _
    SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column).Address(0, 0), 1, "")
    Formul = "=SUMPRODUCT((Veri!B1:B1048576=""" & TextBox1 & """)*(Veri!A1:A1048576>=" & Ilk_Tarih & ")*(Veri!A1:A1048576<=" & Son_Tarih & "))"
    Formul = Replace(Replace(Formul, 1048576, Son_Satir), ":B", ":" & Son_Sutun)
    
    TextBox2 = Evaluate(Formul)
End Sub

 

[seddur]

Evet kod istediğimiz sonucu verdi.Katkınız için Teşekkür Ediyorum