This is the current order of calls:
SetQuickSolverParameters(ActiveSheet.Range(“namedRanges”))
RunQuickSolve()
… parameters get updated, then:
SetQuickSolverParameters(ActiveSheet.Range(“namedRanges”))
RunQuickSolve()…

I have tried several iterations with GetQuickSolveParameters too, but haven’t been successful. If you have any insights please let me know. Thanks.

If it runs a long time, then CBC cannot tell that it is infeasible. So, sorry, but there is not shortcut for determining this. Andrew

I have a dynamic model that is working great! The problem that I have been running into though is that some user set constraints can produce an infeasible solution. There is no error code popup that is produced when this happens, solver will just run for a very extended amount of time.

Is there some code that I could add to get the status or error code so that I can create a message box that will inform the user that they need to adjust some of the constraints?

The main thing that I need is a line of code that will produce the error code (i.e. 5 – infeasible solution)

Trust you are doing well.
I am trying to use a call to SetDecisionVariables using named ranges. Is that possible? Whats the syntax to be followed?

Thanks.
KM

Thanks for the helpful reply. Andrew

You should look at following post (in older comments section)
—–
Jack says:
July 7, 2015 at 3:16 am
Thanks for trying out the API and letting us know! The problem here is that the `Sheet` argument needs to be a Worksheet object rather than a String. I’ve fixed up the code to use a Worksheet object here: https://gist.github.com/JackDunnNZ/917ad455b290161ed59d

There are a couple of other changes I made:

You don’t need to select the sheet before making changes to the model
You need to set all the decision variables in one call to `SetDecisionVariables`. The way to do this is to use the `Union` function of VBA
Please let me know if there’s anything not clear or if you have any other problems.

Nice to meet you.
I have seen the same error message.
When the Excel sheet name was “Ax = b”, an error occurred, and if the name was changed to a name that did not include “=”, it could be executed without any problems.
——-
Windows 10, Excel 2016

Then I tried :
OpenSolver.SetDecisionVariables WSheet.Range(“D4:FJ4”, “D5:D125”, “E125:GK125”,
“GK58:GK124”, “FI58:GJ58”, “FI59:FI124”, “AC86:FH86”, “AB5:AB97”, “AC28:FJ28”, “FJ5:FJ27”,
“DX5:DX27”, “BX5:BX27”, “E67:AA67”, “E98:FI98”, “BJ87:BJ124”, “DI99:DI124”, “FJ95:GJ95”,
“FH80”), sheet:=WSheet
But it gives me a error, saying that the number of arguments is wrong.
How could I do this?

2) Then, i have some particular cells in which i have writed a string like “Range(“AM98″)”, can I use this cells as parameters?
Example:
Dim Elemento_Corrente As String
Elemento_Corrente = “Range(“AM98″)”
OpenSolver.AddConstraint WSheet.Range(Elemento_Corrente), RelationEQ, RHSFormula:=”1″, sheet:=WSheet

Thank you very much, this will be foundamental for my my degree thesis.
Mattia

Just change the formula in C12 to =D24. Andrew