Loop until cell is within 1 of another cell

Dean45ess · August 11th, 2011, 01:57 PM

I have a do loop that makes an adjustment from one cell to another cell.
This is to avoid a circular refererence. Sometimes it will not stop looping because the two cells are off by one and then when one goes up the other goes down, etc. Is there a way to make it loop until cell C14 is plus 1 or minus 1 of E14. In other words, within one whole number.

Code:

Sub Taxes_Adjust()

Do

    Range("E14").Select
    Selection.Copy
    Range("C14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
Loop Until Range("C14").Value = Range("E14").Value
       
End Sub

Shasur · August 16th, 2011, 06:08 AM

Hi

Can you try

Code:

abs(Range("C14").Value - Range("E14").Value) = 1

Cheers
Shasur

Dean45ess · August 16th, 2011, 12:03 PM

Thank you! I couldn't find anything in Excel 2003 VBA about that function.

Code:

Loop Until Abs(Range("Adjusted").Value - Range("Tax").Value) <= 0.99

I had to change it to less than or equal to because it was looking for an exact number. I also named my cell references to simplify things.