Este fórum está sendo desativado

[philippemilioni]

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

[babdallas]

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

[philippemilioni]

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

Será que fiz alguma coisa errada?

[babdallas]

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

[philippemilioni]

Obrigado

Agora funcionou perfeitamente

Muito agradecido