One Macro with multiple solver each with different constraints

[Alyotter]

Hello,

I have a problem:

I have a first optimization problem with constraint set 1 where I use solver. I've saved these constraint in some cells. Now, based on this solution, I compute a second optimization problem but with an other 'objective function', 'cells to change' and 'constraint set' (set 2, which I also saved in the file).
Now all of this I want to record in a macro:
- load constraits set 1
- fill objective function 1
- fill in variables to change 1
- solve
- load constraints set 2
- fill in objective function 2
- fill in variables to change
- solve

When I'm recording this, It is working but when I want to use the macro, it fails. I think it won't recognize the 'load of constraint' but I don't knw how to solve it. Can you please? I would like it if I can solve the problem in the same sheet.

This is my code:
----------------------------------------------
Range("J2:O22").Select
Selection.ClearContents

SolverOk SetCell:="$Y$23", MaxMinVal:=1, ValueOf:=0, ByChange:="$J$2:$O$22", _
Engine:=2, EngineDesc:="Simplex LP"
SolverSolve

Range("AH2:AL22").Select
Selection.ClearContents

SolverLoad LoadArea:="$J$2:$O$22"
SolverOk SetCell:="$AF$23", MaxMinVal:=1, ValueOf:=0, ByChange:="$AH$2:$AL$22" _
, Engine:=2, EngineDesc:="Simplex LP"
SolverSolve
-------------------------------------

[Alyotter]

Oke, I'm getting forward... But after the first 'solve' it doesn't start the second solve and it says: "setting up the problem"

This is my new code:
---------------------------------------------
Range("J2:O22").Select
Selection.ClearContents

SolverOk SetCell:="$Y$23", MaxMinVal:=1, ValueOf:=0, ByChange:="$J$2:$O$22", _
Engine:=2, EngineDesc:="Simplex LP"
SolverLoad LoadArea:=Range("B33:S33"), Merge:=False
SolverSolve UserFinish:=True

SolverReset

Range("AH2:AL22").Select
Selection.ClearContents

SolverOk SetCell:="$AF$23", MaxMinVal:=1, ValueOf:=0, ByChange:="$AH$2:$AL$22" _
, Engine:=2, EngineDesc:="Simplex LP"
SolverLoad LoadArea:=Range("B34:H34"), Merge:=False
SolverSolve UserFinish:=True

[Alf]

Looking at your code the only thing I'm unsure of is the line

Please Login or Register  to view this content.

I do wonder if there could be some parameters missing or the command "SolverReset" clears that range? Have you tried blanking out that line and see if the macro runs the second time?

Have a look at this link about "LoadArea" command

http://www.solver.com/content/basic-...rload-function

Alf

Ps In the future don't forget to wrap your code.

You also don't need to use "Select" and "Selection" insted use the commands "directly" i.e. :

Please Login or Register  to view this content.

[Alyotter]

First of all: thanks for the respond!!
1) But what is 'to wrap'? What is its function and how can I do it? (I'm new here, sorry...)
2) I have deleted the 'SolverReset' and it didn't help. But I looked at some examples on the internet and placed 'SolverLoad' before 'SolverOk' and then it worked. I don't know why this works and in the other order not...

Alyotter

[Alf]

But what is 'to wrap'?

If you hover with your mouse pointer over the # icon you see a text "Wrap [Code] tags around selected text" so you click on that icon and you get these:

[CODE][CODE] and you place your macro code between those two blocks. For quoting text you click on the first icon to the left of the # icon.

So placing "SolverLoad" before "SolverOk" fixed your problem. Good to know.

I don't know why this works and in the other order not...

Well solver works in mysterious ways it's miracles to perform!

Finally even if you solved your problem yourself could you still mark this thread "Solved"

Alf

Ps

To mark your thread solved do the following:
New Method
-Go to the top of the first post
-Select Thread Tools
-Select Mark thread as Solved