Increment

[Human2014]

Hello all,

I am trying to do a Loop, but I can't succeed.
Here is my code:

SolverReset
SolverOk SetCell:="$A$18", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$18:$N$18", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$E$18:$N$18", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$O$18", Relation:=2, FormulaText:="1"
SolverOk SetCell:="$A$18", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$18:$N$18", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$B$18", Relation:=2, FormulaText:="$C$18"
SolverOk SetCell:="$A$18", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$18:$N$18", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$A$18", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$18:$N$18", _
Engine:=1, EngineDesc:="GRG Nonlinear"
x = SolverSolve(True)

SolverReset
SolverOk SetCell:="$A$19", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$19:$N$19", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$E$19:$N$19", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$O$19", Relation:=2, FormulaText:="1"
SolverOk SetCell:="$A$19", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$19:$N$19", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$B$19", Relation:=2, FormulaText:="$C$19"
SolverOk SetCell:="$A$19", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$19:$N$19", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$A$19", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$19:$N$19", _
Engine:=1, EngineDesc:="GRG Nonlinear"
x = SolverSolve(True)

SolverReset
SolverOk SetCell:="$A$20", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$20:$N$20", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$E$20:$N$20", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$O$20", Relation:=2, FormulaText:="1"
SolverOk SetCell:="$A$20", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$20:$N$20", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$B$20", Relation:=2, FormulaText:="$C$20"
SolverOk SetCell:="$A$20", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$20:$N$20", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$A$20", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$20:$N$20", _
Engine:=1, EngineDesc:="GRG Nonlinear"
x = SolverSolve(True)

SolverReset
SolverOk SetCell:="$A$21", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$21:$N$21", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$E$21:$N$21", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$O$21", Relation:=2, FormulaText:="1"
SolverOk SetCell:="$A$21", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$21:$N$21", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$B$21", Relation:=2, FormulaText:="$C$21"
SolverOk SetCell:="$A$21", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$21:$N$21", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$A$21", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$21:$N$21", _
Engine:=1, EngineDesc:="GRG Nonlinear"
x = SolverSolve(True)

SolverReset
SolverOk SetCell:="$A$22", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$22:$N$22", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$E$22:$N$22", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$O$22", Relation:=2, FormulaText:="1"
SolverOk SetCell:="$A$22", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$22:$N$22", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$B$22", Relation:=2, FormulaText:="$C$22"
SolverOk SetCell:="$A$22", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$22:$N$22", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$A$22", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$22:$N$22", _
Engine:=1, EngineDesc:="GRG Nonlinear"
x = SolverSolve(True)

SolverReset
SolverOk SetCell:="$A$23", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$23:$N$23", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$E$23:$N$23", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$O$23", Relation:=2, FormulaText:="1"
SolverOk SetCell:="$A$23", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$23:$N$23", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$B$23", Relation:=2, FormulaText:="$C$23"
SolverOk SetCell:="$A$23", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$23:$N$23", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$A$23", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$23:$N$23", _
Engine:=1, EngineDesc:="GRG Nonlinear"
x = SolverSolve(True)

SolverReset
SolverOk SetCell:="$A$24", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$24:$N$24", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$E$24:$N$24", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$O$24", Relation:=2, FormulaText:="1"
SolverOk SetCell:="$A$24", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$24:$N$24", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$B$24", Relation:=2, FormulaText:="$C$24"
SolverOk SetCell:="$A$24", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$24:$N$24", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$A$24", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$24:$N$24", _
Engine:=1, EngineDesc:="GRG Nonlinear"
x = SolverSolve(True)

SolverReset
SolverOk SetCell:="$A$25", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$25:$N$25", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$E$25:$N$25", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$O$25", Relation:=2, FormulaText:="1"
SolverOk SetCell:="$A$25", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$25:$N$25", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$B$25", Relation:=2, FormulaText:="$C$25"
SolverOk SetCell:="$A$25", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$25:$N$25", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$A$25", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$25:$N$25", _
Engine:=1, EngineDesc:="GRG Nonlinear"
x = SolverSolve(True)

