With ActiveSheet.AutoFilter.Range delete question

[drozek]

I have filtered only the "lasts month" cell in Col 10. How do I get about delete everything that isn't visible, keeping data that is on the screen

Sub test()        
        Columns("J:J").Select
        Selection.TextToColumns Destination:=Range("J1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    ActiveSheet.Range("$A$1:$AM$11576").AutoFilter Field:=10, Criteria1:=8, _
        Operator:=11, Criteria2:=0, SubField:=0
    


End Sub

 

[Joe4]

Here is a little procedure I keep in my Personal Macro Workbook to delete hidden rows:

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

 

[drozek]

Here is a little procedure I keep in my Personal Macro Workbook to delete hidden rows:

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

Thanks takes a few seconds longer, but it got the job done. I have 11k rows in this file.