MACRO PARA «GUARDAR COMO»

Muchas veces, cuando realizamos un trabajo en Excel, un pequeño programa o simplemente un informe, a veces resulta muy útil tener una macro que nos ayude a guardar un archivo concreto.

La macro que os propongo funciona de la siguiente forma, imaginad  que tenéis una hoja Excel «Pedido» y queréis exportarla pero creando una nueva hoja idéntica sin modificar la anterior.

Esta macro crea una nueva hoja, invoca el cuadro de diálogo de «Guardar Como» de Excel y permite guardar una copia de la hoja a exportar en el lugar que consideréis más oportuno y además la podéis renombrar. Cuando finaliza el guardado, cierra la nueva hoja y no solicita el mensaje de «Desea guardar los cambios efectuados en «Pedido»?.

Sub Exportar_Pedido()
Sheets("Pedido").Select
Sheets("Pedido").Copy
Application.Dialogs(xlDialogSaveAs).Show
Application.DisplayAlerts = False
ActiveWindow.Close
End Sub

Si en la propia página que vais a hacer la copia y el guardado, tenéis un botón donde estáis aplicando la macro, tendréis que hacer que cuando se ejecute, además de todo lo anterior, elimine el botón de la macro que se ha copiado en la hoja nueva. Para ello basta con que incorporéis la siguiente línea en el código:

ActiveSheet.Shapes("BUTTON 1").Select
Selection.Delete

Es decir, quedaría de la siguiente forma:

Sub Exportar_Pedido()
    Sheets("Pedido").Select
Sheets("Pedido").Copy
ActiveSheet.Shapes("BUTTON 1").Select
Selection.Delete
Application.Dialogs(xlDialogSaveAs).Show
    Application.DisplayAlerts = False
ActiveWindow.Close
End Sub


Descarga el archivo pulsando en: GUARDAR COMO

Saludos

¿Te ha resultado de interés?, puedes apoyar a Excel Signum con una pequeña donación.

¡¡Muchas gracias!!