Search button

[cannonmkt]

I have excel 2010 and I have a search button for my spreadsheet where I can search by name or part number. I works and highlites the found data green, that works perfect, HOWEVER, for some reason it moves the mouse to the first cell on next line on spreadsheet instead that line. I need the mouse to be on the column b on same line the found data is on. I entered code below
Code>
Private Sub CommandButton6_Click()
Dim SearchThis As String, Found As Range
Me.Unprotect Password:="123"
SearchThis = InputBox("Type Number or name.", "Property Search")
SearchThis = SearchThis & "*"
Set Found = Columns("c:k").Find(What:=SearchThis, LookIn:=xlFormulas, LookAt:=xlPart)
If Not Found Is Nothing Then
With Found
.Select
.Interior.ColorIndex = 4
End With
End If
Me.Protect Password:="123"
End Sub
Code >

thanks in advance for any help you may provide

 

[jproffer]

You're searching in columns C:K and then telling it to Select the found range.

Maybe try this:

With Found
    .Offset(0,-1).Select
    .Interior.ColorIndex = 4
End With

Or

Range("B" & Found.Row).Select

not sure about that one...and of course if it find what you want in column K, then the first idea will only move over to column J.

Also maybe .End(XlToLeft).offset(0,1).Select

Again, not sure about that one either...just some ideas

 

[cannonmkt]

OMG you rock, the Range("B" & Found.Row).Select worked perfect. You folks are wonderful

 

[jproffer]

Glad one of them worked for you. Glad to help . Thanks for the feedback.