Guru do Excel e Power BI

Enviado: **12 Jan 2021 às 13:08**

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?

Enviado: **12 Jan 2021 às 14:32**

Veja se atende.

Código: Selecionar todos

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

Enviado: **12 Jan 2021 às 14:45**

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?

Enviado: **12 Jan 2021 às 14:54**

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

Guru do Excel e Power BI

Macro verificação de erro

Macro verificação de erro

Re: Macro verificação de erro

Re: Macro verificação de erro

Re: Macro verificação de erro