Excel - Gracias Haver_Soporte.Sigo teniendo problemas

Primero gracias "haver_soporte" por contestar tan rápido y eficazmente, ...he probado la fórmula y no se porque me da un error en :

Workbooks(origen).Range("A2:M2").Copy Destination:=Workbooks(destino).Range("A " & finalrow + 1) . Creo que no encuentra los libros de origen y de destino...voy a seguir probando cosas

si se os ocurre algo, os agradecería vuestra consejo.

Saludos a todos


Hola a todos,

necesito hacer una macro que coga información de distintos archivos que tengo en una carpeta y los pegue en otro Libro de Excel, que será un libro Resumen.

Me han comentado que es un nivel de excel avanzado, y no se como hacerlo, si me pudierais decir el código para que la macro haga lo siguiente;

- abrir archivo "Rapport_Comercial_Cliente1"
- copiar datos (A2:M2)
-pegarlos en "LibroResumen"(con ubicación distinta a la carpeta); la primera fila de datos se tendría que pegar en la Fila2
-cerrar el archivo
.
.
. la idea es hacer un bucle aquí, y que vaya repitiendo la misma acción, pero cambiando el nombre del archivo (que es distinto para todos) y pegando la información en la fila siguiente en el LibroResumen
.
.
.
-abrir archivo"Rapport_Comercial_Cliente100"
-copiar datos(A2:M2)
-pegarlos en "LibroResumen"(con ubicación distinta a la carpeta); la primera fila de datos se tendría que pegar en la Fila101
-cerrar archivo

Espero haberme explicado bien, se que es un poco complicado pero si alguien pudiese ayudarme estaría muy agradecido.

Muchas Gracias



Prueba esto:

Sub copia()
'variables
Dim i As Integer
Dim origen As String
Dim destino As String
'el i emprezara en 1 y aumentara hasta 100
For i = 1 To 100
'Abro el primer archivo la i es el numero que ira aumentando
'archivo1.xls , archivo2.xls etc en la ubicacion C
Workbooks.Open ("C:\Archivo" & i & ".xls")
'Asigno el nombre del libro a una variable
origen = ActiveWorkbook.Name
'Abro el libro destino
Workbooks.Open ("C:\Archivo back.xls")
'Asino el nombre a variable
destino = ActiveWorkbook.Name
'localizo la ultima fila
finalrow = Range("A65536").End(xlUp).Row
'Copio y pego los valores
Workbooks(origen).Range("A2:M2").Copy Destination:=Workbooks(destino).Range("A " & finalrow + 1)
'Cierro y salvo lo necesario
Workbooks(origen).Close False
Workbooks(destino).Close True
Next

End Sub

MMM seria de ver tus archivos y como los tienes...si quieres te dejo mi msn [email protected]