Ölçüte uyan satırları silme

[selcukt]

Forumda detaylı araştırma yaptım.Sorunumla benzer konu ve cevaplar var. Ancak istediğim gibi bir kod bulamadım. Bulduğum kodlar benim çalışmama uygun değil maalesef.Ekte bulunan dosya da açıklamada bulundum.Bu dosya yaklaşık 12.000 satır olarak çalışan ve 3 günde bir yenilenen bir tablo olduğu için makro ile işlem yapmanın daha kolay olduğunu düşünüyorum.Çözüm içinde sizlerden yardım rica ediyorum.

Teşekkürler

 

[Ömer]

Merhaba,

Bu şekilde deneyin.
Not: Soru başlıklarınızın konunun içeriğini ifade edecek şekilde belirlemenizi rica ederim.

Sub Sil()
    
    Dim i As Long
    
    Application.ScreenUpdating = False
    
    For i = Cells(Rows.Count, "G").End(xlUp).Row To 2 Step -1
        If Cells(i, "G") Like "*İade*" Then
            Rows(i).Delete Shift:=xlUp
        End If
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

 

[selcukt]

Çok teşekkür ederim, beni büyük bir zahmetten kurtardınız