Belli bir kelime ile başlayan satırların tümünü silmek için yardım

[votkaredbul]

Merhabalar,

Excelde tek sütün üzerinde 3.500'e yakın satır var. Ve bu satırlardaki belli bir kelime ile başlayan tüm satırları buldurup sildirmek istiyorum.

Eke örnek teşkil etmesi için bir dosya koydum. Mesela o dosyadaki gönderim tarihi ile başlayan satırların hepsini nasıl silebilirim.

Yardımlarınız için şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Module kopyalayıp çalıştırın.

Sub Sartli_Sil()
 
    Dim i As Long
    
    Application.ScreenUpdating = False
    
    For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
        If Cells(i, "A") Like "gönderim tarihi*" Then
            Rows(i).Delete
        End If
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

.

 

[asuzen]

Peki hocam bu işlemi, silinmesini istediğimiz bir kelimeyi açılır bir kutucuğa yazarak yapabilir miyiz?
Yani "gönderim tarihi*" kısmını açılan bir kutucuğa yazsak, bu şekilde makrodan değiştirmeden istediğimiz kelimeleri içeren ya da başlayan satırları dah kolay silme imkanımız olurdu.
Bir de bu işlemin sütun olarak da yapılabilmesi mümkün müdür?

 

[uzmanamele]

Merhaba

Alternatif:
Listeye filtre uygulayın; metin filtresi / başlangıcı (gönderim tarihi)
Bu şekilde filtrelenmiş tabloyu seçip satır silmek yeterli olacaktır.
Filtrede tümünü gösterdiğinizde geriye kalan satırlar yerinde kalmış olacaktır.

 

[votkaredbul]

Çok teşekkür ederim. İki formüllede istediğimi yapabildim.

 

[zaruri]

Teşekkürler, emeğinize sağlık, yıllar sonra bile faydası olan bir "hayrat" bundan güzeli ne olabilir.