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 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.
1 respuesta más de otro experto
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
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) - Sergio Tapia