Spunta su checkbox

Hai un problema con Excel?

Nuova discussione

Spunta su checkbox
di tod2000 (utente non iscritto) data: 02/02/2013 10:35:46
buongiorno,
ecco il mio problema:
in una userform ho una textbox e una checkbox. Può capitare di non inserire nessun dato nella textbox e la macro qui sotto svolge il suo compito regolarmente; però riciclando mi propone 2 volte il messaggio "MANCANO DATI CLIENTE".
La causa è della riga CheckBox1.Value = False, ma io desidero che quando la routine esce con la riga Exit Sub, la spunta della checkbox sia tolta.
Come posso fare?
grazie per l'aiuto
Private Sub CheckBox1_Click() If TextBox1 = "" Then MsgBox "MANCANO DATI CLIENTE" CheckBox1.Value = False Exit Sub End If '........ End Sub

di HarryBosch data: 02/02/2013 10:55:46
Il messaggio esce due volte perché nel momento in cui deselezioni la check la routine riparte; pertanto quel Exit sub serve a saltare le istruzioni successive. Ma le prime istruzioni vengono appunto ripetute.

Comunque potresti risolvere con un controllo sul Check: non è sufficiente che sia vuoto per impedire il codice?

Private Sub CheckBox1_Click()
If CheckBox1 = False Then Exit Sub
    If TextBox1 = "" Then
        MsgBox "MANCANO DATI CLIENTE"
        CheckBox1.Value = False
        Exit sub
    End If
'altre istruzioni che non vengono eseguite
End Sub

Vuoi Approfondire?