Caros, estou precisando de uma ajuda aqui. Tenho a seguinte programação que realiza uma chamada do solver alterando as células variáveis e também otimiza uma série de problemas, e no final retorna um certo valor para uma coluna. Entretanto, na forma como está ele não me informa se o solver encontrou ou não uma solução viável O que eu gostaria era que esta macro copiasse para um certa coluna (ex. Sheets("Dados inputs").Cells(uRow, 55)) o texto de saída do solver dizendo se ele encontrou uma solução ótima ou se não foi possível encontrar. Alguem tem alguma idéia? obrigado.

Sub Botão3_Clique()
Dim uRow As Long
For uRow = 5 To Sheets("Dados inputs").Cells(Cells.Rows.Count, "A").End(xlUp).Row

Dim Lin_AlturaSolver As Variant

Lin_AlturaSolver = 22

Do While Worksheets("Formulador Mecanicista").Cells(Lin_AlturaSolver, 1) <> "DIETA, g/dia" And _
Worksheets("Formulador Mecanicista").Cells(Lin_AlturaSolver, 1) <> ""

If Worksheets("Formulador Mecanicista").Cells(Lin_AlturaSolver, 1) <> "DIETA, g/dia" And _
Worksheets("Formulador Mecanicista").Cells(Lin_AlturaSolver, 1) <> "" Then
Lin_AlturaSolver = Lin_AlturaSolver + 1

End If

Loop

Range("B" & Lin_AlturaSolver, "B34").ClearContents

SolverOk SetCell:="$D$16", MaxMinVal:=2, ValueOf:=0, ByChange:="B22:B" & (Lin_AlturaSolver - 1), _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve UserFinish:=True
SolverFinish KeepFinal:=1

Sheets("Dados inputs").Cells(uRow, 50) = Sheets("Formulador Mecanicista").Cells(35, 2).Value

Next
End Sub