Comparar 2 listas y copiar el valor de las celdas contiguas si lo comparado son iguales

[jechulandia]

Hola amigo,quisiera su ayuda, lo que quiero es comparar 2 listas, lista1 y lista2 y si el valor de la lista2 es igual al valor de la lista1 entonces que me copie el dato de la celda de al costado ejm si lo encontre en b5 entonces que me copie el valor de c5 y lo copie en la hoja2 del mismo libro.El formato y una mejor explicacion lo adjunto en un archivo.

Desde ya gracias por su cooperacion.

Comp.rar

[Toldeman]

Hola.

Te subo el archivo con formulas, prueba si te sirve en las tablas donde están puestas.

Un saludo.

2.xls

[Toldeman]

Hola.

Tambien te dejo esta macro:

Sub n()
Dim cel, cel1 As Range
For Each cel In Hoja1.Range("I10:I15")
x = 1
On Error Resume Next
Range("B4,E4,H4,K4,B19").Find(cel.Value).Select
p = ActiveCell
For Each cel1 In Hoja1.Range("A10:A17")
If p = cel1.Value Then
x = x + 1
ActiveCell.Offset(x, -1) = cel1.Offset(, 1)
ActiveCell.Offset(x, 0) = cel1.Offset(, 4)
End If
Next
Next
End Sub

Un saludo.

[jechulandia]

Amigo te adjunto un macros que estoy trabajando, pero tengo un problema con el IF dentro de un FOR. en el libro te dejo una explicacion, gracias por tu funcion ,si funciona bien , pero quisiera hacerlo por un macros.

Problema con if.rar

[Toldeman]

Hola.

Si dices que la funcion trabaja bien, entonces la macro que te propuse debe hacerlo de igual manera ya que hace exactamente lo mismo que la funcion.

Un saludo.