buscar y copiar datos de otro libro

[Manuyes 12]

Hola,

estaba intentando hacer una  macro en el libro inventario que al ejecutarla me abra el libro datos2 y vaya recorriendo la columna producto y comparando cada dato de dicha columna con el que hay en la columna producto del libro inventario, si lo encuentra me copie en el libro inventario el dato que ha encontrado siete  columnas a la derecha en la columna cantidad (.offset (0,7)), y si no lo encuentra copie el código, producto y cantidad al final del todo, en la primera fila vacía del libro inventario, pero me estoy liando un poco....

El libro datos2 cambia todos los meses, por eso quiero copiar los datos del mismo en el libro inventario

gracias por la ayuda

Datos2.xlsx Inventario.xlsm

[Haplox 1,084]

@Manuyes , te dejo una solución. prueba y comenta

 

Inventario.xlsm

[Manuyes 12]

Muchas gracias Haplox, 

aunque al principio no me funcionaba, quería copiar los datos de la columna cantidad del libro datos en la codumna cantidad del libro inventario, supongo que no me explique bien.

Al final modificando lo que esta en negrita en tu código creo que he conseguido que lo haga. 

 For Each Celda In Range("D7:D" & uFo)
    uFd = wsDestino.Range("A7:A" & Rows.Count).End(xlDown).Row + 1
    Set encontrado = wsDestino.Range("A7:A" & uFd).Find(Celda)
        If Not encontrado Is Nothing Then
                Celda.Offset(0, 3).Copy wsDestino.Cells(encontrado.Row, 8)
        Else

No se si es lo más correcto, pero parece que funciona

Tengo que seguir probándolo.

Muchas gracias, era lo que necesitaba. podemos dar el tema por cerrado

[Haplox 1,084]

Hace 1 hora, Manuyes dijo:

No se si es lo más correcto, pero parece que funciona

Si funciona entonces es lo más correcto . Si que es una buena forma, no sé si no te explicaste o yo no entendí nada...