Continuous Looping, help!

[doctortt]

Hi, Can a guru help? The loop keeps on going even though the three cells have become 0. What did I do wrong?

Do

Range(hello1).GoalSeek Goal:=0, ChangingCell:=Range("A123")
Range(hello2).GoalSeek Goal:=0, ChangingCell:=Range("A124")
Range(hello3).GoalSeek Goal:=0, ChangingCell:=Range("A125")

Loop Until Range(hello1).Value = 0 And Range(hello2).Value = 0 And Range(hello3).Value = 0

[p45cal]

Well that really depends on the formulae in the cells!
Or conside using Solver which allows you to control the number of iterations and or the time allowed.

[Paul_Hossler]

Also are you sure they're = 0.000000000000000000.... ?

Maybe

[VBA]
Abs(Range(hello1).Value) <= 0.000001
[/VBA]

Paul

[Teeroy]

Also consider whether the 3 hello ranges are independent of each other and the other 2 change ranges (other than selected for each goal seek). If not then you can (and will) chase your tail (as you are trying to solve a set of simultaneous equations).

[doctortt]

Gentlemen,

Thanks for the reply. What can I do about it?

Do you think another loop method may work?

[Teeroy]

To answer both @P45cal's questions and mine I think we need to see a sample workbook before suggesting an alternate approach.

[doctortt]

Oh, I used Excel's built-in solver, and it's working the way I want it to be.

[Teeroy]

Good to hear. The solver gives you a lot more control of the process and you can use the constraints to reduce the chance of divergence but if your initial guess is too far out it's still not perfect.