Solver
 

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

Solver
 

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

--
msuryexce
-----------------------------------------------------------------------
msuryexcel's Profile: http://www.excelforum.com/member.php...fo&userid=2816
View this thread: http://www.excelforum.com/showthread.php?threadid=49332