S
ScoobyDoo
Hi
I have this macro to filter data
Sheets("Working Data").Select
Cells.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Sheets("Raw data").Cells.AdvancedFilter Action:=xlFilterCopy,
CriteriaRange _
:=Sheets("Filter Criteria").Rows("1:3"),
CopyToRange:=Range("A1"), Unique _
:=False
Cells.Select
Selection.Columns.AutoFit
The filter Criteria is on sheet Filter Criteria
There are row headings from Columns A to AG
The actual criteria are;
Cell D2 ="=*AoS"
Cell F3 ="=*AoS"
Cell I2 ="=*Battle"
Cell I3 ="=*Battle"
Cell L2 ="=USA"
Cell L3 ="=USA"
Cell M2 ="=*Victory"
Cell M3 ="=*Victory"
The data being filtered is on sheet Raw Data
Once the data is filtered, it is copied top sheet Working data
I have read in various threads that VBA code can be more efficient
than Macro code. My questions is..
how do you convert the above code to VBA?
I have this macro to filter data
Sheets("Working Data").Select
Cells.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Sheets("Raw data").Cells.AdvancedFilter Action:=xlFilterCopy,
CriteriaRange _
:=Sheets("Filter Criteria").Rows("1:3"),
CopyToRange:=Range("A1"), Unique _
:=False
Cells.Select
Selection.Columns.AutoFit
The filter Criteria is on sheet Filter Criteria
There are row headings from Columns A to AG
The actual criteria are;
Cell D2 ="=*AoS"
Cell F3 ="=*AoS"
Cell I2 ="=*Battle"
Cell I3 ="=*Battle"
Cell L2 ="=USA"
Cell L3 ="=USA"
Cell M2 ="=*Victory"
Cell M3 ="=*Victory"
The data being filtered is on sheet Raw Data
Once the data is filtered, it is copied top sheet Working data
I have read in various threads that VBA code can be more efficient
than Macro code. My questions is..
how do you convert the above code to VBA?