VBA Reset the filter
Remove or reset an existing filter on a table or range.
Code:
Sub reset_filter_to_empty()
Dim ws_sheet As Worksheet
Dim lastcolumn As Long
Dim lastrow As Long
'identify worksheet
Set ws_sheet = Worksheets(3)
'find table's limits
lastrow = ws_sheet.Cells(Rows.Count, 1).End(xlUp).Row
lastcolumn = ws_sheet.Cells(1, Columns.Count).End(xlToLeft).Column
'reset filter
ws_sheet.Range(ws_sheet.Cells(1, 1), ws_sheet.Cells(lastrow, lastcolumn)).AutoFilter Field:=1
End Sub
-------------------------------
NEED HELP?
-------------------------------
Leave a comment with your questions, issues or projetcs and I will try to answer with a video.
-------------------------------
THANK YOU
-------------------------------
For watching my videos,
Your shares
And your comments!