Trying to set objective cell of opensolver on VBA

Hello.

I read the opensolver API and I'm trying to set the objective function and the decision variables.
I'm using an indirect refference to the range. It is written at sheets(2), cells B3 and B4.

Cell B3 = $C$89
Cell B4 = $C$92:$C$94,$C$113:$C$115,$C$134:$C$136,$C$155:$C$157

Then I used this code:

Dim stringobj As String
Dim stringvar As String
        
stringobj = Sheets(2).Range("B3")
stringvar = Sheets(2).Range("B4")
        
setobjectivefunctioncell (Range(stringobj))
SetDecisionVariables (Range(stringvar))

This returns the error 424, "object is mandatory".
What am I doing wrong?

Thanks for the attention!

You can also build your model in Excel 2010 and run it using "OpenSolver" as "OpenSolver" can read "Excel Solver models"

As you seem to run "OpenSolver" using VBA you must of course set a reference to "OpenSolver" in VBA and also check that "OpenSolver" has read your "Excel solver setup" correctly. Just click "Model" in order to verify.

A macro like this should normally be sufficient to run "OpenSolver"

Sub TestOpen()
Application.Run "OpenSolver.xlam!RunOpenSolver"
End Sub

Alf

Hey, thanks a lot. I ran into other problems but you guys helped me.

You are welcome.

Thanks for feedback and rep

Alf