Solver

  • Thread starter Thread starter Angeliki
  • Start date Start date
A

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
 
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
 
Back
Top