Prev: Protection
Next: Connect a number to a picture bank and import that picture to exce
From: bondjel on 22 Mar 2010 09:35
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" wrote:

> 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" wrote:
>
> > 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" wrote:
> >
> > > 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.
> > >
> > >
> > > "bondjel" wrote:
> > >
> > > > 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?
First  |  Prev  | 
Pages: 1 2
Prev: Protection
Next: Connect a number to a picture bank and import that picture to exce