I need help writing code for a search and replace text box.

[Jayliam]

I would like someone to help with writing a code to be able to enter a number in one text box and have the program use that number to search find it in column A and then display the correlating column B data in another text box. If this is not possible please let me know.

Ian

 

[JackDanIce]

Try:

Sub M1()

Dim str As Variant
Dim rng As range
Dim x  As Long

str = InputBox("Enter value: ")

x = Cells(rows.count, 1).End(xlUp).row
On Error Resume Next
Set rng = Cells(1, 1).Resize(x).find(what:=str, LookIn:=xlValues, lookat:=xlWhole)
On Error GoTo 0

If Not rng Is Nothing Then
    MsgBox "Associated value with: " & str & " is" & vbCrLf & vbCrLf & rng.Offset(, 1).value, vbOKOnly, "Value found"
    Set rng = Nothing
Else
    MsgBox "Value: " & str & " is not found", vbExclamation, "Value not found"
End If

End Sub

 

[Jayliam]

Thank you for your response. Can you please explain what the M1() is and what I need to do with it?

 

[JackDanIce]

M1 is the name of the procedure (script) you wanted written. You need to insert this script into a module and then run it.

You can search online how to run a macro in Excel.