Delete all rows VBA

[thedeadzeds]

Hi Guys,

Is there a way to delete all the rows int he selected autofilter in the below code. At the moment it only looks as rows 2:29.

Thanks

Sub Macro1()

    ActiveSheet.ListObjects("Brecon_Mail_Merge").Range.AutoFilter Field:=12, _
        Criteria1:="Non Ford"
    Rows("2:29").Select
    Selection.Delete Shift:=xlUp
    Range("Brecon_Mail_Merge[[#Headers],[Column1]]").Select
    Selection.AutoFilter
    Selection.AutoFilter
End Sub

 

[Joe4]

Some time ago, I put together some macros that I put in my Personal Macro Workbook to delete rows return by filters, or to delete rows hidden by filters.
Here is the one that deletes the unhidden rows. So, after running your filter, you could just call this macro.

Public Sub DeleteUnHiddenRows()
'   Deletes all unhidden rows except for the header (first row only)

    Application.DisplayAlerts = False
    ActiveSheet.UsedRange.Offset(1, 0).Resize(ActiveSheet.UsedRange.Rows.Count - 1).Rows.Delete
    Application.DisplayAlerts = True

End Sub

 

[seven1four]

Do you happen to have the one to delete the rows hidden from filter?
Thanks

 

[Joe4]

Do you happen to have the one to delete the rows hidden from filter?

Sure. Here it is:

Public Sub DeleteHiddenRows()
'   Deletes all hidden rows on a sheet
    
    Dim lRows As Long
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    For lRows = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
        If Cells(lRows, 1).EntireRow.Hidden = True Then Cells(lRows, 1).EntireRow.Delete
    Next lRows
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True

End Sub