Macro buscar valores en una hoja diferente

Hola!
Tengo la siguiente inquietud, debo buscar ciertos valores en una hoja y que me lo reemplace por el valor de la celda de al lado, he intentado realizar esto con el comando "buscarv" pero no he podido, incluso grabé el macro y lo modifiqué pero tampoco ha dado resultado :'(, espero que por favor me pudieran ayudar con esto.
Lo que quiero hacer es lo siguiente, tengo mis dos hojas cada una con la siguiente configuración:
HOJA1____________________________HOJA2
_____A__B__C____D______E_______A________B
1____#_#__#___Cod1___Cod2.____Cod2'____Cod2''
2______________101_____1_______101_____103
3______________103_____2_______103_____112
4______________105_____3_______121_____120
5______________112_____4_______112_____101
6______________113_____5_______113_____105
7______________120_____6_______101_____103
8______________121_____7_______121_____112
Quiero que me de como resultado en la Hoja2 lo siguiente:
____HOJA2
_____A________B
1___Cod2'____Cod2''
2_____1________2
3_____2________4
4_____7________6
5_____4________1
6_____5________3
7_____1________2
8_____7________4
Lós códigos de las macros que he intentado hacer son:
Sub Macro1()
Sheets("Hoja2").Select
'Range("E2").Formula = "=VLookup(" & Range("D2") & ",A2:B8,2,FALSE)"
ActiveCell.FormulaR1C1 = "=VLookup(D2:D8,A2:B8,2,FALSE)"
End Sub
Sub Prueba22()
Sheets("Hoja2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-8],Hoja1!R4C4:R2025C5,2,FALSE)"
'ActiveCell.FormulaR1C1 = "=VLOOKUP(A[-8],Hoja1!R4C4:R2025C5,2,FALSE)"
Range("I3").Select
End Sub
Les agradezco la ayuda que me pudieran brindar
0

Añade tu respuesta

Haz clic para o