togglebutton

Hai un problema con Excel?

Nuova discussione

togglebutton
di accordix data: 14/02/2016 19:20:23
su un form ho messo 2 label, un togglebutton e un pulsante
su un altro form una casella di testo

quando clicco sul togglebutton mi cambia lo stato della caption della label da ATTIVA passa a SOSPESA o viceversa, mi apre userform2 e nella casella di testo mi compare la caption della label e mi scrive nella cella a1 del foglio prova lo stato true o false.

quando faccio partire il "programma" va a leggere la cella a1 del foglio prova e a secondo di quello che contiene mette attiva o sospesa nella label mi cambia lo stato del togglebutton
perche quando ci sta true mi apre userform2?

la label "Altre info" apre userform2

ho allegato un file
di accordix data: 15/02/2016 21:55:01
nessuno mi si fila?
di patel data: 16/02/2016 12:02:16
Nessuno perché hai allegato un file in cui si capisce poco, non c'è una sub di avvio, non si sa cosa vuoi fare....
di accordix data: 16/02/2016 12:10:50
ricaricato con autoapertura

quello che vorrei capire come fare a non far aprire la form2 all'avvio del programma quando ci sta "VERO" in a1
tutto qui

di patel data: 16/02/2016 13:18:07
perché se in A1 c'è vero attivi il ToggleButton1 ed appare la userform2, il codice l'hai scritto tu.
se togli ToggleButton1.Value = True ottieni quello che cerchi.
Forse tu volevi usare visible invece che value

Sub UserForm_Activate()

Set sh = Worksheets("Prova")

If sh.Cells(1, 1) = True Then
    Label1.Caption = "ATTIVA"
    'ToggleButton1.Value = True
ElseIf sh.Cells(1, 1) = False Then
    Label1.Caption = "SOSPESA"
    ToggleButton1.Value = False
End If

End Sub

di accordix data: 16/02/2016 15:41:54
io voglio che userform2 esce solo se clicco su togglebutton1
....ma forse devo metterci un pulsante al posto del toggle

di patel data: 16/02/2016 18:24:26
con un normale pulsante non avrai questi problemi

Sub UserForm_Activate()

Set sh = Worksheets("Prova")

If sh.Cells(1, 1) = True Then
    Label1.Caption = "ATTIVA"
ElseIf sh.Cells(1, 1) = False Then
    Label1.Caption = "SOSPESA"
End If

End Sub

di accordix data: 16/02/2016 20:16:55
quello che ho fatto

Vuoi Approfondire?