G
Guest
I'm trying to create a loop that will stop at the first blank line, then skip
4 lines and start the loop again. So far the first loop works great. I have
trouble with it trying to restart the loop after it skips four lines. Can
anyone Help!!!!!! This is what i have for the first loop.
Sub CalculateVariance()
Dim i As Integer
i = 11
Do Until IsEmpty(Cells(i, 9))
Cells(i, 17).Formula = "=rc[-8]-rc[-4]"
Cells(i, 18).Formula = "=rc[-8]-rc[-4]"
Cells(i, 19).Formula = "=rc[-8]-rc[-4]"
i = i + 1
Loop
4 lines and start the loop again. So far the first loop works great. I have
trouble with it trying to restart the loop after it skips four lines. Can
anyone Help!!!!!! This is what i have for the first loop.
Sub CalculateVariance()
Dim i As Integer
i = 11
Do Until IsEmpty(Cells(i, 9))
Cells(i, 17).Formula = "=rc[-8]-rc[-4]"
Cells(i, 18).Formula = "=rc[-8]-rc[-4]"
Cells(i, 19).Formula = "=rc[-8]-rc[-4]"
i = i + 1
Loop