Macro copia varias hojas y guarda como




Domina Excel Hoy
En este post muestro una macro que crea una copia de varias hojas del libro actual y luego guarda como; anteriormente había mostrado como hacer copia de la hoja actual y guardar como.

Antes de continuar te presento uno de los mejores cursos on line que he visto en internet donde encontrarás todo lo necesario para aprender o profundizar en programación de macros.

En este ejemplo se  muestra como copiar una hoja del libro actual y guardar como; dicha copia tendrá un nombre especifico; en primer lugar se crea una variable que contiene el nombre que se le otorgará al archivo; dicha variable toma el path o ruta actual del archivo que contiene la macro y le adiciona el nombre que queramos; también se puede armar mediante variables, en este post enseño como guardar carpeta y archivos con nombre variable.

Posteriormente se hace una copia de las hojas que necesitamos, en este caso se hace una copia de dos hojas, pero puede ser una cantidad mayor, esto se logra con el código Sheets(Array("Hoja1", "Hoja2")).Copy; luego de ello se procede a guardar como el archivo; en este caso se guarda como un archivo xlsx de Excel, no obstante se puede guardar con cualquier extensión admitida por Excel; por último el ejemplo presenta un msgbox donde avisa que se guardó el archivo o fichero con éxito.




Desde el link del final accederás a descargar en forma GRATUITA del ejemplo denominado Macro copia varias hojas del libro actual y guarda como; ingresando a el sitio web, de cientos de ejemplos de macros y tutoriales que te permitirán automatizar tus hojas de cálculo, en caso de ser útil considera la posibilidad de aportar y con ello ayudarás a seguir manteniendo el sitio.

Suscribe al blog para recibir en tu correo todas las actualizaciones, dispones también de un canal de You Tube donde encontrarás explicaciones de macros con mayor detalle.

Código que se inserta en un módulo



Sub GuardarComoVsHojas()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
nomarchi1 = ActiveWorkbook.Path & "\tuythtomyleedayracolyruyee.xlsx"
Sheets(Array("Hoja1", "Hoja2")).Copy
ActiveWorkbook.SaveAs Filename:=nomarchi1, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close True
MsgBox ("El archivo se guardo con éxito en " & nomarchi1), vbInformation, "AVISO"
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub


Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.


If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends