Search, Copy, and Paste Macro

[Ore_Ele]

I'm trying to make an ELO calculator, but I don't know much about macros (other than the recording feature).

How can I take the contents from cell A4 (on sheet 1), search for it (exact search) on sheet 2, copy the contents of the cell 2 columns over of the search result, and paste those results in cell B2 (on sheet 1)?

When I try doing a record action for the macro, it doesn't copy the search result cell as such but just that cell (so if the result is A13 when I'm recording, it will always do A13, regardless of what search results it gets).

Any help would be greatly appreciated.

 

[VoG]

Possibly

Sub test()
Dim Found As Range
Set Found = Sheets("sheet2").Find(what:=Sheets("Sheet1").Range("A4").Value, LookIn:=xlcalues, lookat:=xlWhole)
If Not Found Is Nothing Then Found.Offset(, 2).Copy Destination:=Sheets("Sheet1").Range("B2")
End Sub

 

[Ore_Ele]

Possibly

Sub test()
Dim Found As Range
Set Found = Sheets("sheet2").Find(what:=Sheets("Sheet1").Range("A4").Value, LookIn:=xlcalues, lookat:=xlWhole)
If Not Found Is Nothing Then Found.Offset(, 2).Copy Destination:=Sheets("Sheet1").Range("B2")
End Sub

Thank you very much.

I'm getting a Run-Time error '438':

Object doesn't support this property or method

For line 2 (starting with "Set Found = ...")

Would it make a difference that it is searching for words, not numbers?