- Katılım
- 15 Mart 2005
- Mesajlar
- 42,174
- Excel Vers. ve Dili
- Microsoft 365 Tr-En 64 Bit
Aşağıdaki kod ile sonuca gidebilirsiniz.
C++:
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