Saturday, April 20, 2019

To filter data by using ranges instead of specific value

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