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?
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?