belli kelimeyi bulup silmek

[ormanci_50]

merhaba
tabloda belli kelimeleri bulup o satırı komple silmek istiyorum.
iyi çalışmalar

 

[Necdet]

Merhaba,

Aşağıdaki kodladı dener misiniz?

Sub OkuVeSil()
    
    Dim i   As Long
    Dim j   As Long
    Dim ss  As Worksheet
    Dim st  As Worksheet
    
    Set ss = Sheets("sipariş")
    Set st = Sheets("tanımlama")
    
    ss.Select
    
    i = Cells(Rows.Count, "a").End(3).Row
    
    For j = 2 To st.Cells(Rows.Count, "A").End(3).Row
    
        Range("A1:D" & i).AutoFilter Field:=1, Criteria1:=st.Cells(j, "A")
        Rows("2:" & i).Delete Shift:=xlUp
        
    Next j
    
    ActiveSheet.ShowAllData
    
End Sub