Este fórum está sendo desativado

[Djaramos]

Boa noite.
Estou finalizando minha planilha, e agora surgiu um problema:
Gravei uma macro para apagar o ultimo registro digitado, caso o usuario erre, o problema, é que o se mesmo ficar clicando no botão,
este vai apagando todos os itens e ao encontrar o cabeçalho, vai para última célula da planilha travando-a.
Gostaria de incluir uma mensagem perguntando se deseja excluir o último item(sim ou não).
A planilha possuir tres botões, GRAVAR, APAGAR e VOLTAR
è possível uma pergunta " os dados estão corretos" antes de gravar efetivamente.
Conto mai uma vez com a colaboração.
Obrigado

[alexandrevba]

Bom dia!!

Essa vai para o botão Gravar, use o raciocínio para o restante

Código: Selecionar todos

Sub macro11()
'
' macro11 Macro
'Esta macro foi feita, baseada nas auilas 6 e 7 de VBA.
Dim resultado As VbMsgBoxResult
     resultado = MsgBox("os dados estão corretos?", vbYesNo, "Gravar dados")
     If resultado = vbYes Then
              Range("C4,C6,C8,C10,C12").Select
    Selection.Copy
    
    Range("B1048576").Select
    'Por que é necessário ir até o fim da coluna?
    Selection.End(xlUp).Select
    'Este comandovai até a útima célula preenchida
    ActiveCell.Offset(1, 0).Select
    ' Este comando pula uma linha e nenhuma coluna
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Application.CutCopyMode = False
   ' Range("C4,C6,C8,C10,C12").Select
   ' Selection.ClearContents
    Range("C4").Select
     Else
          MsgBox "Gravação cancelada"
     End If
End Sub

Para mais leia
http://www.tomasvasquez.com.br/blog/mic ... gboxresult

Quando alguém te ajudar, por favor click no obrigado.

Obs: Quando postar mais de uma dúvida e sendo que vai usar o mesmo anexo, poste o anexo somente em um dos post, e mande o link dos outros post onde se econtra seu anexo.

Att

[Djaramos]

Alexandre, Obrigado mais uma vez. Ja guardei o link nos favoritos.