Aynı veri ile başlayan içeriğin silinmesi

[yexceller]

İyi günler, başlıkta dediğim gibi aynı veri ile başlayan satırın silinmesi için bir makro var mı?
Örneğin 5. ve 8. satırda bilinmeyen değeriyle başlıyor bu değerleri otomatik silebileceğimiz bir makro var mı ?

Eki ekledim incelemek isterseniz.

 

[apocalyt]

şunu deneyin..

Sub daylight()
Application.ScreenUpdating = False
For x = 2 To [b10000].End(3).Row
If Cells(x, "b") Like "*bilinmeyen*" Then
Cells(x, "b").Delete
x = x - 1
End If
Next x
Application.ScreenUpdating = True
End Sub

 

[yexceller]

şunu deneyin..

Sub daylight()
Application.ScreenUpdating = False
For x = 2 To [b10000].End(3).Row
If Cells(x, "b") Like "*bilinmeyen*" Then
Cells(x, "b").Delete
x = x - 1
End If
Next x
Application.ScreenUpdating = True
End Sub

Teşekkür ediyorum, çalıştı.

 

[apocalyt]

rica ederim..