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

Hi Tony

Try this

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


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Tony S." wrote in message ...
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

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

"Ron de Bruin" wrote:

Hi Tony

Try this

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


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Tony S." wrote in message ...
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

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

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



Tony S. wrote:

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

--

Dave Peterson

Excellent idea Dave. Thanks for the advice.

"Dave Peterson" wrote:

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

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



Tony S. wrote:

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

--

Dave Peterson