Crie um formulário com dois botões de comando chamados btnPrevious e btnNext, e uma caixa de texto chamada TextBox1. Cole o código abaixo no módulo do formulário:
Const mcstrCol As String = "A"
Const mcstrWorksheet As String = "Plan1"
Dim mwks As Excel.Worksheet
Dim mlngRow As Long
Private Sub btnNext_Click()
Dim lngLast As Long
lngLast = mwks.Cells(mwks.Rows.Count, mcstrCol).End(xlUp).Row
If mlngRow >= lngLast Then Exit Sub
mlngRow = mlngRow + 1
fUpdateForm
End Sub
Private Sub btnPrevious_Click()
If mlngRow <= 2 Then Exit Sub
mlngRow = mlngRow - 1
fUpdateForm
End Sub
Private Sub fUpdateForm()
Me.TextBox1.Text = mwks.Cells(mlngRow, mcstrCol)
End Sub
Private Sub UserForm_Initialize()
Set mwks = ThisWorkbook.Worksheets(mcstrWorksheet)
mlngRow = 2
fUpdateForm
End Sub
Os dados para testar esse programa deverão estar na coluna A, iniciando na linha 2, numa planilha chamada Plan1.
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
