ahmet satırı ve aşağısını silmek

[turkanet]

a sütununda "ahmet" bulduğu satırı ve altındaki tüm dolu satırları silen makroya ihtiyacım var.
şimdiden tşk

 

[Orion1]

Sub ahmet()
Dim k As Range, sat As Long
sat = Cells(65536, "A").End(xlUp).Row
Set k = Range("A:A").Find("ahmet", , xlValues, xlWhole)
If Not k Is Nothing Then
    Rows(k.Row & ":" & sat).Delete
End If
MsgBox "Silme yapıldı"
End Sub

 

[turkanet]

sn Evren Gizlen,

a yerine b sütunu ve şartı "ahmet kelimesi ile başlayan" olarak değiştirebilir miyiz?
cevabınızı beklerim

 

[Orion1]

sn Evren Gizlen,

a yerine b sütunu ve şartı "ahmet kelimesi ile başlayan" olarak değiştirebilir miyiz?
cevabınızı beklerim

b sütununda ahmet ile başlayan satırı ve onun altındaki tüm satırları siler

Sub ahmet()
Dim k As Range, sat As Long
sat = Cells(65536, "B").End(xlUp).Row
Set k = Range("B:B").Find("ahmet*", , xlValues, xlWhole)
If Not k Is Nothing Then
    Rows(k.Row & ":" & sat).Delete
End If
MsgBox "Silme yapıldı"
End Sub

 

[turkanet]

çok tşk ederim

 

[Orion1]

çok tşk ederim

Rica ederim.

 

[steppe]

b sütununda ahmet ile başlayan satırı ve onun altındaki tüm satırları siler

Sub ahmet()
Dim k As Range, sat As Long
sat = Cells(65536, "B").End(xlUp).Row
Set k = Range("B:B").Find("ahmet*", , xlValues, xlWhole)
If Not k Is Nothing Then
    Rows(k.Row & ":" & sat).Delete
End If
MsgBox "Silme yapıldı"
End Sub

Ahmet satırı ve onun altındaki 2 satır nasıl silinebilir?

 

[Orion1]

Ahmet satırı ve onun altındaki 2 satır nasıl silinebilir?

İlk bulduğu ahmette o satırı ve altındaki 2 satırı silip çalışmayı sonlandırıyor.
Buyurun.

Sub ahmet_sil59()
Dim i As Long, sat As Long
sat = Cells(Rows.Count, "B").End(xlUp).Row
For i = 1 To sat
    If UCase(Cells(i, "B").Value) Like "AHMET*" Then
        Rows(i & ":" & i + 2).Delete
        MsgBox "silme işlemi tamamlandı." & vbLf & _
        "evrengizlen@hotmail.com", vbOKOnly + vbInformation, Application.UserName
        exit sub
    End If
Next
End Sub

 

[steppe]

Orion1 Kardeş,
Yardımlarınız için teşekkür ederim.

 

[Orion1]

Orion1 Kardeş,
Yardımlarınız için teşekkür ederim.

Kodda düzenleme yaptım.
Önceki kodlamada bulduğu tüm ahmetleri siliyordu.
Şimdi ise ilk ahmette silip sonlanıyor.