Disponibilize o arquivo

Aqui vai o arquivo.
obrigado

pedro_m,

Bom dia!

Não sei se entendi corretamente mas... veja se é assim.

Não era o que pretendia, mas fica para futuros formularios.
A minha ideia é ao clicar no butao ele mostrar nas textbox e comboboxs os dados do anterior registo

Olá amigo.
Tenta esses.

Private Sub btnPrimeiro_Click()

Plan1.Activate
Dim UltimaLinha As Object
Set UltimaLinha = Plan1.Range("A3").End(xlUp)
TextBox1.Text = UltimaLinha.Offset(1, 0).Select
Call CarregaDados
End Sub

------------------------------------------------------------------------

Private Sub btnUltimo_Click()
Plan1.Activate
Dim UltimaLinha As Object
Set UltimaLinha = Plan1.Range("A65536").End(xlUp)
TextBox1.Text = UltimaLinha.Offset(0, 0).Select
Call CarregaDados
End Sub

------------------------------------------------------------------------

Private Sub btnAnterior_Click()
Plan1.Activate
Dim total As Variant
total = (Cells(Rows.Count, 1).End(xlUp).Row) - 1

If ActiveCell.Row = 3 Then
MsgBox "Início do Registro"
Else
Cells(ActiveCell.Row, 1).Offset(-1, 0).Select

End If

Call CarregaDados

End Sub

------------------------------------------------------------------------

Private Sub btnProximo_Click()
Plan1.Activate
Dim total As Variant
total = (Cells(Rows.Count, 1).End(xlUp).Row) - 1

If ActiveCell.Row > total Then
MsgBox "Final do Registro"
Else
Cells(ActiveCell.Row, 1).Offset(1, 0).Select

End If

Call CarregaDados

End Sub