Solver Problem
PUT 'SolverSolve True' after each SolverSolve"Diogo"
wrote in message
...
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
|