MsgBox com Confirmação (Resolvido)

[vilmarmoc]

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

[netocasaroli]

Vilmarmoc,

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

[vilmarmoc]

Valew....Muito Obrigado