Realizar una macro que me copie el nombre de las hojas de un excel en la columna de otro
Buenas tardes, necesito realizar una macro que me copie los nombres de las hojas de un libro de excel en otro libro de excel,y el contenido de cada hoja.. Ejemplo tengo el libro 1 facturas con las hojas1,hoja2,hoja3, y dentro de cada hoja un contenido en la columna a,b,c necesito copiar esos datos en el libro 2, pero seguido una hoja a continuación de la otra en el mismo orden.
Gracias de antemano por su ayuda.
1 Respuesta
Prueba con esto:
Sheets("Hoja1").Select
Sheets("Hoja1"). Copy
Windows("Libro1"). Activate
Sheets("Hoja2").Select
Sheets("Hoja2").Copy Before:=Workbooks("Libro2").Sheets(1)
Windows("Libro1").Activate
Sheets("Hoja3").Select
Sheets("Hoja3").Copy Before:=Workbooks("Libro2").Sheets(1)
Windows("Libro1"). Activate
¿Algo así?
Buenas gracias por tu pronta respuesta pero la macro me da un error en ejecución en la linea Windows("Libro1").Activate
Si la hoja 1 de tu libro no se llama Hoja1, debes cambiar el nombre y ponerle los nombres que le correspondan
Si ya le coloque los nombres que uso e igual me da error..
Gracias por tu respuesta
Abrí un libro nuevo, Libro1
Le puse y ejecuté tal cual esas instrucciones
... y no me ha fallado
¿Puedes darme una copa del mensaje de error?
Cierra todo libro de excel que tengas abierto, prueba con un libro nuevo, completamente nuevo, como hice yo
Si funciona, la falla es por algo con los archivos que que tenias abierto
