Formula with arrays

[eamendes]

I would like to make a formula that in the same range, consider only the cells where the color font is red and acumulate those values. I I wrote this formula below, but it is not working: PLEASE HELP!!

Function BestPrice(MySelection1 As Range, MySelection2 As Range) As Variant
Dim v1, v2, T As Variant
v2 = MySelection2.Font.ColorIndex
v1 = MySelection1.Value
T = 0
For i = 1 To UBound(v1, 1)
If v2(i, 1) = 3 Then
T = T + v1(i, 1)
Else
T = T
End If
Next
BestPrice = T
End Function

[Norman Jones]

Hi E,

See xlDynamic's Colour functions page at:

http://www.xldynamic.com/source/xld.....html#counting


---
Regards,
Norman



"eamendes" <[email protected]> wrote in
message news:[email protected]...
>
> I would like to make a formula that in the same range, consider only the
> cells where the color font is red and acumulate those values. I I wrote
> this formula below, but it is not working: *PLEASE HELP!!*
>
> Function BestPrice(MySelection1 As Range, MySelection2 As Range) As
> Variant
> Dim v1, v2, T As Variant
> v2 = MySelection2.Font.ColorIndex
> v1 = MySelection1.Value
> T = 0
> For i = 1 To UBound(v1, 1)
> If v2(i, 1) = 3 Then
> T = T + v1(i, 1)
> Else
> T = T
> End If
> Next
> BestPrice = T
> End Function
>
>
> --
> eamendes
> ------------------------------------------------------------------------
> eamendes's Profile:
> http://www.excelforum.com/member.php...o&userid=32176
> View this thread: http://www.excelforum.com/showthread...hreadid=519239
>