EXCELer

Se pretendermos que seja aberto um procedimento quando uma determinada célula recebe um valor diferente de 0 (zero) e apresente uma mensagem de alerta quando recebe um valor 0 (zero) , como no exemplo com a célula B4, podemos utilizar o Evento SelectionChange:





O Código:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If IsEmpty(Range("B4")) Then
        Exit Sub
    End If

    If Range("B4") <> 0 Then
        Call Test
    ElseIf Range("B4") = 0 Then
        MsgBox "A célula tem um valor 0 (zero)!"
    Else
        Exit Sub
    End If
    Range("B4").ClearContents
End Sub


Sub Test()
    MsgBox "Aqui pode ser colocado um procedimento porque o valor de B4 é <> de 0"
End Sub