Kelimeyi cümle içinde araya bulduğunda ilgili satırı silme

[drejan62]

Merhabalar,
B sütunundaki veriler içinde belirteceğimiz kelimeyi aramak ve bulduğunda ilgili satırı silmek için nasıl bir kod yazılabilir.
Örnek:
B2 hücresinde "Ben ve Ali İyi Dostuz" yazdığını düşünelim
makroya "Ali" değereni B sütununda aramasını ve bulduğunda ise ilgili satarı silmesini istiyorum. örnekte B2 satarının silinmesi gerekiyor.
Teşekkürler

 

[Orion1]

B sütununda arar.

Sub bul_sil()
Dim deg As Variant
deg = InputBox("Aranacak kelimenin bir parçasını yazınız :", "BUL-SİL")
If deg = "" Then Exit Sub
Application.ScreenUpdating = False
For i = Cells(65536, "B").End(xlUp).Row To 1 Step -1
    If InStr(1, Cells(i, "B").Value, deg) > 0 Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır.", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[drejan62]

Evren hocam,
Teşekkürler. Sağolun