şartlı silme butonu

Costcost

Altın Üye
Katılım
3 Ekim 2018
Mesajlar
76
Excel Vers. ve Dili
Excel 2003-2007/2010
Merhabalar,
Şartlı silme butonunu daha efektif hale nasıl getirebilirim. ekte dosya mevcut.
yardımlarınız için şimdiden çok teşekkürler.
 

Ekli dosyalar

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,327
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Deneyiniz.

C++:
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

Altın Üye
Katılım
3 Ekim 2018
Mesajlar
76
Excel Vers. ve Dili
Excel 2003-2007/2010
Korhan Bey, çok teşekkür ederim. çok iyi çalışıyor. Allah razı olsun.
 
Üst