Blog Archive

About Me

A minha foto
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
2005-01-09






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