Tarih formatı olan hücreler sayılmıyor

[kelkitli]

Değerli Dostlar Selamlar,
Z sütununda güne ait kayıtları saydırıyorum.

UserForm1.Label237 = WorksheetFunction.CountIf(Sayfa1.Range("Z2:Z65536"), Format(Date, "dd.mm.yyyy"))

Tarih formatlı hücreleri görmüyor. "Genel" olarak yada "Metin" olarak formatı ayarladığımda yazdığım tarihleri sayıyor. Nasıl bir çözüm bulmalıyım.

 

[kelkitli]

Değerli Dostlar,
Uzun bir süredir uğraştım yapamadım.

Sub Kayıt()
On Error Resume Next
Application.ScreenUpdating = False
Set S1 = Sayfa1
S1.Select
Set Bul = S1.[B:B].Find(UserForm1.TextBox1)
If Not Bul Is Nothing Then
MsgBox "MÜKERRER KAYIT !", vbCritical, "DİKKAT !"
UserForm3.Show
Exit Sub
End If
UserForm1("TextBox1:TextBox26").Copy
S1.Select
Son_Satır = Range("B65536").End(3).Offset(1).Row
Range("A" & Son_Satır) = Son_Satır - 1
Range("B65536").End(3).Offset(1).Select
For a = 0 To 26
ActiveCell.Offset(0, a).Value = UserForm1.Controls("Textbox" & a + 1).Value
Next a
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=True
Application.CutCopyMode = False
S1.Select
Set S1 = Nothing
MsgBox "YAŞLI KAYDI TAMAMLANDI"
End Sub

Bu kodla kayıt yapıyorum.
TextBox5 ve TextBox25 tarih içeriyor. Kaydettiğim sayfaya 21.09.2008" şeklinde yazıyor. Ancak değer tarih değil. Hücreyi "genel olarak biçimlendirdiğimde seri numarası olmadığını görüyorum. Yada "21 Eylül 08" şeklinde biçimlendirince yine "21.09.2008" olarak duruyor.

UserForm1.Label237 = WorksheetFunction.CountIf(Sayfa1.Range("Z2:Z65536" ), Format(Date, "dd.mm.yyyy"))

Bu kod da tam tersi tarih olanları sayması gerekirken, "21.09.2008" şeklinde kaydedilenleri sayıyor.