filtre silme vs

[memoli1970]

selamlar

Sub filtre() Range("A1").Select Selection.AutoFilter Field:=2, Criteria1:="ocak" End Sub

yukardaki kodu yazdıgımda filtreleme yapıyor ama ben şarta uymayanları direk silmek istiyorum.
bunun için vba da başka kod vs varmıdır ? yoksa for döngüsü ile mi yapmak gerekiyor

teşekkur ederim

 

[Necdet]

Merhaba,

Deneyiniz, filtrede uygun değer yoksa hata verebilir, onun kontrolünü yapmadım. Kod satırları siler.

Sub Makro1()

    Dim i As Long
    
    If ActiveSheet.FilterMode = True Then Selection.AutoFilter
    
    i = Cells(Rows.Count, "A").End(3).Row
    
    Application.DisplayAlerts = False
    Range("$A$1:$B$" & i).AutoFilter Field:=2, Criteria1:="<>OCAK"
    
    Range("A1").CurrentRegion.Offset(1).Rows.Delete
    Application.DisplayAlerts = True
    Selection.AutoFilter
    
End Sub

 

[memoli1970]

Merhaba,

Deneyiniz, filtrede uygun değer yoksa hata verebilir, onun kontrolünü yapmadım. Kod satırları siler.

Sub Makro1()

    Dim i As Long
   
    If ActiveSheet.FilterMode = True Then Selection.AutoFilter
   
    i = Cells(Rows.Count, "A").End(3).Row
   
    Application.DisplayAlerts = False
    Range("$A$1:$B$" & i).AutoFilter Field:=2, Criteria1:="<>OCAK"
   
    Range("A1").CurrentRegion.Offset(1).Rows.Delete
    Application.DisplayAlerts = True
    Selection.AutoFilter
   
End Sub

teşekkür ederim necdet bey