SolverReset
SolverOk SetCell:="$A$26", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$26:$N$26", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$E$26:$N$26", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$O$26", Relation:=2, FormulaText:="1"
SolverOk SetCell:="$A$26", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$26:$N$26", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$B$26", Relation:=2, FormulaText:="$C$26"
SolverOk SetCell:="$A$26", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$26:$N$26", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$A$26", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$26:$N$26", _
Engine:=1, EngineDesc:="GRG Nonlinear"
x = SolverSolve(True)

SolverReset
SolverOk SetCell:="$A$27", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$27:$N$27", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$E$27:$N$27", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$O$27", Relation:=2, FormulaText:="1"
SolverOk SetCell:="$A$27", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$27:$N$27", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$B$27", Relation:=2, FormulaText:="$C$27"
SolverOk SetCell:="$A$27", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$27:$N$27", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$A$27", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$27:$N$27", _
Engine:=1, EngineDesc:="GRG Nonlinear"
x = SolverSolve(True)

SolverReset
SolverOk SetCell:="$A$28", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$28:$N$28", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$E$28:$N$28", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$O$28", Relation:=2, FormulaText:="1"
SolverOk SetCell:="$A$28", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$28:$N$28", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$B$28", Relation:=2, FormulaText:="$C$28"
SolverOk SetCell:="$A$28", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$28:$N$28", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$A$28", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$28:$N$28", _
Engine:=1, EngineDesc:="GRG Nonlinear"
x = SolverSolve(True)

SolverReset
SolverOk SetCell:="$A$29", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$29:$N$29", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$E$29:$N$29", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$O$29", Relation:=2, FormulaText:="1"
SolverOk SetCell:="$A$29", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$29:$N$29", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$B$29", Relation:=2, FormulaText:="$C$29"
SolverOk SetCell:="$A$29", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$29:$N$29", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$A$29", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$29:$N$29", _
Engine:=1, EngineDesc:="GRG Nonlinear"
x = SolverSolve(True)

SolverReset
SolverOk SetCell:="$A$30", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$30:$N$30", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$E$30:$N$30", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$O$30", Relation:=2, FormulaText:="1"
SolverOk SetCell:="$A$30", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$30:$N$30", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$B$30", Relation:=2, FormulaText:="$C$30"
SolverOk SetCell:="$A$30", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$30:$N$30", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$A$30", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$30:$N$30", _
Engine:=1, EngineDesc:="GRG Nonlinear"
x = SolverSolve(True)

SolverReset
SolverOk SetCell:="$A$31", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$31:$N$31", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$E$31:$N$31", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$O$31", Relation:=2, FormulaText:="1"
SolverOk SetCell:="$A$31", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$31:$N$31", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$B$31", Relation:=2, FormulaText:="$C$31"
SolverOk SetCell:="$A$31", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$31:$N$31", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$A$31", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$31:$N$31", _
Engine:=1, EngineDesc:="GRG Nonlinear"
x = SolverSolve(True)

SolverReset
SolverOk SetCell:="$A$32", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$32:$N$32", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$E$32:$N$32", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$O$32", Relation:=2, FormulaText:="1"
SolverOk SetCell:="$A$32", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$32:$N$32", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$B$32", Relation:=2, FormulaText:="$C$32"
SolverOk SetCell:="$A$32", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$32:$N$32", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$A$32", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$32:$N$32", _
Engine:=1, EngineDesc:="GRG Nonlinear"
x = SolverSolve(True)

SolverReset
SolverOk SetCell:="$D$33", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$33:$N$33", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$O$33", Relation:=2, FormulaText:="1"
SolverAdd CellRef:="$E$33:$N$33", Relation:=3, FormulaText:="0"
SolverOk SetCell:="$D$33", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$33:$N$33", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$D$33", MaxMinVal:=1, ValueOf:=0, ByChange:="$E$33:$N$33", _
Engine:=1, EngineDesc:="GRG Nonlinear"
x = SolverSolve(True)

I would like to create a Loop that allows me to enable excel to move from A18 to D33 and simplify the code above.
I want to know how can I go from each row to the next and find the same result

thank you

[Human2014]

I want to know how can I go from each row to the next and find the same result

thank you

[Vikas_Gautam]

here is the Loop, I hope it will serve your purpose..

Please Login or Register  to view this content.

[Human2014]

Should I put 2 next ?

[Fotis1991]

Welcome to the forum. Unfortunately:

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

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



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)