Función Sumar por Colores

[roberto]

He desarrolado una función que suma cantidades según un determinado color, y si lo hace pero unicamente con números enteros, no asi con decimales, ¿Alguien me puede ayudar?. El codigo es el siguiente:

Function SumarxColor(Celda As Range, CeldaColor As Range) As Integer
Dim cll As Range
Dim Clr As Long
Clr = CeldaColor.Range("A1").Interior.Color
For Each cll In Celda
If cll.Interior.Color = Clr Then
SumarxColor = SumarxColor + cll
End If
Next cll
End Function

 

[valedor]

Solo cambia tu funcion a Single o a Double

Function SumarxColor(Celda As Range, CeldaColor As Range) As Single

o

Function SumarxColor(Celda As Range, CeldaColor As Range) As Double

On 2002-08-29 17:38, roberto wrote:
He desarrolado una función que suma cantidades según un determinado color, y si lo hace pero unicamente con números enteros, no asi con decimales, ¿Alguien me puede ayudar?. El codigo es el siguiente:

Function SumarxColor(Celda As Range, CeldaColor As Range) As Integer
Dim cll As Range
Dim Clr As Long
Clr = CeldaColor.Range("A1").Interior.Color
For Each cll In Celda
If cll.Interior.Color = Clr Then
SumarxColor = SumarxColor + cll
End If
Next cll
End Function

 

[roberto]

On 2002-08-29 17:38, roberto wrote:
He desarrolado una función que suma cantidades según un determinado color, y si lo hace pero unicamente con números enteros, no asi con decimales, ¿Alguien me puede ayudar?. El codigo es el siguiente:

Function SumarxColor(Celda As Range, CeldaColor As Range) As Integer
Dim cll As Range
Dim Clr As Long
Clr = CeldaColor.Range("A1").Interior.Color
For Each cll In Celda
If cll.Interior.Color = Clr Then
SumarxColor = SumarxColor + cll
End If
Next cll
End Function

Mil Gracias Valedor, a veces la solución esta a tu vista y no lo alcanzas a ver. Estamos en contact....