belli iki metin arasındaki hücreleri seçme

[euphrates55]

a18=ali
a452= veli

ali ve veli yazan yerler yine a sütununda ama farklı satırlarda olabilir bu yüzden ali ile veli yi baz alıp, örneğe göre b20 ile h450 arasını nasıl seçip silebilirim.

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodları deneyiniz.

Sub Test()
    Dim Aranan1 As String
    Dim Aranan2 As String
    Dim Bulunan1 As Range
    Dim Bulunan2 As Range
    
    Aranan1 = "Ali"
    Aranan2 = "Veli"
    
    Set Bulunan1 = Columns("A:A").Find(What:=Aranan1, MatchCase:=False)
    Set Bulunan2 = Columns("A:A").Find(What:=Aranan2, MatchCase:=False)
    If Bulunan1 Is Nothing Then
        MsgBox Aranan1 & " bulunamadı."
        Exit Sub
    ElseIf Bulunan1 Is Nothing Then
        MsgBox Aranan2 & " bulunamadı."
        Exit Sub
    End If
    Range(Bulunan1, Bulunan2).Delete
    MsgBox "İşlem tamamlandı."
End Sub