Süzülen sütundaki bütün verileri silmek

[levo26]

Merhaba,

a1:k5000 aralığında datam var. Herhangi bir sütunda örneğin C sütununda süzme işlemi yapıyorum süzülmüş satırların tamamını makro ile silmek istiyorum.

 

[levo26]

Arkadaşlar;

Fikirleri olan yok mu?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub SÜZÜLMÜŞ_SATIRLARI_SİL()
    Dim Filtre As Filter, Say As Integer
 
    If ActiveSheet.AutoFilterMode = False Then Exit Sub
 
    For Each Filtre In ActiveSheet.AutoFilter.Filters
        If Filtre.On Then
            Say = Say + 1
            Exit For
        End If
    Next
 
    If Say > 0 Then
        Range("A2:K65536").EntireRow.Delete
        On Error GoTo Devam
        ActiveSheet.ShowAllData
Devam:
        Cells.AutoFilter
        MsgBox "Silme işlemi tamamlanmıştır.", vbInformation
    Else
        MsgBox "Aktif filtre uygulanmış sütun bulunamadı !", vbExclamation
    End If
End Sub

 

[levo26]

Teşekkürler. Sağolun.