Help/ VBA macro which search particular text

[marek_maro]

Hello everybody,
First of all I want to say that VBA/Macro is not my strongest point. Maybe someone have a couple minutes to help me
I've 2 columns in Sheet1 (data base) whit text in first is names of keys i.e. A1,P14,M18 and in the second column I have where is the key. So I'm looking for macro which will be searching for a key from first column, but in the search result will be place where is this key (the text in second column)
This may help :

Thank you very much!

 

[marek_maro]

I've made something like that :
But I don't know how to make that result of search will be the cell near the name key, and the result of search will by in some kind ActiveX window. The code is a little bit messy because I have tried several solutions....

Sub test()
If ActiveSheet.Name <> "Sheet1" Then Exit Sub
LastRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
SearchTerm = Application.InputBox("What key you looking for?")
Application.ScreenUpdating = False
Range("L1") = SearchTerm
Range("L2:L" & LastRow).FormulaR1C1 = _
"=IF(ISERR(SEARCH(R1C12,RC[-11]&RC[-10]&RC[-9]&RC[-8]&RC[-7]&RC[-6]&RC[-5]&RC[-4]&RC[-3]&RC[-2]&RC[-1])),0,1)"
If WorksheetFunction.CountIf(Columns(12), 1) = 0 Then
Columns(12).Delete
Application.ScreenUpdating = True
MsgBox "Not found"
End If
End Sub

 

[Ingolf]

Hi,

You want only VBA code?
You can make with formula like VLOOKUP.

 

[marek_maro]

Yes, I need only VBA code

 

[Ingolf]

Try this:

Sub FindIt()
[D4] = [IFERROR(VLOOKUP(D2,A1:B500,2,0),"?????")]
End Sub