Hacer una pregunta al hacer click en CommandButton1
Como secuencia utilizar para pregunta que si desea continuar sabieno que un checkbox1 no esta cojetado y si responde que no tornar.
Pero si el checkbox1 esta cotejado que no pregunte nada.
1 respuesta
Tengo un commandButton1 que registra datos en una hoja de impresión.
También tengo checbox1 que imprime la hoja de impresión.
Lo que quiero es que si presionan el commandbutton1 y el chebox1 no esta activado que ponga un mensaje que si sabiendo esta situación aun quiere seguir a registrar.
Te anexo el código
Private Sub CommandButton1_Click()
' desproteger hoja
ActiveSheet.Unprotect Password:="123"
'comfirmacion de Jugada
If MsgBox("Se Procederá a Guardar la Jugada?", vbQuestion + vbYesNo) = vbNo Then Exit Sub
'Valida el monto
For i = 0 To ListBox1.ListCount - 1
totfac = totfac + ListBox1.List(i, 2)
Next
If totfac > 100 Then
MsgBox "La factura excede 100", vbCritical, "Error"
Exit Sub
End If
If CheckBox1 = False Then
If MsgBox("La opción de imprimir no está marcada, Guardar jugada ?", vbQuestion + vbYesNo) = vbNo Then Exit Sub
End If
Saludos. Dam
Si es lo que necesitas.
