Modify Code

[davidhall80]

I'm trying to automate this search, but VB isn't accepting the last 2 lines of code...Any ideas. Code is pretty self explanatory. Thanks in advance


Sub Asso_Name_Search()
On Error Resume Next
ActiveSheet.ShowAllData
First = InputBox("Enter 1st Name String")
Second = InputBox("Enter 2nd Name String")
Selection.AutoFilter Field:=2, Criteria1:=*First*
Selection.AutoFilter Field:=3, Criteria1:=*Second*
End Sub

 

[Norie]

Where are the quotes (") around the criteria?

 

[Jonmo1]

Try like this

Selection.AutoFilter Field:=2, Criteria1:="*" & First & "*"
Selection.AutoFilter Field:=3, Criteria1:="*" & Second & "*"

Hope this helps...

 

[davidhall80]

Thank jonmo1....The quotes we because they weren't exact names....just a peice of the name.

 

[Norie]

David

Sorry but that doesn't really make sense, to me anyway.

Without quotes the code wouldn't even compile.

 

[Jonmo1]

Sorry but that doesn't really make sense, to me anyway.

Without quotes the code wouldn't even compile.

The critiera First and Second, those were Variables, not Text Stings..That's why OP didn't have quotes...

OP was trying to filter on CONTAINS - VARIABLE (First Second)...that's what the * were for...

 

[Norie]

Jonmo

And where in that code where the variables either declared or given a value.

Do you know something I don't?

 

[Jonmo1]

Sub Asso_Name_Search()
On Error Resume Next
ActiveSheet.ShowAllData
First = InputBox("Enter 1st Name String")
Second = InputBox("Enter 2nd Name String")
Selection.AutoFilter Field:=2, Criteria1:=*First*
Selection.AutoFilter Field:=3, Criteria1:=*Second*
End Sub

 

[Norie]

Doh!

Do I feel stupid!!!.

 

[Jonmo1]

Do I feel stupid!!!.

Certainly Not, but you may need an appointment with your Eye Doctor...LOL..