Süzme işleminde tarihi gün ve ayı yer değiştirerek alıyor

[bistroboy]

Dim k As Date
basla:
k = InputBox("Rapor tarihini gg.aa.yyyy şeklinde giriniz", "Rapor dosyasının adını Giriniz", " 01.01.2000")

If k > Date Then MsgBox "Rapor, geçmiş tarihe ait olmalıdır ", vbExclamation, "Uyarı": GoTo basla

Worksheets("veritabani").Select
Range("A1").Select
Selection.AutoFilter Field:=6, Criteria1:=k

** Inputboxa 15.11.2007 yazdım
Range hücrelerde 15.11.2007 var. onları otomatik süzsün dedim.
autofilter yapıyor...neyi süzmüş diye baktığımda 11/15/2007 seçili olmuş ve dolayısıyla seçim sonuçsuz kalmış..
bunu nasıl düzeltebilriiz acaba?

 

[Mahmut Kök]

Dim k As Date
basla:
k = InputBox("Rapor tarihini gg.aa.yyyy şeklinde giriniz", "Rapor dosyasının adını Giriniz", " 01.01.2000")

If k > Date Then MsgBox "Rapor, geçmiş tarihe ait olmalıdır ", vbExclamation, "Uyarı": GoTo basla

Worksheets("veritabani").Select
Range("A1").Select
Selection.AutoFilter Field:=6, Criteria1:=k

** Inputboxa 15.11.2007 yazdım
Range hücrelerde 15.11.2007 var. onları otomatik süzsün dedim.
autofilter yapıyor...neyi süzmüş diye baktığımda 11/15/2007 seçili olmuş ve dolayısıyla seçim sonuçsuz kalmış..
bunu nasıl düzeltebilriiz acaba?

k = Format(InputBox("Rapor tarihini gg.aa.yyyy şeklinde giriniz", "Rapor dosyasının adını Giriniz", " 01.01.2000"), "dd.mm.yyyy")

 

[bistroboy]

çok teşekkürler