To filter data by using ranges instead of specific value
Filter
Sub filt()
sbUnProtectSheet
Sheets("Input Sheet").AutoFilterMode = False
Sheets("Input Sheet").Range("A12:aq12").AutoFilter
Sheets("Input Sheet").Range("A12:aq12").AutoFilter Field:=1, Criteria1:=Sheets("Input Sheet").Range("c6")
Sheets("Input Sheet").Range("A12:aq12").AutoFilter Field:=2, Criteria1:=Sheets("Input Sheet").Range("c7")
End Sub
No comments:
Post a Comment