01/01/2009 ile31/01/2009 tarihleri arasındaki tarihlerden kaç tane var

[agreee]

TextBox11.Value = WorksheetFunction.CountIf(Worksheets("GİRİŞ").Range("U2:U5550"), "")

countif ile bir kolonda ocak ayı tarihlerini saymayı nasıl yapailiriz

 

[Ayhan Ercan]

Merhaba

Değişik bir yöntemle aşağıdaki gibi bir deneme yapabilirsiniz.

başlangıç tarihi (01.01.2009) A1 hücresine, bitiş tarihini (31.01.2009) A2 hücresine yazın
tarih aralığıda U2 ile U5550 olsun

aşağıdaki kodu bir düğmeye atayıp deneyiniz...

Dim hcr As Range, tar1 As Date, tar2 As Date, tarih As Integer
tar1 = [A1]
tar2 = [A2]
For Each hcr In Range("U2:U5550")
If IsDate(hcr) And hcr > tar1 And hcr < tar2 Then
tarih = tarih + 1
End If
Next
MsgBox tarih

 

[agreee]

Biraz değiştirip uyguladım oldu.Teşekkürler
saygılarımla,

bilgi paylaşıldıkça çoğalır
İyi Günler