............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Macro para guardar

Ver el tema anterior Ver el tema siguiente Ir abajo

Macro para guardar

Mensaje por cbyto el Mar Mayo 19, 2009 11:21 pm

Hola buenas noches a todos.
Les hago una consulta......tengo una macro simple y tonta que al ejecutarla guarda el archivo y sale.
Mi pregunta es...... se puede hacer que en ves de guardar el archivo pregunte si lo quiero guardar. En cuyo caso si contesto SI, lo guarde y salga; y si contesto NO, salga directamente.

Gracias

cbyto

Masculino Cantidad de envíos : 58
Edad : 39
Ciudad - Pais : Argentina
Version de Excel : 2003-2007-2010
Fecha de inscripción : 31/07/2008

Volver arriba Ir abajo

Re: Macro para guardar

Mensaje por GalileoGali el Miér Mayo 20, 2009 8:32 am

Facilita el codigo que tienes hasta ahora.
Pero yo me pregunto: ¿La accion por defecto de Excel, no es exactamente esa?. Es decir, si anulas tu Macro, ¿no ocurrira exactamente eso?

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional

GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Macro para guardar

Mensaje por cbyto el Dom Mayo 24, 2009 5:40 pm

El codigo es el siguiente
Sub Salir()
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

En realidad lo que decis es asi......pero queria hacer, si se podia, algo mas "elegante"

Saludos

cbyto

Masculino Cantidad de envíos : 58
Edad : 39
Ciudad - Pais : Argentina
Version de Excel : 2003-2007-2010
Fecha de inscripción : 31/07/2008

Volver arriba Ir abajo

Re: Macro para guardar

Mensaje por GalileoGali el Dom Mayo 24, 2009 6:27 pm

Ahi va mi interpretación de salida "Elegante"


_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional

GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Macro para guardar

Mensaje por jairga el Dom Mayo 24, 2009 6:40 pm

Me gano gali de mano pero igual hay va.

Código:
Sub Salir()
X = MsgBox("Deseas Guardar los cambios realizados", vbYesNo + vbQuestion, "Opción")
If X = vbYes Then
ActiveWorkbook.Save
ActiveWorkbook.Close
Else
Application.DisplayAlerts = False
ActiveWorkbook.Close
End If
End Sub

jairga
Moderador
Moderador

Masculino Cantidad de envíos : 163
Edad : 39
Ciudad - Pais : Cartagena-Barranquilla(Colombia)
Version de Excel : XP-2003-2007
Fecha de inscripción : 11/03/2008

Volver arriba Ir abajo

Re: Macro para guardar

Mensaje por cbyto el Dom Mayo 24, 2009 6:42 pm

Jajajajaja
Me causo mucha gracia todo el texto.

Muchas gracias Gali

cbyto

Masculino Cantidad de envíos : 58
Edad : 39
Ciudad - Pais : Argentina
Version de Excel : 2003-2007-2010
Fecha de inscripción : 31/07/2008

Volver arriba Ir abajo

Re: Macro para guardar

Mensaje por cbyto el Dom Mayo 24, 2009 6:43 pm

cbyto escribió:Jajajajaja
Me causo mucha gracia todo el texto.

Muchas gracias Gali

Jaringa, gracias a vos tambien

cbyto

Masculino Cantidad de envíos : 58
Edad : 39
Ciudad - Pais : Argentina
Version de Excel : 2003-2007-2010
Fecha de inscripción : 31/07/2008

Volver arriba Ir abajo

Re: Macro para guardar

Mensaje por GalileoGali el Dom Mayo 24, 2009 8:02 pm

Bueno, me alegro de haber provocado alguna sonrisa...era la intención...

Me permito un comentario transcribiendo parte de la ayuda:
Valor...............Acción
True...............Guarda los cambios del libro. Si aún no tiene asociado un nombre de archivo, se usará FileName. Si FileName se omite, se pedirá al usuario que especifique un nombre de archivo.
False...............No guarda los cambios del archivo.
Omitido............Muestra un cuadro de diálogo en el que se pregunta al usuario si desea guardar los cambios

Es decir poniendo 1 o True, se evita un Save
o
poniendo 0 ó FALSE, PERO NO OMITIDO, se evita un DisplayAlerts = False

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional

GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Macro para guardar

Mensaje por Contenido patrocinado Hoy a las 12:39 pm


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.