Hola amigos, paso a explicarles un tema que me surgió con mi software comercial.

El sistema tiene un reconocimientos de códigos nuevos al actualizar una lista de precio.

Al actualizar me pregunta el sistema si deseo generar un excel con los artículos nuevos.

Al guardarlo, veo que me genera la misma planilla de importación que uso habitualmente pero la columna descripción no.

Quiero saber como puedo tomar esa descripción desde el archivo original.

Adjunto archivos de ejemplo

 

 

EXPORTA_SISTEMA.xlsx libroOriginal.xlsx

Hola

Adjunto mi versión, ambos libros deben estar en la misma carpeta

 

Saludos 

Obtener datos de otro libro_GP.zip

Hola @Gerson Pineda tiene un error el código

este
Set RangoC = Range("B:B"): Set vlh = Workbooks(vno).Sheets("Hoja1").Range("A:A") erro9
por este
Set RangoC = Range("B:B"): Set vlh = Workbooks(libroOriginal.xlsx).Sheets("Hoja1").Range("A:A")

este
Workbooks(vno).Close savechanges:=0
por este
Workbooks(libroOriginal.xlsx).Close savechanges:=0

y así ya funciona

Hola isidro

Pues a mi me funciona perfecto tal como lo subí

 

Saludos

bueno  @Gerson Pineda a lo mejor solo  sea en mi maquina y @exekyel2010 le funcione asi como lo subiste gracias

saludos isidro

@Gerson Pineda Ante todo muchas gracias por el aporte, rápido y efectivo! 

Me funciona correctamente, discúlpame el atrevimiento pero me interesaría saber si me podes explicar como funciona ya que tengo que hacer esto mismo con otras 30 listas. Estoy mirando la macro y creo entenderla, pero quizá se me escapa algo.

Hace 56 minutos , isidrod dijo:

bueno  @Gerson Pineda a lo mejor solo  sea en mi maquina

Es mas, si solo esos 2 libros están abiertos, no se necesita ni el nombre del segundo archivo

Hace 53 minutos , exekyel2010 dijo:

@Gerson Pineda Ante todo muchas gracias por el aporte, rápido y efectivo! 

Pues mientras pueda y tenga tiempo, con gusto he colaborado

Hace 53 minutos , exekyel2010 dijo:

Estoy mirando la macro y creo entenderla, pero quizá se me escapa algo.

¿Puntualmente que se te "escapa"?

 

Saludos