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 de Sergio Tapia
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 de Luis Mondelo
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.