Excel vba Aprire un'altra UserForm da UserForm Attiva

Question

Buon Giorno a tutti

Ho  cercato in rete qualche esempio per trovare un codice dal quale prendere spunto per  far partire un'altra UserForm tramite pulsante della UserForm attiva , ma quello che ho trovato non mi e' stato utile .

Spiego meglio

Vorrei  Aprire un'altra UserForm  (UserForm2 ) durante l'utilizzo della UserForm1 e fatta l'operazione dalla UserForm2 , tornare alla UserForm1 per continuare le azioni che erano in corso .

Questo mi permetterebbe di apportare correzioni (UserForm2) se durante l'inserimento dati dall'UserForm1 avessi fatto un errore .

Grazie                                  Claudio P

Answer 1

Ciao Claudio,

Ho  cercato in rete qualche esempio per trovare un codice dal quale prendere spunto per  far partire un'altra UserForm tramite pulsante della UserForm attiva , ma quello che ho trovato non mi e' stato utile .

Perchè e in che modo non sono stati utile gli esempi che hai trovato in rete?

Spiego meglio

Vorrei  Aprire un'altra UserForm  (UserForm2 ) durante l'utilizzo della UserForm1 e fatta l'operazione dalla UserForm2 , tornare alla UserForm1 per continuare le azioni che erano in corso .

Questo mi permetterebbe di apportare correzioni (UserForm2) se durante l'inserimento dati dall'UserForm1 avessi fatto un errore .

Se ho capito, la prima Userform viene utilizzata per compliare dati sulla prima riga disponibile sul foglio di interesse mentre la seconda Userform dovrebbe permettere la selezione di una riga di dati già immessa sul foglio e la sua modifica.

In ogni caso, credo che sia opportuno fornire un esempio concreto ed un file  di esempio con le due Userform.

===

Regards,

Norman

Answer 2

Buon Giorno Norman

il file e' lo stesso che avevo messo su DropBox  (Claudio Appello )

Nella UserForm Appello ho aggiunto un Pulsante (cbCorrezioni) che mi Chiude UserForm Appello e Apre l'UserForm Correzioni , che ho creato e che contiene  una ListBox (lbNominativi) ,tre TextBox (tbRiga,tbNominativo,tbPresAssDel)

All'attivazione,la lbNominativi  carica l'elenco dei nomi

Con listBox.clic ; tbRiga carica il nr. riga del nominativo selezionato ,tbNominativo carica il Nominativo selezionato(per verifica)

tbPresAssDel  carica il dato precedentemente inserito  (Presente,Assente,Delega )

Tre  Pulsanti cbP ,cbA,cbD  Modificano lo stato precedentemente inserito (Presente,Assente,Delega)

Un Pulsante (tbTornaAppello) che chiude Correzioni e riapre Appello

Ho provato la strada piu' semplice  per chiudere una e aprire l'altra e viceversa

Con  UserForm   Appello  attiva  ; Pulsante CORREZIONI (cbCorrezioni)

Private Sub cbCorreggi_Click()

10

Appello.Hide

20

   Correzioni.Show

End Sub

Si chiude Appello e si apre  Correzioni

Con  UserForm Correzioni attiva

Private Sub cbTornaAppello_Click() 

10

   Correzioni.Hide

20

   Appello.Show

End Sub

Chiude  Correzioni e torna ad Appello .

Funziona .... pero' mi costringe ad Aggiungere un altro Pulsante (cbContinua)nella UserForm  Appello , per poter continuare la routine senza aggiornare il nr. di riga (tbRiga) .

Siccome  e' troppo semplice mi vengono dei dubbi ....pero' visto che funziona .... per ora lo tengo cosi'

Ti ringrazio per la tua collaborazione

              Grazie  Claudio P