Botões de navegação

[LekaBH]

Olá pessoal!

Preciso de ajuda para fazer os botões de navegação de um formulário que estou criando para registrar atas de reunião.

Como fazer a codificação dos botões PRIMEIRO REGISTRO, REGISTRO ANTERIOR, PRÓXIMO REGISTRO E ÚLTIMO REGISTRO?

Já procurei e encontrei vários códigos, mas nenhum se encaixa no meu método de gravação, que lhes envio abaixo:

'Grava

ThisWorkbook.Worksheets("ATAS").Activate

Range("A2").Select

Do

If Not (IsEmpty(ActiveCell)) Then

ActiveCell.Offset(1, 0).Select

End If

Loop Until IsEmpty(ActiveCell) = True

ActiveCell.Value = txtreg.Value

ActiveCell.Offset(0, 1).Value = cbotipo.Value

ActiveCell.Offset(0, 2).Value = txtdata.Value

ActiveCell.Offset(0, 3).Value = txtnome.Value

ActiveCell.Offset(0, 4).Value = cboredator.Value

If optex.Value = True Then

ActiveCell.Offset(0, 5).Value = "Expatriado"

Else

ActiveCell.Offset(0, 5).Value = "Impatriado"

End If

ActiveCell.Offset(0, 6).Value = txtrh.Value

ActiveCell.Offset(0, 7).Value = txttec.Value

ActiveCell.Offset(0, 8).Value = txtobs.Value

'Chama o msgbox

MessageBox

'Limpa campos

cbotipo.Value = Empty

txtdata.Value = Empty

txtnome.Value = Empty

cboredator.Value = Empty

optex.Value = False

optim.Value = False

txtrh.Value = Empty

txttec.Value = Empty

txtobs.Value = Empty

txtreg.Value = Empty

Muito obrigada!!!

[benzadeus]

Criei um modelo para você adaptar às suas necessidades: https://skydrive.live.com/redir?resid=FB206...10E0661!387