Problem with using countbycolor vba code

[dester39]

All,
When using this code the results for summing the cells values will not show up with a decimal point.
Example: If cell A1=1, cell B1=2.25 the total in C1 should be 3.25 but it only sums as 3.

How can I get the code to allow for decimal point values? Is this a formatting issue?

Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If
ColorFunction = vResult
End Function

 

[tygrrboi]

have you tried defining vResult as Double?

 

[dester39]

Thank up you for your reply tygrrboi
How would I add that into the above code?

 

[tygrrboi]

Instead of
Dim vResult

use
Dim vResult as Double

 

[Trebor76]

Assuming you're using this User Defined Function it works for me

Have you passed in each parameter the function needs even the optional SUM Boolean argument??

I filled cell A1 green then put some numbers (including decimals) in A3:A8 and coloured some of those green and used the UDF like so...

=ColorFunction(A1,A3:A8,TRUE)

...and it worked fine. You may just need to format the output for decimals.

HTH

Robert

 

[dester39]

Sorry but that didn't help. Any other ideas?

 

[dester39]

trebor76
That worked thank you!

 

[Trebor76]

trebor76
That worked thank you!

I didn't really do too much but you're welcome