Jump to content

[SOLUCIONADO] Como me puedo salir de este MsgBox sin que la instrucción se cumpla?


Enock_25

Recommended Posts

Lo que pasa esque tengo el siguiente codigo, pero aunque le de a No la instrucción se sigue cumpliendo, quiero que la instrucción no se cumpla cuando presione No (como debe de ser verdad :)).

Private Sub CommandButton1_Click()

Msj = "¿DESEA COMPILAR ESTOS DATOS?"

Estilo = vbYesNo + vbQuestion + vbDefaultButton1

Titulo = "COMPILAR"

Respuesta = MsgBox(Msj, Estilo, Titulo)

If Respuesta = vbNo Then GoTo continuar

contador = Application.WorksheetFunction.Count(Range("a:a"))

TextBox1 = contador

End Sub

Les agradezco de antemano su apoyo.

Link to comment
Share on other sites

Re: Como me puedo salir de este MsgBox sin que la instrucción se cumpla?

Colocas un goto continuar, pero no la etiqueta. Un ejemplo para que te guies:

Dim rpta

rpta = MsgBox("¿Si o no?", vbYesNo + vbApplicationModal + vbDefaultButton1, "RESPONDE")

If rpta = vbNo Then

MsgBox "NO"

Exit Sub

End If

MsgBox "SI"

End sub

Abraham

Link to comment
Share on other sites

Re: Como me puedo salir de este MsgBox sin que la instrucción se cumpla?

prueba con esto

if msgbox("DESEA COMPILAR ESTOS DATOS",VBINFORMATION+VBYESNO,"LO QUE GUSTES")=VBYES THEN

'Aqui va tu macro en caso de que seleccionen que si

Else

'aqui debes de poner el fin de la instruccion

Unload 'el nombre de tu userform

End If

End Sub

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

Privacy Policy