searchthis

[reddcannon]

Good afternnon you wonderful folks. You all provided me with the code below and it is fantastic. BUT after using it I realized one problem. we had to change the Lookat:=xlpart to Whole so it would find the exact match to the part number, and that works great, however some part numbers are names and some names are very long, if I change back to xlpart I can search by part of the name but then back to the problem with the part number, example it will go to 275 if I search for 75. Is there an easy solution, see code below

Private Sub CommandButton2_Click()
Dim searchthis As String, Found As Range
Me.Unprotect Password:="123"
searchthis = InputBox("Type Number.", "Property Search")
Set Found = Range("A:A C:C").Find(What:=searchthis, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not Found Is Nothing Then Found.Select
Me.Protect Password:="123"
End Sub

 

[AlphaFrog]

This would do a starts with type search. Would that help?

searchthis = InputBox("Type Number.", "Property Search")
[COLOR="Red"]searchthis = searchthis & "*"[/COLOR]
Set Found = Range("A:A C:C").Find(What:=searchthis, LookIn:=xlFormulas, LookAt:=xlWhole)

Or you could enter the asterisk wildcard in the Input box when you want to do a starts with type search.

 

[reddcannon]

fantastic, thanks a million

 

[AlphaFrog]

You're welcome. The question mark is also a wildcard for a single character.

Wildcard characters

 

[reddcannon]

you all are the best

 

[mikerickson]

Why write a macro that does what cmd+F does without code?

 

[reddcannon]

Because, they want mouse only action for search, so making a button was best, besides we cannot figure out why put on some of the csr computers CTRL +F will not work