Solver

[Angeliki]

Hello,

I would like to run a macro in order to running 4 solvers with one action
Could you please tell me why this code does not work.

Thanks in advance
AngelikiS



Sub BestFit()
' BestFit Macro

Dim solverok As variant

' Keyboard Shortcut: Ctrl+z

solverok SetCell:="$E$19", MaxMinVal:=3, ValueOf:="0",
ByChange:="$E$3:$E$4"
SolverSolve
solverok SetCell:="$F$19", MaxMinVal:=3, ValueOf:="0",
ByChange:="$F$7:$F$8"
SolverSolve
solverok SetCell:="$G$19", MaxMinVal:=3, ValueOf:="0",
ByChange:="$G$7:$G$8"
SolverSolve
solverok SetCell:="$H$19", MaxMinVal:=3, ValueOf:="0", ByChange:="$H$8"
SolverSolve
End Sub

[msuryexcel]

My guess is that if you insert the command SolverReset before each invocation of the SolverOK, the code should work. I am a new Solver fan too
msuryexcel