Passing Array into a function

[axg275]

Hello,

I have a question that I need help with.

I made an array which is a one dimentional with 20 elements.

For i = 1 to 20
Array(i) = i
Next i
Now I want to feed this array into a function, do you know what I need to do?

I tired

x = funct(array) <== that did not work it only took in 1st element

also tried

x = funct(Range(array)) <== that did not work either.

I am all out of Ideas...

Can someone help me?

Thank you

 

[Norie]

It might help to see the actual function.

Sub test()
Dim arr(20)
    For i = 1 To 20
        arr(i) = i
    Next i
    
    MsgBox Myfunc(arr())
    
End Sub
Function Myfunc(a())
    For i = LBound(a()) To UBound(a())
        Myfunc = Myfunc + a(i)
    Next i
End Function

 

[axg275]

This is what I actually have:

For i = 1 To 20

IPRpress(i) = DoGet("PROSPER.OUT.INF.Results[0][0][0].IPRpres[" & i - 1 & "]")
LiqRate(i) = DoGet("PROSPER.OUT.INF.Results[0][0][0].LiqRate[" & i - 1 & "]")


Range("J27").Offset(i, 0) = IPRpress(i)
Range("I27").Offset(i, 0) = LiqRate(i)

Next i

z = Utility.Terp(TestBHP, Range(IPRpress()), Range(LiqRate()))

 

[axg275]

It only brings in 1st element of the excel if I do it Norie's way

 

[Norie]

I thought you were dealing with a UDF.

DoGet and Terp must be part of an add-in or something.

They might not be set up to accept arrays.

Do you really need to use pass an array?

Couldn't you just run through the array, pass the individual items and return the results to another array.