Herhangi bir kelime ile başlayan satırı silme

[ynrylmz]

(seçtiğimiz)Herhangi bir kelime ile başlayan satırı silmek için bir makro kodu yazılabilirmi acaba

 

[Ömer]

(seçtiğimiz)Herhangi bir kelime ile başlayan satırı silmek için bir makro kodu yazılabilirmi acaba

Merhaba,

Module kopyalayıp çalıştırın. excel ile başlayan kelimeleri A sütununda arar bulursa o satırı siler.

Sub Sil()
    
    Dim i As Long
    
    Application.ScreenUpdating = False
        
    For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
        If Cells(i, "A") Like "[COLOR=red]excel[/COLOR]*" Then
            Rows(i).Delete
        End If
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

.

 

[ynrylmz]

üstad çok saol sorun çözüldü

 

[Necdet]

Merhaba,

Eğer verileriniz düzenli ise, aralarda garip garip boş satırlar yoksa, Süz ile yapılan işlem daha hızlı çalışır. Yine A sütununda "Excel" ile başlayan satırlar silinir.

Sub Satir_Sil()
    
    Dim i As Long
    Dim s As Variant
    
    s = Application.InputBox("SÖZCÜĞÜ GİRİNİZ", "SİLİNECEK SÖZCÜK GİRİŞİ", Type:=2)
    If s = False Then Exit Sub
    
    i = Cells(Rows.Count, "A").End(3).Row
    Application.ScreenUpdating = False
    
    ActiveSheet.Range("$A$1:$Z$" & i).AutoFilter Field:=1, Criteria1:= _
        "=" & s & "*"
    
    Range("A1").CurrentRegion.Offset(1, 0).EntireRow.Delete
    
    Selection.AutoFilter
    Application.ScreenUpdating = True
    
End Sub