Guru do Excel e Power BI

Bom dia

Preciso inserir uma MsgBox informando que o valor calculado de uma célula esta acima de um valor permitido.

o Valor da célula é o resultado de um valor calculado pelo SOLVER e essa célula tem uma formatação condicional

Estou usando a seguinte macro

Sub lsAutoSolver()
Dim iTotalLinhas As Long
'Seta a planilha
Plan3.Select
'Limpar configurações do Solver
SolverReset
'Verificar a quantidade de linhas
iTotalLinhas = Cells(Rows.Count, 1).End(xlUp).Row
'Incluir as regras de cálculo
SolverOk SetCell:="$T$33", MaxMinVal:=2, ValueOf:=0, ByChange:="$C$33", Engine _
:=1, EngineDesc:="GRG Nonlinear"
'Incluir Restrições
'SolverAdd CellRef:="$C$33", Relation:=4, FormulaText:="número inteiro"
SolverAdd CellRef:="$C$33", Relation:=3, FormulaText:="$C$32+0,5"
SolverAdd CellRef:="$T$33", Relation:=3, FormulaText:="$T$32"
'Realizar os cálculos
SolverSolve True

Dim Msg, Style, Title
'Definir mensagem
Msg = "Vazão mínima encontrada"
'Definir botão
Style = vbOKOnly + vbCritical
'Definir título
Title = "Equilibrio de Pressão"
'Mensagem na display
Response = MsgBox(Msg, Style, Title)

ATÉ ESTE PONTO ESTÁ TUDO CERTO.
DAQUI PRA FRENTE QUE É O PROBLEMA
QUERO INSERIR ESSA MSGBOX QUANDO O VALOR DA CÉLULA "T33" FOR MAIOR QUE "T33-T32 >0,5"

MsgBox "Se a diferença de pressão no Ponto A for maior que 0,5 mca (célula vermelha) deve ser ajustado o valor da pressão, do diâmetro e/ou da altura geométrica"

End Sub

Alguém para ajudar??
Grato

Veja se é isso:

Código: Selecionar todos

If (wshTeste.Range("T33").Value2 - wshTeste.Range("T32").Value2) > 0.5 Then
        VBA.MsgBox "Se a diferença de pressão no Ponto A for maior que 0,5 mca (célula vermelha) " & _
            "deve ser ajustado o valor da pressão, do diâmetro e/ou da altura geométrica"
    End If

Está dando erro em tempo de execução '424': Objeto é obrigatório

Será que fiz alguma coisa errada?

Enviado: **01 Nov 2019 às 09:50**

Desculpe, esqueci de avisar que usei o codename da planilha com um nome fictício de wshTeste. Substitua wshTeste pelo codename da planilha onde estão as células.

Se não souber o que é codename, veja este vídeo do Rodrigo Aiosa:

https://www.youtube.com/watch?v=n490HkWmr68

Enviado: **01 Nov 2019 às 10:09**

Obrigado

Agora funcionou perfeitamente

Muito agradecido

Guru do Excel e Power BI

Como inserir uma MSgBox em função de um valor de uma célula

Como inserir uma MSgBox em função de um valor de uma célula

Re: Como inserir uma MSgBox em função de um valor de uma cél

Como inserir uma MSgBox em função de um valor de uma célula

Re: Como inserir uma MSgBox em função de um valor de uma cél

Como inserir uma MSgBox em função de um valor de uma célula