aranan veri varsa satırı sil

[işsiz123]

Merhabalar
şimdi benim çalışma sayfasında A:A sütununda veriler bulunmakta. benim yapmak istediğim aradığım veriler hangi hücrede varsa o hücrenin tümü silinsin.
Örnek olarak;
a1= mehmet emin
a2= muhammed emin
a3= ali
a4= veli
a5= emin

ben emin ismini aradığımda A1 , A2 ve a5 hücreleri tamamı temizlensin.
a1=
a2=
a3= ali
a4= veli
a5=
sonuç böyle olacak
Saygılar

 

[Orion1]

Buyurun.

Sub icerirsil59()
Dim sonsat As Long, i As Long, isim As String
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
For i = sonsat To 1 Step -1
    deg = UCase(Replace(Replace(Cells(i, "A").Value, "i", "İ"), "ı", "I"))
    If deg Like "*EMİN*" Then Cells(i, "A").ClearContents
Next i
MsgBox "EMİN  İçeren hücreler silindi." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[işsiz123]

Buyurun.

Sub icerirsil59()
Dim sonsat As Long, i As Long, isim As String
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
For i = sonsat To 1 Step -1
    deg = UCase(Replace(Replace(Cells(i, "A").Value, "i", "İ"), "ı", "I"))
    If deg Like "*EMİN*" Then Cells(i, "A").ClearContents
Next i
MsgBox "EMİN  İçeren hücreler silindi." & vbLf & "evrengizlen@hotmail.com"
End Sub

TEŞEKKÜRLER HOCAM

 

[Orion1]

Rica ederim.
İyi çalışmalar.