Macro grabar varias hojas
Desearía saber como hago una macro para que al presionar el botón salir de un userform pueda grabar varias hojas de un libro en otro libro distinto al que tengo en uso pudiendo además indicarle la ruta y el nombre del nuevo libro.
Muchas gracias de antemano por la ayuda que pueda prestarme
Muchas gracias de antemano por la ayuda que pueda prestarme
Respuesta de tavopz
1
Pienso que puedes copiar las hojas de un libro a otro, pero el libro de destino debe estar abierto.
Entonces sería algo como:
Ruta = "C:\Archivos\MiArchivoDestino.xls"
Workbooks.Open Filename:= Ruta
Sheets(Array("Hoja1", "Hoja2", "Hoja3")).Copy Before:=Workbooks("MiArchivoDestino.xls").Sheets(1)
Entonces sería algo como:
Ruta = "C:\Archivos\MiArchivoDestino.xls"
Workbooks.Open Filename:= Ruta
Sheets(Array("Hoja1", "Hoja2", "Hoja3")).Copy Before:=Workbooks("MiArchivoDestino.xls").Sheets(1)
