Este fórum está sendo desativado

[lfh123]

Boa Tarde

Estou tentando fazer uma progamação que quando o resultado de uma celula for menor ou igual a zero apareça um alerta dizendo "Zero" e quando for maior que zero apareça "Não Zero". Porem a mensagem "Não Zero" só pode aparecer se a mensagem "Zero" apareceu uma vez e uma vez que qualquer uma das duas mensagens apareceu ela não pode aparecer mais até que a outra mensagem aparça antes.

Até o momento a unica coisa que consegui fazer foi fazer aparecer a mensagem "Zero" e "Não Zero" sem nenhuma das regras.

Código: Selecionar todos

Private Sub Worksheet_Calculate()
If Range("B6").Value < "0" Then
    MsgBox "Zero"
Else
    MsgBox "Não Zero"
End If
End Sub

Depois disso não sei como fazer.
Alguem tem alguma ideia de como fazer iss funcionar?

Obrgiado

[alexandrevba]

Boa tarde!!

use uma célula para armazenar as mensagens e quantidades das mesmas.

Att

[lfh123]

Boa Tarde

Obrigado pela resposta, não entendi muito bem como fazer isso.
Tem um codigo que me passaram que quase me ajuda

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range) 
    Static WasZero As Boolean 
     
    If Not Application.Intersect(Target, Me.Range("B29")) Is Nothing Then 
         
        If Target.Value <= 0 Then 
             
            If Not WasZero Then MsgBox "Zero" 
            WasZero = True 
        Else 
             
            If WasZero Then MsgBox "Not Zero" 
            WasZero = False 
        End If 
    End If 
End Sub 

Porem o alerta só funciona se a celula for alterada manualmente. Como ele possui uma formula, quando o valor é aterado através da formula o alerta não aparece, e os valores vem de mais de uma aba.

Att.