Risolto Numerazione progressiva in base a textbox precedente

Cels

Utente abituale
4 Dicembre 2018
186
28
Excel 2016
4
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 SmileFace.
Grazie in anticipo della vostra disponibilità e buona continuazione cappello_saluta
 

ges

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

Cels

Utente abituale
4 Dicembre 2018
186
28
Excel 2016
4
Ciao ges @ges ,
grazie mille per l'intervento ma non funziona, in realtà ho dimenticato di scrivere che nel button è presente questo codice MartelloTesta:
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 :scoppola::scoppola:
 

ges

Excel/VBA Expert
Amministratore
Expert
21 Giugno 2015
18.842
113
Como
2011MAC 2016WIN
353
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
186
28
Excel 2016
4
Graaaazieee ges @ges sei un mito :applausi::applausi:
La tua soluzione è perfetta!
Buona continuazione cappello_saluta
 

Sostieni ForumExcel

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