EXCELer Tudo sobre EXCEL em Português
Em vez de utilizarmos Botões de Comando, podemos usar o SpinButton:
O resultado no Formulário é:
O Código:
Private Sub SpinButton1_SpinUp()
nRow = nRow + 1 'Incrementa 1 linha
'mostra os dados
TextBox1.Text = Cells(nRow, "A")
TextBox2.Text = Cells(nRow, "B")
TextBox3.Text = Cells(nRow, "C")
End Sub
Private Sub SpinButton1_SpinDown()
If nRow = 2 Then ' se a linha for a 2 (1ª linha de dados)
Exit Sub 'já não decrementa
Else
nRow = nRow – 1 'Decrementa 1 linha
End If
'mostra os dados
TextBox1.Text = Cells(nRow, "A")
TextBox2.Text = Cells(nRow, "B")
TextBox3.Text = Cells(nRow, "C")
End Sub