Filtreleme Kodu

[alptun20]

Private Sub CommandButton1_Click()
On Error Resume Next
ActiveSheet.ShowAllData
    Range("A1").AutoFilter Field:=2, Criteria1:=">=" & CLng(CDate(TextBox1.Text)), Operator:=xlAnd _
        , Criteria2:="<=" & CLng(CDate(TextBox2.Text))
End Sub

Yukarıdaki kod ile form üzerinden tarihler arası filtreleme yapıyorum.

Bir müddet sonra (kod üzerinde hiç bir değişiklik yapmamama rağmen) kod çalışmamaya, yani bozuk çalışmaya başladı. Şöyleki kod ya verierin ya hepsini yada hiçbirini göstermeyecek şekilde çalışıyor.

Bunun üzerine daha önceki tarihlerde (Filtreleme kodunun doğru çalıştığı tarihlerdeki) almış olduğum bir yedeği denedimğimde aynı sorunun bu dosyadada olduğu gördüm. Bunun sebebi ne olabilir. Bir türlü çözemedim.

Teşekkürler, Saygılarımla.....

 

[Levent Menteşoğlu]

Tarih içeren hücreler metin olarak biçimlendirilmiş olabilir.

 

[alptun20]

Tarih içeren hücreler metin olarak biçimlendirilmiş olabilir.

Levent Bey en az 10 sefer Tarih olarak biçimlendirdim tekrar tekrar..

 

[Levent Menteşoğlu]

Eğer filtre gerçekleşmiyorsa eşleşen veri bulunamıyor demektir. Veriler tarih olarak görünsede bir tarih verisi değildir. Kesin cevap için örnek dosya eklemenizi öneririm.