pass array value in average function...

[sal21]

I fill the array wit:

for y=0 to ....
....
ReDim Preserve strDBRows3(CONT2)
strDBRows3(CONT2) = strDBRows(3, Y)
CONT2 = CONT2 + 1
....
next y

now how to pass the filled strDBRows3, in this code:

Sub CALCOLO_MEDIE()

Dim RngAddr As String
Dim Rng As Range
Dim Avg As Double
Dim Min As Double
Dim Max As Double

Set Rng = strDBRows3(CONT2<error here
With Application.WorksheetFunction
Avg = .Average(Rng)
Min = .Min(Rng)
Max = .Max(Rng)
End With

End Sub


note:
strDBRows3 is pubblic dimensioned

[HansV]

An array is not the same as a range. Fortunately, you don't need to use a range here. Average, Min and Max work fine with arrays. So you can use

Code: Select all

    With Application.WorksheetFunction
        Avg = .Average(strDBRows3)
        Min = .Min(strDBRows3)
        Max = .Max(strDBRows3)
   End With

[sal21]

An array is not the same as a range. Fortunately, you don't need to use a range here. Average, Min and Max work fine with arrays. So you can use

Code: Select all

    With Application.WorksheetFunction
        Avg = .Average(strDBRows3)
        Min = .Min(strDBRows3)
        Max = .Max(strDBRows3)
   End With

I l**** YOU