Macros

Esto iría en un módulo situado en el libro 23:

Sub CopiarHoja1De22Libros()
Dim n As Byte

Application.ScreenUpdating = False

For n = 1 To 22
With ThisWorkbook
Workbooks("Libro" & n).Worksheets("Hoja1").Copy after:=.Worksheets(.Worksheets.Count)
.Worksheets(.Worksheets.Count).Name = "Libro" & n
End With
Next n

Application.ScreenUpdating = True

End Sub


Se supone que antes de ejecutar el código están abiertos los 22 libros, y que todos tienen una hoja llamada Hoja1. Si esto pudiera no ser así, habría que escribir código que se encargara de verificarlo antes de proceder a la copia.
Un saludo.


Fernando Arroyo
MS MVP - Excel



"Luis" escribió en el mensaje news:00a601c34e26$6547e480$
Hola a todos/as.

Tengo 22 libros abiertos con el nombre: Libro1,
Libro2, Libro22; Todos con la Hoja1 del mismo
formato pero distinto contenido y desearía colocar la
Hoja1 de los 22 Libros en otro Libro (Libro 23)el cual
contendría 22 hojas, cada hoja con el contenido de cada
libro. (Vaya trabalenguas espero que me entendáis)

Pues eso, si alguien sabe como podría hacerse con una
macro, estaría muy agradecido si me ayudara.

Saludos,

Luis.