• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

tarihe göre süzme

Katılım
3 Mart 2005
Mesajlar
571
Excel Vers. ve Dili
Excel 2000 Ing.
Sheets("ARAMASÜZ").Range("a1:v65536").ClearContents
satırından sonra

Sheets("GELARAMA").Select
satırını ekleyin
 
Katılım
3 Mart 2005
Mesajlar
571
Excel Vers. ve Dili
Excel 2000 Ing.
If ÇÇIKIÞ.Value <> "" Then Selection.AutoFilter Field:=6, Criteria1:=ÇÇIKIÞ.Text

bu kodu da düzeltin.
If ÇÇIKIÞ.Value <> "" Then Selection.AutoFilter Field:=6, Criteria1:=CDate(ÇÇIKIÞ.Text)
bu şekilde olsun.
 
Üst