Este fórum está sendo desativado

[annissima]

Gente, preciso do seguinte:

Na planilha REGISTRAR, fazer uma validação: se a célula C6 = C7
Se não, mostrar informação de erro.
Se sim, executar uma MsgBox, com confirmação de sim ou não.
Se sim, arquivar o registro, se não, descartar.

If Range.Cells("C6").Value = Range.Cells("C7") Then
If MsgBox("Deseja arquivar este registro?", vbYesNo, "Confirmar!") = vbNo Then Exit Sub

Fiz isso, mas tá com erro.
Não sei muito de VBA, só o extremamente básico.

help!

[daniexcel]

Não captei muito bem o que voce pretende fazer após abrir o Msgbox de confirmaçao

De qualquer modo, segue

Código: Selecionar todos

Sub macro()
If [REGISTRAR!C6].Value = [REGISTRAR!C7].Value Then



 vbSimNao = MsgBox("Os valores são iguais. Deseja arquivar?", vbYesNo, "GURU DO EXCEL")

                'se resposta for sim, ele exclui, sai e desmarca
                If vbSimNao = 6 Then
' ESCREVA O QUE DEVE ACONTECER, NO CASO DE SIM

                Else
                  Sheets("REGISTRAR").Select
                        Exit Sub
                End If

Else

 MsgBox "Erro (AS CELULAS NAO POSSUEM MESMO VALOR) !!!" _
    , vbInformation, "Guru do Excel"

End if

End Sub