Belirli bir veriyi içeren satırları silmek

[u.L.a.s]

merhabalar

A sütununda her satırda bazı veriler var.

Bazı satırlarda
" sdlsldkmsd description sdsf"
"description ffff ddd"

gibi description verisi içeren satırlar mevcut. böyle descripton verisi olan satırlar her ne olursa olsun o satırdaki tüm veriyi silsin istiyorum.

bilgi ve yardımlarınızı rica ederim

 

[TEGCreative]

Merhaba ; bu kod işinizi görebilir diye düşünüyorum. Kod sayın üstad Ömer hocam'ın aynı şekilde sorulmuş bir soruya verdiği cevaptır.
Verilerinizin B sütununda olduğu varsayılır.

Sub SartliSil()
 
Dim son As Long, deg, i As Long, durum As Boolean, j As Integer
 
son = Cells(Rows.Count, "B").End(xlUp).Row
deg = Array("*description*")
 
Application.ScreenUpdating = False
 
For i = son To 2 Step -1
    durum = False
    For j = 0 To UBound(deg)
        If Cells(i, "B") Like deg(j) Then durum = True
        If durum = True Then Exit For
    Next j
    If durum = True Then Rows(i).Delete Shift:=xlUp
Next i
 
Application.ScreenUpdating = True

 

[u.L.a.s]

Üstadım teşekkür ederim bilgi dönüşün için ömer hocamında emeğine bilgisine sağlık