Deseo copiar hojas de un libro cerrado a otro abierto, los nombres pueden estar variando.

Lo que pretendo es lo siguiente:

-En un libro abierto, crear una macro para que pregunte el lugar donde se localiza el libro. -Después lo abra

-Copie las hojas al libro abierto,

-Al igual los nombres de dicha hojas pueden estar cambiando.

- Cerrar el libro fuente (el de las hojas para copiado)

Gracias de antemano por las respuestas

Respuesta
Me sirvió lo que hizo Luis, no obstante, hay que corregir la línea
Donde aparece 
hoja.Copy before:=sheets(1) 
a lo siguiente
hoja.Copy before:=Workbooks(mio).sheets(1)
Todo queda así:
Sub ejemplo()
'por luismondelo
mio = ActiveWorkbook.Name
fichero = Application.GetOpenFilename
If fichero = False Then Exit Sub
Workbooks.Open fichero
otro = ActiveWorkbook.Name
For Each hoja In ActiveWorkbook.Sheets
hoja.Copy before:=Workbooks(mio).sheets(1)
Next
Workbooks(otro).Close False
End Sub
Sub ejemplo() 'por luismondelo mio = ActiveWorkbook.Name fichero = Application.GetOpenFilename If fichero = False Then Exit Sub Workbooks.Open fichero otro = ActiveWorkbook.Name For Each hoja In ActiveWorkbook.Sheets hoja.Copy before:=sheets(1) Next Workbooks(otro).Close False End Sub

1 respuesta más de otro experto

Respuesta
1

Te mando mi solución. Ejecuta esta macro en un archivo nuevo y vacío y hará lo que pides:

Sub ejemplo()
'por luismondelo
mio = ActiveWorkbook.Name
fichero = Application.GetOpenFilename
If fichero = False Then Exit Sub
Workbooks.Open fichero
otro = ActiveWorkbook.Name
For Each hoja In ActiveWorkbook.Sheets
hoja.Copy before:=sheets(1)
Next
Workbooks(otro).Close False
End Sub

no olvides finalizar la consulta

muchas gracias, LUIS.

No había podido responder y cerrar la pregunta

por problemas en mi conexión y en mi cuenta.

pero nuevamente GRACIAS.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas