Olá!
Preciso corrigir este código:
Aos invés de apresentar o msgBox apenas com o botao OK, preciso que tenha os botões OK e sair e quando clicar em OK, chame a rotina chamada "desativar" ex; Call Desativar e sair para cancelar;
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Verifica se A1 foi selecionada
If Target.Address = Range("A1").Address Then
'Verifica se D1 é maior que 0
If [D1] > 0 Then
MsgBox "Para alterar a data é necessário Dasativar o Tempo de atualização que está ativo para " & Plan2.Range("D1").Value & " Minutos! Click em SIM para desativar"
End If
End If
End Sub
Desde já agradeço
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
MsgBox com Confirmação (Resolvido)
MsgBox com Confirmação (Resolvido)
Editado pela última vez por vilmarmoc em Ter Fev 16, 2016 10:09 pm, em um total de 1 vez.
- netocasaroli
- Consultor
- Mensagens: 219
- Registrado em: Seg Mai 11, 2015 5:24 pm
- Localização: Londrina-PR
Re: MsgBox com Confirmação
Vilmarmoc,
Veja se é isso que quer:
Veja se é isso que quer:
Código: Selecionar todos
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Verifica se A1 foi selecionada
If Target.Address = Range("A1").Address Then
'Verifica se D1 é maior que 0
If [D1] > 0 Then
If(MsgBox "Para alterar a data é necessário Desativar o Tempo de atualização que está ativo para " & Plan2.Range("D1").Value & " Minutos! Click em SIM para desativar",vbYesNo)=vbYes Then
Call Desativar
End if
End If
End If
End Sub