Risolto Numerazione progressiva in base a textbox precedente

Cels

Utente abituale
4 Dicembre 2018
335
28
Excel 2016
13
Buongiorno a tutti,
avrei bisogno di un piccolo aiuto per questo problemino, facile per voi, difficile per me ..
In una userform è presente un multipagina che è composta da 3 pagine; nella prima pagina (textbox1) scrivo manualmente un numero, click sul pulsante che mi fa andare alla pagina successiva; nella textbox5 è presente il valore incrementato di 1 della textbox1.
Esempio: nella textbox1 scrivo 58, click sul pulsante, vado nella pagina successiva e nella textbox5 c'è scritto 59;
riapro l'userform e nella textbox1 scrivo 167, vado alla pagina successiva e nella textbox c'è scritto 168.
Spero di aver chiarito l'intenzione, in tal caso chiedete pure .
Grazie in anticipo della vostra disponibilità e buona continuazione
 

ges

Excel/VBA Expert
Amministratore
Expert
21 Giugno 2015
21.644
1.733
Como
2011MAC 2016WIN
462
Ciao,
nella macro del pulsante
Visual Basic:
TextBox5 = TextBox1 + 1
 

Cels

Utente abituale
4 Dicembre 2018
335
28
Excel 2016
13
Ciao ges @ges ,
grazie mille per l'intervento ma non funziona, in realtà ho dimenticato di scrivere che nel button è presente questo codice:
Visual Basic:
If MsgBox("Hai inserito tutti i dati?", vbOKCancel, "Conferma") = vbOK Then
UserForm1.MultiPage1.Value = 1
MultiPage1.Pages(2).Enabled = True
MultiPage1.Pages(1).Enabled = False
End If
il codice in questione mi blocca la prima pagina e mi sblocca la seconda pagina.. mi esce un messaggio che cita "Type mismatch".
Scusami se non ho ben spiegato
 

ges

Excel/VBA Expert
Amministratore
Expert
21 Giugno 2015
21.644
1.733
Como
2011MAC 2016WIN
462
mi blocca la prima pagina e mi sblocca la seconda pagina
E che senso ha?

Prova così
Visual Basic:
Private Sub CommandButton1_Click()
    If MsgBox("Hai inserito tutti i dati?", vbOKCancel, "Conferma") = vbOK Then
        MultiPage1.Page2.Enabled = True
        MultiPage1.Page1.Enabled = False
        TextBox5 = TextBox1 + 1
    End If
End Sub
 
  • Like
Reactions: Cels

Cels

Utente abituale
4 Dicembre 2018
335
28
Excel 2016
13
Grazie ges @ges sei un mito
La tua soluzione è perfetta!
Buona continuazione
 

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!