Simple macros question

[Eric M.]

I have written a short macros to sample and average data sets and post the
average to a separate cell. I have the macros to repeat 100 times, 100
averages, but don't know how to have it post each average to a progressive
cell. In other words, post the first average to one cell, then index down
for the next average and next,... till there is a list of 100 averages.
After that, I will do more with the data, but need to get by this step first.

[Martin Krastev]

let's assume that the cell, where you

"Eric M." wrote:

> I have written a short macros to sample and average data sets and post the
> average to a separate cell. I have the macros to repeat 100 times, 100
> averages, but don't know how to have it post each average to a progressive
> cell. In other words, post the first average to one cell, then index down
> for the next average and next,... till there is a list of 100 averages.
> After that, I will do more with the data, but need to get by this step first.

[Martin Krastev]

Let's say that the cell where you put the first average is "B1"
You have a macro function getAverage
then try the following

dim avg as double
dim r as integer
dim cB1 as range
set cB1 = range ("B1")
for r = 1 to 100
avg=getAverage
cB1.Offset(r,0).value=avg
next r

"Eric M." wrote:

> I have written a short macros to sample and average data sets and post the
> average to a separate cell. I have the macros to repeat 100 times, 100
> averages, but don't know how to have it post each average to a progressive
> cell. In other words, post the first average to one cell, then index down
> for the next average and next,... till there is a list of 100 averages.
> After that, I will do more with the data, but need to get by this step first.

[Eric M.]

Thanks, I'll give it a try.

"Martin Krastev" wrote:

> Let's say that the cell where you put the first average is "B1"
> You have a macro function getAverage
> then try the following
>
> dim avg as double
> dim r as integer
> dim cB1 as range
> set cB1 = range ("B1")
> for r = 1 to 100
> avg=getAverage
> cB1.Offset(r,0).value=avg
> next r
>
> "Eric M." wrote:
>
> > I have written a short macros to sample and average data sets and post the
> > average to a separate cell. I have the macros to repeat 100 times, 100
> > averages, but don't know how to have it post each average to a progressive
> > cell. In other words, post the first average to one cell, then index down
> > for the next average and next,... till there is a list of 100 averages.
> > After that, I will do more with the data, but need to get by this step first.