Syntax for stopping a Do Loop?

  • Thread starter Thread starter bondjel
  • Start date Start date
B

bondjel

I have columns of data and recorded a macro for taking the average of every
seven numerical entries. What syntax do I use to tell the macro to stop
looping when it gets to a blank cell in the column?
 
Hi,

Post your recorded macro.
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.
 
See Exit Do statement in Do ...Loop in VBA Help!

--
Regards!
Stefi



„bondjel†ezt írta:
 
Mike,

Here it is:


Do
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-6]C[-1]:RC[-1])"
ActiveCell.Offset(7, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-6]C[-1]:RC[-1])"
Loop
 
Hi,

there will no doubt be some comment that selecting cells isn't the best way
to do what you want but if it works for you then so be it. This selects the
cell then checks for data in the cell to the left and if it's empty the loop
terminates

Do
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-6]C[-1]:RC[-1])"
ActiveCell.Offset(7, 0).Range("A1").Select
Loop Until ActiveCell.Offset(, -1).Value = ""
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


bondjel said:
Mike,

Here it is:


Do
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-6]C[-1]:RC[-1])"
ActiveCell.Offset(7, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-6]C[-1]:RC[-1])"
Loop

Mike H said:
Hi,

Post your recorded macro.
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.
Click to expand...
Click to expand...
 
Mike,

I only suggested using the blank cell because in my relative ignorance I
thought it would be easiest. But I think your suggested solution worked.
Thanks again.

Jim

Mike H said:
Hi,

there will no doubt be some comment that selecting cells isn't the best way
to do what you want but if it works for you then so be it. This selects the
cell then checks for data in the cell to the left and if it's empty the loop
terminates

Do
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-6]C[-1]:RC[-1])"
ActiveCell.Offset(7, 0).Range("A1").Select
Loop Until ActiveCell.Offset(, -1).Value = ""
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


bondjel said:
Mike,

Here it is:


Do
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-6]C[-1]:RC[-1])"
ActiveCell.Offset(7, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-6]C[-1]:RC[-1])"
Loop

Mike H said:
Hi,

Post your recorded macro.
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


:

I have columns of data and recorded a macro for taking the average of every
seven numerical entries. What syntax do I use to tell the macro to stop
looping when it gets to a blank cell in the column?
Click to expand...
Click to expand...
Click to expand...
 
Back
Top