reduce cell value by increment until condition is met

[Mr vdC]

Hi, I have driven myself "loopy" over something quite basic:

"A1" is a variable integer that feeds into an equation that yields "b2" as the result. "B3" is the copied value of "b2" at the start, so "b3" = "b2". "B3" does not get refreshed if "B2" changes.

The code I am trying to compile will cover:
A1 can only be between 0 and 1000.
reduce the value of "a1" by incremental steps of 1 until b2 <> b3, then print the last "a1" value in "a1" where "b3"= "b2"


every time i try this i get a plethora of errors or end up in an infinity loop
any help would be greatly appreciated.
many thanks

 

[Mr vdC]

my code is here:


Sub inc()

Dim n As Integer
n = 1
o = Range("B2").Value
p = Range("B3").Value
Do Until o <> p
Range("a1") = Range("a1") - n
n = n + 1
Loop

End Sub

 

[Fluff]

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: reduce cell value by increment until condition is met
If you have posted the question at more places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

 

[Mr vdC]

appologies to all. I have posted here and on excelforum. Thats it.

 

[Mr vdC]

I have resolved it

Sub incTP()

Do While Range("b2").Value = Range("b3").Value

Range("a1").Value = Range("a1").Value - 1

Loop

Range("a1").Value = Range("a1").Value + 1

End Sub