Multiplying by 100 each cell in input range

[lucazzo]

EDIT: original post asked about adding values. Correct question regards multiplication.

Hello everyone

Here's a bit of VBA I found online to calculate a weighted median.

Please Login or Register  to view this content.

The code works nicely, except in cases where the cells in WeightRange are between 0 and 1. So it works fine if the cells in WeightRange are 1.0 and above, but the function returns a Value error if they WeightRange has anything like 0.6, 0.3, etc.

Is there any way of multiplying 100 for each cell in WeightRange while the function runs? I have tried dropping in

Please Login or Register  to view this content.

but it doesn't seem to do the trick (then again, I don't know VBA). Seems like something that ought to be simple enough.

Unfortunately, adding a helper column is not an option, as I have hundreds of these weight ranges....

Thanks in advance!

[AB33]

There are few reasons why the code could error.
What type of data the code is supposed to return?

ReDim MedianArray(1 To ArrayLength)
will fail if the range added is a fraction- you can not loop through a fraction- it got to be an integer.
The same could be said if the range sum is negative.
You have not declared many variables. Are they long or double?

[xlnitwit]

Hi,

I think you only need a couple of small additions

Please Login or Register  to view this content.

[lucazzo]

Xlnitwit: PERFECT. That did it. I can confirm it works for all cases. Thank you!