Ritornare alla page corrente (multip) dopo chiusura userform

[WCB]

Ciao a tutti,
ho bisogno del vostro aiuto e spero possiate darmi una mano.. Il titolo per esteso è "Ritornare alla page corrente (multipage) dopo chiusura userform".
In una userform è presente un multipagina, alla pagina 3 è presente un button che apre una seconda userform..in questa seconda userform è presente un button che copia i dati e chiude la stessa userform.
Quando clicco sul button e la seconda userform si chiude, mi fa ritornare alla pagina 0 (prima pagina del multipagina).
Io invece vorrei che nel momento in cui la seconda userform si chiude, questa mi ritorni alla pagina 3 (pagina in cui ho cliccato il button ed è uscita la seconda userform).
Come dovrei fare?
Grazie mille in anticipo della vostra disponibilità e buona continuazione

[zsadist]

scusa, non posso provare in questo momento, ma non puoi usare il comando con cui vai alla pagina 3? (uso pochissimo i form, non ricordo i comandi)

[WCB]

Ciao,
tu dici cliccare direttamente sulla linguetta?
Purtroppo non lo posso fare in quanto è presente un codice che, associato a un commandbutton per ogni pagina, se ci clicco mi fa andare alla pagina successiva bloccando quella precedente e viceversa..
Io vorrei proprio evitare di ritornare alla prima pagina, anche perchè ho paura che si perdano i dati che ho inserito precedentemente.
Lo so è una paura irrazionale, però....

[alfrimpa]

Io ho fatto una prova e dopo aver lanciato la seconda userform ed averla chiusa sulla prima userform si rimane sulla page precedente (non la 0) quindi non capisco.

[WCB]

Ciao Alfredo,
quale codice hai utilizzato?
Praticamente le due righe finali del mio codice sono:

Codice: Seleziona tutto

End With
Me.Hide   <<<<<<<<<<<<<<<<<<<Userform2
UserForm1.MultiPage1.Value = 3  <<<<<pagina 3 dell'userform1
End Sub

Sicuro sto sbagliando qualcosa..

[zsadist]

Ciao,
tu dici cliccare direttamente sulla linguetta?
Purtroppo non lo posso fare in quanto è presente un codice che, associato a un commandbutton per ogni pagina, se ci clicco mi fa andare alla pagina successiva bloccando quella precedente e viceversa..
Io vorrei proprio evitare di ritornare alla prima pagina, anche perchè ho paura che si perdano i dati che ho inserito precedentemente.
Lo so è una paura irrazionale, però....

no, non di cliccare, di usare il codice

comunque, in effetti mi sembra strano che ti ritorni alla prima scheda..

non è che hai usato, in uscita, un comando che richiama la prima form?

[alfrimpa]

Io ho costruito due userform.

Sulla prima ho messo un controllo multipage con due pagine; sulla seconda ho messo un commandnutton che apre la seconda userform.

Su questa ho messo un commandbutton con il codice Me.Hide e torno alla prima userform avendo la seconda pagina attiva (ossia da dove ero partito).

[WCB]

Ho costruito la userform così come si presenta nel mio file originale.
Nel file è presente il codice che blocca le altre pagine, di conseguenza, per andare avanti/indietro, dovrete cliccare solo sui button.
Grazie mille dell'aiuto
Link al file: https://we.tl/t-bNSFrlCdkn

[Anthony47]

Mah... a me "molte volte" alla chiusura di UserForm2 (comando Me.Hide) scatta la Sub UserForm_Activate di UserForm1 (che imposta il MultiPage come all'avvio).

Suggerisco di aggirare il comportamento con un flag apposito:
1) in Modulo1 aggiungi la dichiarazione di mLock e la Sub ClearLock:

Codice: Seleziona tutto

Public mLock As Boolean   'RIGOROSAMENTE in testa al modulo

Sub ClearLock()
mLock = False
End Sub

Sub mostra()             ' QUESTA ESISTE GIA'
UserForm1.Show
End Sub


2) Sul codice di chiusura della Userform2 setti mLock=True e scheduli il suo reset dopo pochi secondi:

Codice: Seleziona tutto

Private Sub CommandButton1_Click()
Application.OnTime Now + TimeSerial(0, 0, 3), "ClearLock"     '<<< AGGIUNTA
mLock = True                                                  '<<< AGGIUNTA
Me.Hide
UserForm1.Show
End Sub


3) Sulla UserForm_Activate di Userform1 controlli lo stato mLock per decidere se inizializzare o no il MultiPage:

Codice: Seleziona tutto

Private Sub UserForm_Activate()
If mLock = False Then
'Seguono i comandi esistenti:
    MultiPage1.Pages(0).Enabled = True
    MultiPage1.Pages(1).Enabled = False
    MultiPage1.Pages(2).Enabled = False
    MultiPage1.Pages(3).Enabled = False
End If
mLock = False
End Sub


Il risultato sara' che alla chiusura di UserForm2 mLock impedira' l'esecuzione dei comandi ora inseriti nella Sub UserForm_Activate

Magari qualcun altro trova il modo di bloccare all'origine l'evento UserForm_Activate?

Ciao!

[WCB]

Ciao Anthony,
la tua soluzione è formidabile!
Grazie mille dell'aiuto
P.S. "Magari qualcun altro trova il modo di bloccare all'origine l'evento UserForm_Activate?" cosa vorresti dire con ciò

[Anthony47]

Magari qualcun altro trova il modo di bloccare all'origine l'evento UserForm_Activate?

Io ho messo una pezza per limitare l'impatto della UserForm_Activate; magari qualcun altro, seguendo altri ragionamenti, potrebbe capire come impedire l'insorgere dell'evento Activate, e sarebbe ancora meglio...