• 0
Sign in to follow this  
LekaBH

Botões de navegação

Question

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!!!

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this