hücrede bulunan yazıya göre satırı komple silen makro

[yasin273]

merhaba arkadaşlar, mesela bir hücrede " dö3 " yazıyorsa o hücrenin bulunduğu satırı komple silmek istiyorum.

bunu nasıl yapabilirim. bir buton ekleyerek?

 

[Ömer]

Merhaba,

Örnek:

Sub Sartli_Sil()
    
    Dim i As Long
    
    Application.ScreenUpdating = False
    
    For i = [COLOR="Red"]10[/COLOR] To [COLOR="Blue"]1[/COLOR] Step -1 '[COLOR="green"]A[/COLOR][COLOR="blue"]1[/COLOR]:[COLOR="Green"]A[/COLOR][COLOR="red"]10[/COLOR] aralığı için
        If Cells(i, "[COLOR="DarkOliveGreen"]A[/COLOR]") = "dö3" Then
            Rows(i).Delete
        End If
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

.