Este fórum está sendo desativado

[andriessen]

Bom dia!

Tenho uma Planilha e quero fazer uma MsgBox baseado no resultado da Celula J1

se for = 0 vai me perguntar se quero realizar um novo cadastro e vai me jogar na ABA "NOVO CADASTRO"
se for >0 vai perguntar se quero fazer o registro de entrada e me joga na Celula J5
ou cancelar para abortar a operação.

Obrigado

[mprudencio]

Vc nao informa se a celula J1 sera menor que 0, entao nao levei isso em consideração

Experiente este codigo e faça os devidos ajustes

Código: Selecionar todos

Sub Condição()

Dim Resposta As String

If Range("J1").Value = 0 Then
Resposta = MsgBox("Deseja Fazer Um Novo Cadastro?", vbYesNo, "Realizando Cadastro")
If Resposta = vbNo Then
MsgBox "Ação Cancelada pelo Usuario!!!", vbInformation, "Ação Cancelada!!"
Exit Sub
Else
Sheets("NOVO CADASTRO").Select
End If
Else
Resposta = MsgBox("Deseja Realizar um Novo Registro", vbYesNo, "Cadastrando Novo Registro")
If Resposta = vbYes Then
Range("J5").Select
Else
MsgBox "Ação Cancelada pelo Usuario!!!", vbInformation, "Ação Cancelada!!"
Exit Sub
End If
End If

End Sub

[andriessen]

jogar

Obrigado.

Mas pode me ajudar, quero que a mensagem appareca somente quando o valor da celula for alterado, agora esta aparecendo a mensagem quando troco de celulas

[mprudencio]

Como vc esta usando o codigo?

Da forma que fiz foi para que vc usasse em um botao.

Disponibilize um arquivo modelo