Este fórum está sendo desativado

[AndreAnjos]

Planilha2.Activate
Range("P2").Select
If ActiveCell.Value > 0 Then
MsgBox "Existem contas contábeis não cadastradas!!!"
Exit Sub
End If
If ActiveCell.Value < 0 Then
MsgBox "Existem contas contábeis não cadastradas!!!"
Exit Sub
End If

Na célula P2 existe a seguinte fórmula: valor de uma célula, menos o valor de outra célula, o resultado é 0. Quando o resultado dessa célula for diferente de 0, quero que a macro interrompa a leitura do script e aponte o erro. Estou utilizando o código acima, o problema é que muitas vezes o valor da célula está zerado e mesmo assim aparece o msg box dizendo que existem contas contábeis não cadastradas. Conseguem me ajudar?

[osvaldomp]

Veja se atende.

Código: Selecionar todos

Sub Teste()
 If Planilha2.[P2] <> 0 Then MsgBox "Existem contas contábeis não cadastradas!"
End Sub

[AndreAnjos]

Testei e aparentemente funcionou. Preciso testar mais vezes pra ver se não falha. O arquivo é repleto de rotinas, em diversos módulos, é demorada a atualização. Qual é diferença desse modelo de referência (Planilha2.[P2]) para o que eu estava utilizando?

[osvaldomp]

[P2] equivale a Range("P2").Value