seddur
Altın Üye
- Katılım
- 12 Nisan 2012
- Mesajlar
- 531
- Excel Vers. ve Dili
- Microsoft office professional plus 2019
- Altın Üyelik Bitiş Tarihi
- 18-12-2024
Merhabalar.Aşağıda paylaştığım ekranda görünen "H" sutunundaki 111 yazan sayıları tarih dikkate alınarak eğersay ile saydırmak istiyorum.Aşağıda yazdığım kod sayma yapıyor ancak tarihi dikkate almadan toplamı veriyor.Yardımcı olacak arkadaşa Teşekkür ederim.
For a = 2 To 50
If Sheets("Liste").Cells(a, "d") = CDate(TextBox1) Then
TextBox9.Value = WorksheetFunction.CountIf(Sheets("Liste").Range("h:h"), ">0")
End if
Next
For a = 2 To 50
If Sheets("Liste").Cells(a, "d") = CDate(TextBox1) Then
TextBox9.Value = WorksheetFunction.CountIf(Sheets("Liste").Range("h:h"), ">0")
End if
Next
Ekli dosyalar
-
29.8 KB Görüntüleme: 8