Copiar datos con seleccion

[estepanuno]

Holoa a todos

Me gustaria, si pudiera ser, una macro que me buscara de la columna B de la hoja 1 y me la comparara en la hoja 2 con el listado que tiene, al encontrar una coincidencia deberia copiarme el dato de la columna C en el sitio correspondiente

agradecer a todos vuestro tiempo

prueba copiar.rar

[AlexanderS]

Hola estepanuno copia este código en un modulo normal y lo ejecutas.

Sub compara()

Application.ScreenUpdating = False

Dim x As Range

Sheets(2).Activate

For Each cel In Sheets(2).Range("A2:A" & [A2].End(xlDown).Row)

Set x = Sheets(1).Range("B:B").Find(cel.Value, lookat:=xlWhole)

If Not x Is Nothing Then x.Offset(, 1).Copy cel.Offset(, 1)

Next

End Sub[/CODE]

Comentas como te fue.

Salu2