Looping till condition is satisfied?

[Jo]

I have this macro's code:

Dim SCell As Integer
Do Until SCell.Value = 1
If SCell.Value <> 1 Then

Range("J24").Select
Calculate
End If
Loop

Where SCell has a formula like this: "if (A2<A3,1,0)" and A2 has a
random number while A3 is a fixed value. I want the macro once clicked
to keep changing A2 till SCell formula is 1. So the loop could run 5
times or 500 times.

Is there something wrong in the code above?

Thanks,
Jo

 

[Guest]

Your code isn't actually changing cell A2. all it is doing is recalculating
the sheet. Is this what you wanted to do? Is there something else that is
changing A2?

 

[Jo]

Your code isn't actually changing cell A2. all it is doing is recalculating
the sheet. Is this what you wanted to do? Is there something else that is
changing A2?
--
JNW










- Show quoted text -

When it recalculates the sheet, the random number does change and so
SCell does check the condition to see if satisfied or not. The macro
has to stop once SCell is satisfied.
That is all actually.

 

[Mark Lincoln]

You Dim an Integer variable SCell, then do nothing with it. Thus it
is always zero.

If you have a cell named "SCell" you can write something like this:

Range("J24").Select

Do Until Range("SCell").Value = 1
Calculate
Loop