SumByColor rounding

[Aviad L]

I am using code below for SumByColor and it works great however it rounds my numbers what do I need to change?


Function SumByColor(CellColor As Range, rRange As Range)
Dim cSum As Long
Dim ColIndex As Integer
ColIndex = CellColor.Interior.ColorIndex
For Each cl In rRange
If cl.Interior.ColorIndex = ColIndex Then
cSum = WorksheetFunction.Sum(cl, cSum)
End If
Next cl
SumByColor = cSum
End Function


Thanks!

 

[gsistek]

Change Dim cSum As Long to Dim cSum as Decimal.
Long is a 'long integer'. Using decimal or double will allow for non-whole numbers.

 

[Aviad L]

Change Dim cSum As Long to Dim cSum as Decimal.
Long is a 'long integer'. Using decimal or double will allow for non-whole numbers.

now it gives me this error : Compile error: Syntax error


Function SumByColor(CellColor As Range, rRange As Range)
Dim cSum as Decimal
Dim ColIndex As Integer
ColIndex = CellColor.Interior.ColorIndex
For Each cl In rRange
If cl.Interior.ColorIndex = ColIndex Then
cSum = WorksheetFunction.Sum(cl, cSum)
End If
Next cl
SumByColor = cSum
End Function

 

[gsistek]

My apologies. I've been databasing all day (where decimal is used). Change it to Double.

 

[Aviad L]

My apologies. I've been databasing all day (where decimal is used). Change it to Double.

Thank you it worked!