VBA error

[chintan desai]

Hi,

I have written a program but for some reason when I run it, it keeps running until I manually end it. Weirdly, when I end it the program has actually worked but for some reason it doesn't stop itself.


Do

For i = 3 To 758

Range("B" & i).Value = i


Range("G" & i).FormulaR1C1 = "=IF(RC[-5]=R[-1]C[-5],IF(RC[-4]=""Buy"",R[-1]C+RC[-2],R[-1]C-RC[-2]),RC[-2])"


Next i


Loop Until (Range("F" & i).Value <> "") And (Range("F" & i).Value <> " ")



Can anyone tell me why this program works, but doesn't end by itself? Thanks!

 

[jae113]

I have two theories, but I'm not sure of either.

Do you have an end sub somewhere after?

and

I think because the Loop Until values are the same:

Loop Until (Range("F" & i).Value <> "") And (Range("F" & i).Value <> " ")

 

[chintan desai]

Hi,

I do have an End sub at the end. In addition, if i removed the repeated loop, the function still works but need to manually end it. Also when asked to debug, it high lights [ Range("B" & i).value=1 ]. I don't know the reasoning behind that either. Thanks!

 

[jae113]

In the original post you have value=i and now value=1


What's in the sub? Maybe that could be it?

 

[chintan desai]

Sorry, meant to type i instead of 1, so it is "i". And it's:

Sub CumulativePos()




Do

For i = 3 To 758

Range("B" & i).Value = i


Range("G" & i).FormulaR1C1 = "=IF(RC[-5]=R[-1]C[-5],IF(RC[-4]=""Buy"",R[-1]C+RC[-2],R[-1]C-RC[-2]),RC[-2])"


Next i


Loop Until (Range("F" & i).Value <> "")





End Sub


Don't know whats wrong with the sub.