Deleting Rows that meet filtered criteria only in a table

[XCaliber]

Hi

If I filter a table and the filtered result is what needs to be deleted (nothing else), How do i go about writing code to select the filtered rows to be deleted only (not the headers) within the Table or the rest of the worksheet?

 

[texasalynn]

here is a sample that does that. Filters on column R

    Cells.AutoFilter Field:=18, Criteria1:="0"
    LR = ActiveSheet.Range("R" & Rows.Count).End(xlUp).Row
    Range("R2:R" & LR).SpecialCells(xlCellTypeVisible).Select
    Range("R2:R" & LR).Delete
    Cells.AutoFilter

 

[XCaliber]

here is a sample that does that. Filters on column R

    Cells.AutoFilter Field:=18, Criteria1:="0"
    LR = ActiveSheet.Range("R" & Rows.Count).End(xlUp).Row
    Range("R2:R" & LR).SpecialCells(xlCellTypeVisible).Select
    Range("R2:R" & LR).Delete
    Cells.AutoFilter

So This code is a little greek to me, but tell me if I am on the right track with it. Am I to understand that this code basically begins selection of rows from the bottom to the top of the table? If so, that's brilliant.

 

[My Aswer Is This]

Assuming you want to delete any row that has "Dad" in column "R" use this script.

Modify to your needs.

Sub FilterMini()
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "R").End(xlUp).Row
With Range("R2:R" & Lastrow)
.AutoFilter Field:=1, Criteria1:="Dad", Operator:=xlFilterValues
.SpecialCells(xlCellTypeVisible).Rows.Delete
End With
ActiveSheet.AutoFilterMode = False
End Sub

 

[texasalynn]

So This code is a little greek to me, but tell me if I am on the right track with it. Am I to understand that this code basically begins selection of rows from the bottom to the top of the table? If so, that's brilliant.

This uses a filter for the selection and then deletes those rows