Search Range.. Always Select Cell Certain Column same row

[buzz71023]

I have this code below that searches for whatever is entered in an inputbox. The only columns that will it will search will be columns C and D. After the search is made I want to select the cell in F as the same row as what it finds in C or D.

For instance if the user searches for 101010 and it is found in C11 I would like to select F11. The same goes for if the value is found in D11 I would still like to select whatever is in F11.

Below is what I have so far.

Dim myITEM As String, myRng As Range, NewLoc As String

'Search for Product Code or Lot Number

myITEM = InputBox("Enter what you would like to search for.", "Search", "Enter Here")

Cells.Find(What:=myITEM, LookIn:=xlValues).Activate

'This is where I need to select whatever is F11

 

[VoG]

Try

Dim myITEM As String, myRng As Range, NewLoc As String
Dim Found As Range

'Search for Product Code or Lot Number

myITEM = InputBox("Enter what you would like to search for.", "Search", "Enter Here")

Set Found = Columns("C:D").Find(What:=myITEM, LookIn:=xlValues, lookat:=xlWhole)

If Found Is Nothing Then
    MsgBox "Not found"
Else
    Range("F" & Found.Row).Select
End If

 

[buzz71023]

worked perfectly... Thanks for the quick response