Belirli satırların silinmesi

[S.Yiğit]

Merhabalar,

Elimde bir liste var bunu internetten kopyalıyorum. Gruplar halide Konser listeleri var. Her grubun en altında Konser'e bugün ve buna benzeyen bilgilerinin olduğu satırlar var ve bu satırları silecek bir makroya ihticayım var. Yardım eder misiniz? Teşekkürler

Not: Çalışma 2007'de kullanılacak. 2003 olarak ekte örnek var.

Silinecek satırlar
Konser Bugün...
Konser'e 1 gün kaldı
Konser'e 2 gün kaldı
Vb...

 

[S.Yiğit]

Gözümden kaçmış bir konu buldum. aradığım cevap aşağıdaki konuda var. Şimdi bu koda bir ekleme yapmam lazım, bazı hücrelerin başında ve sonunda boşluk var bunları KIRP formülü ile yok ediyorum ama makroyla olsa daha güzel olur

=KIRP(A1) formülünü aşağıdaki koda ilave etmem lazım. yardımcı olur musunuz?

Kodlar Necdet Yeşertener hocamın çalışmasıdır, kendisine teşekkürler.

Sub Sil()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To [A65536].End(3).Row
    If Cells(i, "A").Value Like "*Konser*" Then
       Cells(i, "A").Delete Shift:=xlUp
    End If
Next i
Application.ScreenUpdating = True
End Sub

hücreler aradığım kelimeleri içeriyorsa nasıl silebilirim.