Copiar todas las hojas de un libro a otro que ya tengo

[pearljam]

Buenas a todos, os hago la siguiente consulta a ver si alguien me puede ayudar

Resulta que he estado buscando por el foro y he encontrado estas alternativas:

[URL...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Mario L.]

me sale un error " Subíndice fuera del intervalo (error 9) "

Hola Pearljam

El error se produce debido a que tu archivo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Mario L.]

Adaptando Código a lo que necesitas.

Sub CopiarHojas2()
   Workbooks("Origen.xlsm").Worksheets.Copy After:=Workbooks("Destino.xlsm").Worksheets(1)
End Sub

 

[pearljam]

Muchas gracias por las aclaraciones @Mario Lugo, lo gracioso de todo es que curiosamente no he tocado nada, he reiniciado el ordenador y de repente ha funcionado todo bien por...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Mario L.]

Muchas gracias por las aclaraciones @Mario Lugo, lo gracioso de todo es que curiosamente no he tocado nada, he reiniciado el...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[pearljam]

Perfecto, muchas gracias @Mario Lugo por tu ayuda!