Load Multiple Solver Parameters and Solve

[AnalystMind]

Hello,

I am wondering if it is possible in VBA to load one Solver model (saved in a range) execute it then load another model (saved in another range) replace the first one and execute and so on.

Example:
SolverLoad loadArea:=Range("A1:A8") then solve, move on to
SolverLoad loadArea:=Range("B1:B8") solve and move on.

When I manually load solver from range it loads everything and is quite easy to execute but I would love to have all that automated in a button.

Any help is much appreciated.

Thank you.

 

[Worf]

Hello

Sub Zero()
Dim i%
'solverok "$d$6", 1, 0, "$b$3:$b$5", 2, "Simplex LP"


For i = 1 To Range("p" & Rows.Count).End(xlUp).Row
    solverok Cells(i, "p"), 1, 0, Cells(i, "q"), 2, "Simplex LP"
    solversolve
    MsgBox "Solution is " & Range(Cells(i, "p"))
Next
    
End Sub