Hacer dos preguntas mediante IF en un boton
Publicado por fjpg (135 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:
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
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 = TrueElseIf (MsgBox("¿Quieres guardar los cambios?", vbInformation + vbYesNo, "CONTROL DE ALMACÉN") = vbYes) Then
ActiveWorkbook.Save frm_progreso.ShowMsgBox "Cambios guardados.", vbInformation, "CONTROL DE ALMACÉN"
Application.DisplayAlerts = False
Application.QuitElse
'Aqui creo que me falta algo!!! Cancel = TrueEnd 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
0
