tarih filtreleme sorunu

[emre_muhendis]

merhaba,

tarihi filtrelemek ve istediğim tarihten sonraki satırları silmek için ve TB leri silmek için aşağıdaki kodu yazdım ama gerekli yerleri silmek yerine ne var ne yok hepsini siliyor. hatamı göremiyorum. yardımcı olabilir misiniz?

Sub macroTarihSil()

ActiveSheet.Range("A:N").AutoFilter Field:=8, Criteria1:="*TB*" _
, Operator:=xlOr, Criteria2:=">01.04.2012"
i = Range("A1").CurrentRegion.Rows.Count
Rows("2:" & i).Select
Selection.Delete Shift:=xlUp
ActiveSheet.Range("A:N").AutoFilter

End Sub

 

[snx111]

sanırım office 2010 da oluyordu emin değlim