moni_tm
10-18-2017, 06:37 AM
20691
Good Afternoon,
I would like to setup a macro to filter Column A based on up to 10 criteria on the same page. I have attached a sample document with some code already in that does not work correctly as it returns nothing.
Sub AutofilterGenie()
Dim rg As Range
Set rg = Range("A3:A10000") 'Range to filter
Worksheets("SHEET1").Select
rg.AutoFilter 'Remove any existing AutoFilter
Set rg = Range(rg, Cells(Rows.Count, rg.Column).End(xlUp)) 'All the data in column A
rg.AutoFilter Field:=1, Criteria1:=Array([F2], [G2], [H2], [I2], [J2], [K2], [L2], [M2], [N2], [O2]), Operator:=xlFilterValues 'cells to look in and filter based on value
End Sub
Any help is greatly appreciated.
Tom
Good Afternoon,
I would like to setup a macro to filter Column A based on up to 10 criteria on the same page. I have attached a sample document with some code already in that does not work correctly as it returns nothing.
Sub AutofilterGenie()
Dim rg As Range
Set rg = Range("A3:A10000") 'Range to filter
Worksheets("SHEET1").Select
rg.AutoFilter 'Remove any existing AutoFilter
Set rg = Range(rg, Cells(Rows.Count, rg.Column).End(xlUp)) 'All the data in column A
rg.AutoFilter Field:=1, Criteria1:=Array([F2], [G2], [H2], [I2], [J2], [K2], [L2], [M2], [N2], [O2]), Operator:=xlFilterValues 'cells to look in and filter based on value
End Sub
Any help is greatly appreciated.
Tom