Inputbox macro filter using "Contains"

[Tony S.]

I'm trying to use a macro to filter partial info in the cell. I can't figure
out what to replace the "=" with to allow "Contains" to be searched for.

Sub filter3()
c1 = InputBox("Enter Partial #")
Range("A2:A9912").AutoFilter Field:=1, _
Criteria1:="=" & c1, Operator:=xlAnd '--------Problem ------
End Sub

Any help would be appreciated.
Tony

 

[Ron de Bruin]

Hi Tony

Try this

Criteria1:="=*" & C1 & "*"

 

[Tony S.]

Holly cow! So fast and so accurate. That did exactly what I needed. Thanks
you very much Ron!

 

[Dave Peterson]

Record a macro when you filter using contains and you'll see that excel
surrounds your text with asterisks:

Criteria1:="=*" & c1 & "*"

 

[Tony S.]

Excellent idea Dave. Thanks for the advice.

Record a macro when you filter using contains and you'll see that excel
surrounds your text with asterisks:

Criteria1:="=*" & c1 & "*"