In a previous thread I was trying to get some code to work as a search function and after messing with it for a while I finally got it to work-sort of. What I have is a search function and when I run the code it does find the part in the sheet and it displays it in a message box. But it only displays the part number. I need it to also display the location in the message box as well that would shoe the cabinet number and the bin number (column e and f) as well and thats where i am stuck at the moment. I will insert the code here and I will post the sheet as well.
Sub Find_First() Dim FindString As String Dim Rng As Range FindString = InputBox("Enter a Search value") If Trim(FindString) <> "" Then With Sheets("ERGO II Spares").Range("B7:C486") Set Rng = .Find(What:=FindString, _ After:=.Cells(.Cells.Count), _ LookIn:=xlValues, _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False) MsgBox "Found here " & Rng If Not Rng Is Nothing Then Application.Goto Rng, True Else MsgBox "Nothing found" End If End With End If End Sub