ho previsto 2 pulsanti per far scorrere all'interno dei campi della userform i record già
inseriti per un eventuale modifica o cancellazione.
Nel foglio i dati incominciano dalla riga 3, in riga 2 ho le intestazioni dei campi. Io vorrei
che in fase di "scorrimento in su" vengano letti soltanto i dati (quindi fino alla riga 3) e non i campi (riga 2).
Questo è il codice che ho utilizzato per il pulsante "scorri in su":
- Codice: Seleziona tutto
Private Sub CommandButton5_Click()
If ActiveCell.Offset(-1, 0).Value = "Nr.cartella" Then
MsgBox "Inizio elenco"
Exit Sub
End If
ActiveCell.Offset(-1, 0).Select
TextBox2 = ActiveCell.Offset(0, 0).Value
TextBox3 = ActiveCell.Offset(0, 1).Value
TextBox4 = ActiveCell.Offset(0, 2).Value
.....
.....
TextBox24 = ActiveCell.Offset(0, 22).Value
TextBox25 = ActiveCell.Offset(0, 23).Value
TextBox26 = ActiveCell.Offset(0, 24).Value
End Sub
Per completezza riporto il codice relativo all'evento Initialize della userform:
- Codice: Seleziona tutto
Private Sub UserForm_Initialize()
Me.MultiPage1.Value = 0
Worksheets("Foglio1").Range("B3").Select
ComboBox1.RowSource = "B3:B302"
End Sub