tarihe göre süzme

[cumhur]

arkadaşlar ekteki çalışmayı bir incelyip yardım ederseniz sevinirim

 

[Mahmut Bayram]

syn cumhur, bey eklemeyi unuttunuz galiba

 

[cumhur]

tarihe göre süz

pardon

 

[isakarakus]

Sheets("ARAMASÜZ").Range("a1:v65536").ClearContents
satırından sonra

Sheets("GELARAMA").Select
satırını ekleyin

 

[isakarakus]

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.