Solver Loop VBA?

[jsowa]

Hi,
I have a problem with the solver function. I am trying to use VBA to loop a solver function from J through Q, and cannot figure it out...

This is the formula that is making this table possible:

SolverOk SetCell:="$J$14", MaxMinVal:=1, ValueOf:=0, ByChange:="$J$6:$J$12", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$J$15", Relation:=1, FormulaText:="$J$3"
SolverAdd CellRef:="$J$13", Relation:=2, FormulaText:="1"
SolverOk SetCell:="$J$14", MaxMinVal:=1, ValueOf:=0, ByChange:="$J$6:$J$12", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$J$14", MaxMinVal:=1, ValueOf:=0, ByChange:="$J$6:$J$12", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve

At the moment, I just re-wrote this formula for cells J-Q. I also do not know why cash is going negative, but I had set it to not go negative

Not to mention, not well versed in Excel's VBA as you can probably see from the formula.

Any help would be really appreciated!

 

[Dermot]

Are you assuming all these stocks are independent and not correlated at all? That’s unlikely, and rather inaccurate, isn’t it?

normally, you would create a correlation table first and then generate correlated random numbers using it.