Macro copia varias hojas y guarda como





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.

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.

Antes de seguir recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.

  

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.

Suscribe a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo formulario que crea un listado de todas las hojas para poder luego seleccionarlas, buscar en listbox mientras escribes en textbox, ordenar hojas libro excel por su nombre, conectar Excel con Access y muchos ejemplos más.






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