şartlı silme butonu

Katılım
3 Ekim 2018
Mesajlar
60
Excel Vers. ve Dili
Excel 2003-2007
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

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
29,328
Excel Vers. ve Dili
OFFICE 2019 PRO TR
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
 
Katılım
3 Ekim 2018
Mesajlar
60
Excel Vers. ve Dili
Excel 2003-2007
Korhan Bey, çok teşekkür ederim. çok iyi çalışıyor. Allah razı olsun.
 
Üst