şartlı silme butonu

[Costcost]

Merhabalar,
Şartlı silme butonunu daha efektif hale nasıl getirebilirim. ekte dosya mevcut.
yardımlarınız için şimdiden çok teşekkürler.

 

[Korhan Ayhan]

Deneyiniz.

Sub Sartli_Silme()
    Dim Bul As Range, Adres As String, Alan As Range
    
    Set Bul = Range("3:3").Find("AAA", , , xlWhole)
    If Not Bul Is Nothing Then
        Adres = Bul.Address
        Do
            If Alan Is Nothing Then
                Set Alan = Bul.Offset(-1).Resize(3)
            Else
                Set Alan = Union(Alan, Bul.Offset(-1).Resize(3))
            End If
            Set Bul = Range("3:3").FindNext(Bul)
        Loop While Not Bul Is Nothing And Bul.Address <> Adres
    End If
    
    If Not Alan Is Nothing Then
        Alan.ClearContents
        MsgBox "Veriler silinmiştir.", vbInformation
    Else
        MsgBox "Aranan veri bulunamadı!", vbExclamation
    End If

    Set Alan = Nothing
    Set Bul = Nothing
End Sub

 

[Costcost]

Korhan Bey, çok teşekkür ederim. çok iyi çalışıyor. Allah razı olsun.