Data Consolidation

[scantor145]

Visual Basic 6.0 w/Excel

I would like to use Data|Consolidate to find both the average an
standard deviation for a group of cells for several sheets.

The example below shows the code for 3 sheets, but I have a macro tha
may generate N sheets. Is there a way to generalize the code below t
reflect the variations in the number of sheets to consolidate?


Code

 

[Myrna Larson]

Set up a separate array that contains the sources:

Dim SourceRanges() As String
ReDim SourceRanges(1 to 5)
SourceRanges(1) = .....
SourceRanges(2) = .....

Selection.Consolidate Sources:=SourceRanges(), ....

But if the code you show is what you are actually doing (i.e. just one cell
from each of several sheets) I wouldn't use donsolidate. I would just retrieve
the individual values into an array, then calculate the STDEV and AVERAGE on
the array. The worksheet functions are available from within code, i.e if the
values are in MyValues()

a = Application.Average(MyValues())
s = Application.StDev(MyValues())