Tarihe göre Eğersay

[seddur]

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

 

[ÖmerBey]

Merhaba,
Çokeğersay kullanmayı deneyiniz...
Örnek dosya paylaşmadığınız için deneme imkanım olmadı, ama aşağıdaki gibi olacak...

WorksheetFunction.CountIfs(Sheets("Liste").Range("D:D"),CDate(TextBox1),Sheets("Liste").Range("h:h"), ">0")

 

[seddur]

Tamamdır.Çalıştı.Çok sağol

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...