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