.
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.
if (payload.eventType == ‘subscribe’) {
// Add code to handle subscribe event.
} else if (payload.eventType == ‘unsubscribe’) {
// Add code to handle unsubscribe event.
}
if (window.console) { // for debugging only
window.console.log(‘YT event: ‘, payload);
}
}
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
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
.
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