Tablo alanında filtre edip silme

[tamer42]

Merhaba,
Aşağıdaki kodla Tablo1 alanında bir değere göre filtre ettikten sonra filtrelenen alanı silmek istiyorum.
Burada başlangıç ve bitiş satır numaralarını Rows("3905:9080").Select nasıl tespit edebiliriz.

Sub Filtreee
Dim Rng As Range
Dim sh1 As Worksheet

Set sh1 = ActiveSheet

'
    sh1.ListObjects("Tablo1").Range.AutoFilter Field:=13, Criteria1:= _
        "3"
  
    Rows("3905:9080").Select
    Range("F3905").Activate
    Selection.Delete Shift:=xlUp
    Range("Tablo1[cat1code]").Select
    sh1.ListObjects("Tablo1").Sort.SortFields.Clear
    sh1.ShowAllData

    Range("Tablo1[[#Headers],[cat1code]]").Select

End Sub

teşekkürler,
iyi Çalışmalar.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu kendinize uyarlayınız.

Tablodaki 13. sütuna filtre uygular ve ilgili satırları uyarmadan siler.

Option Explicit

Sub Test()
    Application.DisplayAlerts = False
    With ActiveSheet.ListObjects("Table1")
        .Range.AutoFilter Field:=13, Criteria1:="*2*"
        .DataBodyRange.SpecialCells(xlCellTypeVisible).Delete
        .AutoFilter.ShowAllData
    End With
    Application.DisplayAlerts = True
End Sub

 

[tamer42]

Merhaba,

Aşağıdaki kodu kendinize uyarlayınız.

Tablodaki 13. sütuna filtre uygular ve ilgili satırları uyarmadan siler.

Option Explicit

Sub Test()
    Application.DisplayAlerts = False
    With ActiveSheet.ListObjects("Table1")
        .Range.AutoFilter Field:=13, Criteria1:="*2*"
        .DataBodyRange.SpecialCells(xlCellTypeVisible).Delete
        .AutoFilter.ShowAllData
    End With
    Application.DisplayAlerts = True
End Sub

teşekkürler Korhan Hocam
iyi ki varsınız...