Remove Selected Auto Filter

Good Morning,

I have recorded a macro to remove the filters from a selected row and then re-apply to a selected column.
It's the first time I've had a go recording a macro and it can take an age to complete.

Could anyone offer something that might work a bit quicker.

This is what I have done.

Sub Filter()
'
' Filter Macro
'
' Keyboard Shortcut: Ctrl+m
'
    Range("A4:V4").Select
    Selection.AutoFilter
    Range("A4:V4").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$4:$V$20019").AutoFilter Field:=19, Criteria1:="No"
End Sub

If possible i'd also like it to run when you open the workbook and with a keyboard shortcut of [Ctrl] + m

Thank you for any help you can provide.

Tom

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

Try this

Sub Filter()

Activesheet.AutoFilterMode = False
ActiveSheet.Range("$A$4:$V$4").AutoFilter Field:=19, Criteria1:="No"

End Sub

In a modul replace existing macro with this one (can't have two macro with same name anyway).

To assign shortcur from a excel sheet press ALT+F8.....to display the list of macros
Select one from the list and click the [Options] button.
Assign a shortcut key but entering m and clicking OK.

Change sheet and range to fit your needs:

Sub FilterPL()

Sheets("Po Log").AutoFilterMode = False
Sheets("Po Log").Range("$A$4:$V$4").AutoFilter Field:=19, Criteria1:="No"

End Sub


Sub FilterNPL()

Sheets("No Po Log").AutoFilterMode = False
Sheets("No Po Log").Range("$A$4:$V$4").AutoFilter Field:=12, Criteria1:="No"

End Sub