VBA Solver Loop

[redrapids]

Hi all,

I'm having a problem setting up a vba solver loop. I have several columns of data, Columns A-L. I am simply trying to get all of the cells in column L set to zero by changing the values in column K. Column L has a simple formula linked to Column K and a few other cells. For my purposes I only want to adjust Column K. So K2 adjusts L2, K3 adjusts L3, etc..

I have 326 entries so I can't do it manually.

This is the script I wrote, but it only returns row 1, and nothing past it.

Sub SolverMacro()
Dim k As Long
For k = 2 To 326
SolverReset
SolverOk SetCell:="$L2", _
MaxMinVal:=3, _
ValueOf:="0", _
ByChange:="$K2"
SolverSolve userFinish:=True
Next k
End Sub


Can anyone find the errors in it? I'm very new at this, so please explain it as simply as possible. Thanks in advance for your help.

Ed

[Kaper]

Provided the rest is fine made small adjustment:

Please Login or Register  to view this content.

to work on pairs Kk Lk .
As it was written it did the K2 L2 pair 325 (326-2+1) times.

PS. Note that code in code tags is easier to read, so please edit your post to comply with our http://www.excelforum.com/forum-rule...rum-rules.html

[redrapids]

Kaper,

This worked perfectly, thanks a lot. I'll check out that link for the next time I post.

Thanks again!

Ed

[zbor]

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)