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
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