Excel Macro to Add Value to Cell until Another Cell Value Equals "Stop"

[cjohnson0181]

All,
I have a spreadsheet setup with formulas to iterate manually and everything is already properly linked. However, sometimes my iterations can go up into the 1000s before meeting my conditions. In short, I need a macro that can make Range("D3") increase in 0.5 increments until the cell value of "L31" equals the word "Stop". I have seen some similar but unfortunately not similar enough to make them work. Any help would be greatly appreciated! I'm sure this is a very simple code which makes it all the more frustrating.

Thanks,
Chase

 

[offthelip]

try this:

Sub test()
Do Until Range("L31") = "Stop"
Range("D3") = Range("D3") + 0.5
Loop


End Sub

 

[cjohnson0181]

Many thanks! It is working very well! I modified the code to stop at 100,000 to prevent the infinite loop that I got myself into. (There isn't infinite solutions to this one!)

Sub Sweep()

Do Until Range("L31") = "Stop" Or Range("D2") = 100000
Range("D2") = Range("D2") + 0.5
Loop

End Sub
[\Code]