Sub filter_range()
Sheets("database").Range("$A$2:$B$2").AutoFilter Field:=1, Criteria1:=Application.Transpose(Sheets("Filter range").Range("A2:A8")), Operator:=xlFilterValues
End Sub
Created by DoMyExcel.com © | Excel & VBA Consulting | Customized Excel Solutions starting at 29 USD
No comments:
Post a Comment