VB: If Solver found no feasible solution

[Max]

Hi,

I have written a macro that runs Solver over a dataset and let VB create
messages etc with the outcomes of solver.
However, when Solver could not find a feasible solution, can I relate an
action to this as well? For instance by creating a new value for a cell in
the worksheet?(or create a messagebox for instance)

Thanks, you would help me a lot with this!
Max

 

[Max]

I could help myself with:
http://www.frontsys.com/123/lts00104.htm

 

[Dana DeLouis]

I could help myself with:

http://www.frontsys.com/123/lts00104.htm

Just note that your link is for Lotus 123. Excel uses True/False instead of
1/0.
I don't believe return code 14 is used in Excel, but don't hold me to it.

 

[Max]

Thank you Dana, you are right, but I only needed the cases for "did not find
optimal solution" (5) anyhow. Thanks again,
Max

 

[Jon Peltier]

I've seen the FrontSys web pages that document this for Excel, but it is
nearly impossible to find anything on their site. However, with a little
diligence I came up with:

http://www.solver.com/suppstdmsgresult.htm

Solver found a solution. All constraints and optimality conditions are
satisfied. (0)
Solver has converged to the current solution. All constraints are
satisfied. (1)
Solver cannot improve the current solution. All constraints are
satisfied. (2)
Stop chosen when the maximum iteration limit was reached. (3)
The Set Target Cell values do not converge. (4)
Solver could not find a feasible solution. (5)
Solver stopped at user's request. (6)
The conditions for Assume Linear Model are not satisfied. (7)
The problem is too large for Solver to handle. (8)
Solver encountered an error value in a target or constraint cell. (9)
Stop chosen when the maximum time limit was reached. (10)
There is not enough memory available to solve the problem. (11)
Another Excel instance is using SOLVER.DLL. Try again later. (12)
Error in model. Please verify that all cells and constraints are valid.
(13)



- Jon