Post by Antonioin una UserFormo volevo mettere due pulsanti "AVANTI" e "INDIETRO" per
scorrere i dati inseriti nelle righe del Foglio1 colonne A:G tramite TextBox
(7) , un aiuto per il codice da inserire. Grazie 1000. Un saluto a tutti.
Oltre al suggerimento di Norman, potresti considerare
l'utilizzo di un Pulsante di selezione.
Questo eventualmente il codice che è in pratica
lo stesso postato da Norman. Ho solo aggiunto
un controllo su eventuali click una volta arrivati
all'ultimo record della tabella di Excel, onde evitare
che le TextBox carichino righe vuote:
Option Explicit
Public iRow As Long
Private Sub SpinButton1_SpinDown()
If iRow > 1 Then
iRow = iRow - 1
End If
Call LoadTextBoxes
End Sub
Private Sub SpinButton1_SpinUp()
Dim ur As Long
With Worksheets("Foglio1")
ur = .Range("A" & Rows.Count).End(xlUp).Row
If iRow <= ur Then
iRow = iRow + 1
Call LoadTextBoxes
End If
End With
End Sub
Public Sub LoadTextBoxes()
Dim WB As Workbook
Dim SH As Worksheet
Dim rng As Range
Dim i As Long
Set WB = ThisWorkbook
Set SH = WB.Sheets("Foglio1")
Set rng = SH.Rows(iRow).Resize(1, 7)
For i = 1 To 7
Me.Controls("TextBox" & i).Value = rng.Cells(i).Value
Next i
End Sub
--
---------------------------
Mauro Gamberini
http://www.riolab.org/