ExcelBanter - Solver Problem

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - Solver Problem (https://www.excelbanter.com/excel-programming/404222-solver-problem.html)

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

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