Solver Problem

D

Diogo

Hi,
Just recorded the following Macro:

Sub Minimize()
'
' Minimize Macro
' Macro recorded 14-01-2008 by dbranco

SolverOk SetCell:="$D$27", MaxMinVal:=3, ValueOf:="0", ByChange:= _
"$D$6:$D$12,$D$14:$D$19,$D$22:$D$25"
SolverSolve

SolverOk SetCell:="$E$27", MaxMinVal:=3, ValueOf:="0", ByChange:= _
"$E$6:$E$12,$E$14:$E$19,$E$22:$E$25"
SolverSolve

SolverOk SetCell:="$F$27", MaxMinVal:=3, ValueOf:="0", ByChange:= _
"$F$6:$F$12,$F$14:$F$19,$F$22:$F$25"
SolverSolve

SolverOk SetCell:="$G$27", MaxMinVal:=3, ValueOf:="0", ByChange:= _
"$G$6:$G$12,$G$14:$G$19,$G$22:$G$25"
SolverSolve

SolverOk SetCell:="$H$27", MaxMinVal:=3, ValueOf:="0", ByChange:= _
"$H$6:$H$12,$H$14:$H$19,$H$22:$H$25"
SolverSolve

SolverOk SetCell:="$I$27", MaxMinVal:=3, ValueOf:="0", ByChange:= _
"$I$6:$I$12,$I$14:$I$19,$I$22:$I$25"
SolverSolve
End Sub

Ok what I need is an automating way to respond yes to the proverbial
question "do you whant to keep the solver results", between each solving step.
Is this possible?

Thanks
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top