All the references in the solver are now based on the cell your are looping through. SolverAdd CellRef:=rngObjectCell.Offset(0, -13).Address, Relation:=1, FormulaText:=rngObjectCell.Offset(0, -11).Addressīasically you are looping through your hardcoded range R19:R28 (not R29 as this would make it 11 Rows) and with each value in column R you are running a Solver. SolverOk SetCell:=rngObjectCell.Address, MaxMinVal:=2, ValueOf:=0, B圜hange:=rngObjectCell.Offset(0, -13).Range("A1:B1").Address, _ You can try the following script (untested): Sub RR_SC_OPTIMIZER()
The solver output should be between '0' and '1'. I want to execute solver 52 times for the cells AE3:AE54. SolverOk SetCell:="$R$19", MaxMinVal:=2, ValueOf:=0, B圜hange:="$E$19:$F$19", _ As you can see, I am really new into the VBA programming. I know that I probably should use some form of "Do While Cells(Row,1) "" " contruction, but I am at a losts how to create this simple loop in VBA. When it reaches row 10 it checks to see if $R29 is "" if so it stops running.
I want to keep the columns fixed but create a loop that loops over the 10 rows, running solver for each row and then resets and runs the next row. I eventually want to create more input rows, say 10, with 10 objective functions all in column R etc. My objective cell is in column R, the decision cells are in columns E and F and the constraint is in column G. Hi All: I am completely brand new to VBA, so I used a macro recorder to help get a gist of the code I want.Īll of my inputs into Solver are in one row (e.g.
0 kommentar(er)
