VBA Solver for Multiple Rows

[sroy316]

Hello,

I am trying to solve a cost optimization problem related to electricity generation and load. I am having trouble in editing the solver code for multiple rows (from 5 to 8764). I have tried this but this does not work and is showing error:

Sub Macro1()
Dim i As Integer
ActiveWorkbook.ActiveSheet.Activate
For i = 5 To 8764

    SolverOk SetCell:="$L$" &i, MaxMinVal:=2, ValueOf:=0, ByChange:="$G$" & i &"$J$"&i, _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    
    SolverAdd CellRef:="$G$" & i, Relation:=1, FormulaText:="$V$25"
    
    SolverAdd CellRef:="$G$" & i, Relation:=3, FormulaText:="$U$25"
  
    SolverAdd CellRef:="$H$" & i, Relation:=1, FormulaText:="$V$26"
    
    SolverAdd CellRef:="$H$" & i, Relation:=3, FormulaText:="$U$26"
   
    SolverAdd CellRef:="$I$" & i, Relation:=1, FormulaText:="$V$27"
    
    SolverAdd CellRef:="$I$" & i, Relation:=3, FormulaText:="$U$27"
    
    SolverAdd CellRef:="$J$" & i, Relation:=1, FormulaText:="$V$28"
   
    SolverAdd CellRef:="$J$" & i, Relation:=3, FormulaText:="$U$28"

    SolverAdd CellRef:="$K$" & i, Relation:=2, FormulaText:="$D$" & i
  
    SolverSolve = True

End Sub

[Alf]

Welcome to the forum.

You should wrap your code as some moderators gets really upset if you don't do.

Tray to change

ByChange:="$G$" & i &"$J$"&i,

to this and see if it helps

ByChange:=”$G$” & i & ":$J$" & i,

Alf

[sroy316]

Thank you Alf. The variable cells in my worksheet are from G to J. I tried to solve it using your method. The code runs and shows a solution but comes back to the VBA window and shows a Run-time Error '424': Object Required. When I hit debug it highlighted the SolverSolve = True.

[Pepe Le Mokko]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

I did it for you this time. Please read forum rules. Thanks

[Pepe Le Mokko]

Administrative Note:

If you have an urgent request you could contact our Commercial Services
Please remember that those who help here do so voluntarily and of their own goodwill. They live in many different time zones and many will be out at work right now if they are not asleep on the other side of the globe. This is not a paid 'service': members will help when they are ready and able to do so, and not 'on demand'. Please do not try to put pressure of time on anyone here: if you get the help you need today, that's fine, but you really should not count on it.
Thanks for your understanding and patience.

[Alf]

highlighted the SolverSolve = True

So you either change that to:

SolverSolve True

or you could use

SolverSolve UserFinish:= True

The variable cells in my worksheet are from G to J.

so if the range you change is cells G, H, I and J with different values of i then the code line I specified in post #2 is the one you need.

As excel is notorious for adding extra code when using the macro recorder (still it's a good way to learn) your code could be trimmed a bit more i.e.

Engine:=1, EngineDesc:="GRG Nonlinear"

can be changed to

Engine:=1

or

EngineDesc:="GRG Nonlinear"

Alf

[sroy316]

Thanks for the prompt reply Alf. I tried using your method and it worked but the optimization shows only zero value in the variable cells. Do you think there is any other method to select ranges other than "& i" ?

[Alf]

optimization shows only zero value in the variable cells

What value do you get if you run solver manually using say i equal to 2 in all cells?

Another thing you should add to your macro since you are running solver in a loop is the command "SolverReset" this you add before the line "SolverOk SetCell:="

If this does not solve your problem I would recommend you upload your file (just 10 - 15 rows with values will do) so it can be tested. Don't forget this is an open forum so check that the uploaded file don't contains any sensitive information.

I'm a bit puzzled as you have a "For" loop for the row values (i) but I can't see a "Next" statement after the "SolverSolve" command to make the macro loop back to the next i value?

Alf