Sum Function for a dynamic array

[MeganB]

Hi, I am trying to sum columns with varying amounts of rows. I thouht this would be a simple code to write, but I am getting #VALUE as the result. I'm new to VB so any help is appreciated!! Here is my code:

Public Function sumfunction(inum, itemarray()) As Double

For i = 1 To inum
sumfunction = sumfunction + itemarray(i)
Next

End Function


I tested this code by placing digits 1 through 6 in cells A1 through A6, then used the formula, sumfunction(6,A1:A6) in cell A7. I received a #VALUE. Any thoughts?


Thank you!!!

[Mordred]

Hello MeganB and welcome to the forum. Please take a moment to read the forum rules (located in my signature) and wrap your code in code tags as per Rule #3. Once you do that, someone will be able to help you.

Thanks.

[MeganB]

Hi, I am trying to sum columns with varying amounts of rows. I thouht this would be a simple code to write, but I am getting #VALUE as the result. I'm new to VB so any help is appreciated!! Here is my code:

Please Login or Register  to view this content.

I tested this code by placing digits 1 through 6 in cells A1 through A6, then used the formula, sumfunction(6,A1:A6) in cell A7. I received a #VALUE. Any thoughts?


Thank you!!!

[romperstomper]

You are not actually passing an array, you are passing a range. Change the declaration to:

Please Login or Register  to view this content.

and the code should be fine. The way you have it declared now, you would have to call it using:
=sumfunction(6,{1,2,3,4,5,6})
for example.

[MeganB]

Thank you so much, that did the trick!!! :-)

[romperstomper]

Glad to help.

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save