Hola a todos,

Adjunto tres archivos. Necesito macro para automatizar copia mensual de datos.

Los archivos origen son RP DE 0913 y RP FR 0913. DE es Alemania y FR Francia. 0913 es el mes. sept.

El archivo destino es el NDC (ver adjunto). Tiene q copiar desde la hoja PYG y Balance de RP DE 0913 en la hoja Alemania de NDC en el rango correspondiente, tanto balance como PYG. Luego lo mismo con Francia ...asi en bucle y con variables.

Cada mes, cuando abro el archivo NDC que me haga la copia automaticamente. Cuando termine con todos, cierro el automatismo y hasta el mes siguiente.

Un saludo y gracias

RP FR 0913.xls

RP DE 0913.xls

NDC 2013 (MACRO).zip

Hola, sugiero hacerlo manualmente con la grabadora encendida, subir el ejemplo con el codigo generado y te ayudaremos a depurarlo.

Ejemplo para la grabadora:

Mi primer macro en excel : Hojas de cálculo Excel

Hola Armando,

Gracias por la respuesta. Ya he añadido adjunto despues de la literatura el codigo de la macro realizada con la grabadora. Hasta ahi ya llego.

Los problemas que tengo son los sigueintes :

No sé como funciona el comando : ActiveWindow.SmallScroll Down:=-3

Abre los archivos origen RP FR 0913 ... tiene q detectar el país FR=Francia en destino y el mes, columna Septiembre o 9 en destino.

No sé como hacer eso con variables ...

El bucle sigue y el siguiente origen es RP DE 0913 ... tiene q detectar el país =Alemania en destino,columna Septiembre o 9 en destino.

La relacion es nombres de archivo FR en origen con nombres de hoja en destino Francia. Eso con variables y bucles pq son muchos paises...

A ver si me podéis dar una idea d como hacerlo ... gracias ...

Sub copiardatos()

'

' copiardatos Macro

' copiar balance y cta rdos

'

'

Windows("RP DE 0913.xlsx").Activate

ActiveWindow.SmallScroll Down:=-3

Range("J5:J12").Select

Selection.Copy

Windows("NDC 2013 (MACRO).xlsx").Activate

ActiveWindow.SmallScroll Down:=-6

Range("K7").Select

ActiveSheet.Paste

Windows("RP FR 0913.xlsx").Activate

Windows("RP DE 0913.xlsx").Activate

Sheets("Balance").Select

Range("L12:L20").Select

Application.CutCopyMode = False

Selection.Copy

Windows("NDC 2013 (MACRO).xlsx").Activate

Range("K23").Select

ActiveSheet.Paste

Windows("RP DE 0913.xlsx").Activate

Windows("RP FR 0913.xlsx").Activate

Sheets("PYG").Select

Range("J5:J12").Select

Application.CutCopyMode = False

Selection.Copy

Windows("NDC 2013 (MACRO).xlsx").Activate

Sheets("Francia").Select

Range("K7").Select

ActiveSheet.Paste

Windows("RP FR 0913.xlsx").Activate

Sheets("Balance").Select

Range("L12:L20").Select

Application.CutCopyMode = False

Selection.Copy

Windows("NDC 2013 (MACRO).xlsx").Activate

Range("K23").Select

ActiveSheet.Paste

End Sub