oblix
Board Regular
- Joined
- Mar 29, 2017
- Messages
- 183
- Office Version
- 365
- 2021
- 2019
- 2016
- 2013
- 2011
- 2010
- 2007
- 2003 or older
- Platform
- Windows
- MacOS
- Mobile
- Web
Hi there
I have this code I would like clean up
Done mostly with macro recorder (and I know it sucks!)
and then to place in sheet "PERMENANT LIVING IN REGISTER" to run on changes that take place in this sheet
Sub FILTER_PERMEXPORT()
Application.EnableEvents = False
Application.ScreenUpdating = False
Sheets("Perm Transfer").Select
Range("O3:Z1000").Select
Selection.ClearContents
Sheets("PERMENANT LIVING IN REGISTER").Range("C4:AV500").AdvancedFilter Action _
:=xlFilterCopy, CriteriaRange:=Range("'Perm Transfer'!Criteria_P"), _
CopyToRange:=Range("'Perm Transfer'!Extract_P"), Unique:=False
Call Sort_perm2
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
please assist
I have this code I would like clean up
Done mostly with macro recorder (and I know it sucks!)
and then to place in sheet "PERMENANT LIVING IN REGISTER" to run on changes that take place in this sheet
Sub FILTER_PERMEXPORT()
Application.EnableEvents = False
Application.ScreenUpdating = False
Sheets("Perm Transfer").Select
Range("O3:Z1000").Select
Selection.ClearContents
Sheets("PERMENANT LIVING IN REGISTER").Range("C4:AV500").AdvancedFilter Action _
:=xlFilterCopy, CriteriaRange:=Range("'Perm Transfer'!Criteria_P"), _
CopyToRange:=Range("'Perm Transfer'!Extract_P"), Unique:=False
Call Sort_perm2
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
please assist