About Me
Estatisticas
2005-01-09
9:56 da tarde | 
Publicada por
JRod - PORTUGAL
Código:
Public nRow As Long 'Declara a Variável como Pública,no início do Módulo
Private Sub UserForm_Initialize() ' Inicia o Form mostrando linha 2
'(1ª linha de dados)
If nRow < 2 Then
nRow = 2
End If
'mostra os dados
TextBox1.Text = Cells(nRow, "A")
TextBox2.Text = Cells(nRow, "B")
TextBox3.Text = Cells(nRow, "C")
End Sub
Private Sub CommandButton1_Click() ' Botão Seguinte
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 CommandButton2_Click() ' Botão Anterior
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
