Cómo funciona JustAnswer:
  • Preguntar a un Experto
    Los expertos tienen muchos conocimientos valiosos y están dispuestos a ayudar en cualquier pregunta. Credenciales confirmadas por una empresa de verificación perteneciente a Fortune 500.
  • Obtener una respuesta profesional
    Por correo electrónico, mensaje de texto o notificación mientras espera en su sitio.
    Haga preguntas de seguimiento si lo necesita.
  • Garantía de satisfacción plena
    Garantizamos tu satisfacción.
Formule su propia pregunta a Jose Mari
Jose Mari
Jose Mari, Grado Superior
Categoría: Informática
Clientes satisfechos: 526
Experiencia:  Técnico informático y Programador.
57600787
Escriba su pregunta sobre Informática aquí...
Jose Mari está en línea ahora

Quiero hacer una macro en Excel 2007 para guardar y salir de

Pregunta del cliente

Quiero hacer una macro en Excel 2007 para guardar y salir de un libro Excel
Alguien me sugirio esta macro pero me deja hacerlo la primera vez y la segunda le agrega una linea y se cae
¿Me pueden ayudar?=
Sub autoclose()
ActiveWorkbook.Saved = True
Application.DisplayAlerts = False
Application.Quit

End Sub
Enviada: hace 6 año.
Categoría: Informática
Experto:  jupalspy escribió hace 6 año.
Prueba con esta y me comentas

Sub macro2()
ActiveWorkbook. Save
ActiveWorkbook. Close Savechanges = True
End Sub

Ahora si lo que quieres es cerrar excel completamente prueba agregar.

Activeworkbook. Save
Activeworkbook. Close

Debe funcionar

Atte: Juan Carbonell
Cliente: escribió hace 6 año.
lo que me hace es agregar texto a la maacro al presionar otros botones
Aqui va la macro
Sub salirsalir()
'
' salirsalir Macro
'

ActiveWorkbook.Save
ActiveWorkbook.Close Savechanges = True
'ActiveWorkbook.Close

'Application.DisplayAlerts = False
'Application.Quit



ActiveSheet.Shapes("Button 10").Select
Selection.Characters.Text = "SALIR"
With Selection.Characters(Start:=1, Length:=5).Font
.Name = "Calibri"
.FontStyle = "Negrita"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Selection.OnAction = "salirsalir"
Range("B1:L1").Select
Application.Goto Reference:="salirsalir"
End Sub
Experto:  Jose Mari escribió hace 6 año.
Buenos días,

Yo te puedo ayudar, ponte en contacto conmigo [email protected]

Por favor, previamente, acepta la respuesta. Gracias.
Jose Mari, Grado Superior
Categoría: Informática
Clientes satisfechos: 526
Experiencia: Técnico informático y Programador.
Jose Mari y otros otros especialistas en Informática están preparados para ayudarle
Experto:  Jose Mari escribió hace 6 año.
Bunas tardes,

Por favor enviame una copia de la hoja de excel a [email protected]

Gracias por aceptar la respuesta. Jose Mari.
Experto:  Jose Mari escribió hace 6 año.
Hola,

Este es el código que tienes que teclear dentro de la macro para que te guarde la hoja de excel automáticamente al ejecutar la macro.

Sub autoclose()
ActiveWorkbook.Save
Application.DisplayAlerts = False
Application.Quit
End Sub

Para cualquier duda o cualquier otra pregunta, puedes ponerte en contacto conmigo en [email protected] para que te pueda presupuestar los trabajos a precios más económicos.
Un saludo,