Visual Basic para Aplicaciones - Hacer dos preguntas mediante IF en un boton

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 313
Bronce
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Hacer dos preguntas mediante IF en un boton

Publicado por fjpg (96 intervenciones) el 19/02/2020 13:17:16
Hola buenas.
Quisiera hacer dos preguntas dentro de un mismo boton mediante "IF". Me falta poco pero no consigo hacer que funcione.

Tengo este codigo:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub lb_salir_Click()
    If (MsgBox("¿Esta seguro de salir?", vbCritical + vbYesNo, "CONTROL DE ALMACÉN") = vbNo) Then
        Cancel = True
    ElseIf (MsgBox("¿Quieres guardar los cambios?", vbInformation + vbYesNo, "CONTROL DE ALMACÉN") = vbYes) Then
        ActiveWorkbook.Save
            frm_progreso.Show
            MsgBox "Cambios guardados.", vbInformation, "CONTROL DE ALMACÉN"
 
 
            Application.DisplayAlerts = False
            Application.Quit
 
        Else
       'Aqui creo que me falta algo!!!
        Cancel = True
 
        End If
End Sub

Si a la Pregunta de si quiero salir respondo "No" el codigo funciona.
Si a las dos preguntas (salir y guardar) respondo si el codigo funciona.
Pero si a la pregunta de salir digo Si, y a la segunda de guardardigo No el codigo no funciona (en este paso deberia de cerrar todo sin guardar.


Alguna ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Yersson
Val: 9
Ha disminuido su posición en 2 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Hacer dos preguntas mediante IF en un boton

Publicado por Yersson (2 intervenciones) el 20/02/2020 22:15:41
Hola fjpg, como estas

A tu codigo el la parte que tienes comentado solo falta que agregues:

1
2
3
4
'-------------------------------------------------
Application.DisplayAlerts = False
Application.Quit
'-------------------------------------------------

y listo, con eso cierras el archivo excel sin que se guarden los cambios.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
sin imagen de perfil
Val: 313
Bronce
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Hacer dos preguntas mediante IF en un boton

Publicado por fjpg (96 intervenciones) el 21/02/2020 18:47:35
Tan cerca y creia que tan lejos.....
Gracias Yersson.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar