SUMA SI COLOR
Resuelto
Hola,
Me estoy atascando con un archivo, un planificador de 2018.
Uso esta función:
Durante tres años he estado usando esta función y no he tenido problemas, pero ahora no encuentro por qué no funciona.
He guardado mi archivo en .xlsm pero lo mismo.
Si tienes alguna idea, gracias por la respuesta.
Me estoy atascando con un archivo, un planificador de 2018.
Uso esta función:
Function SOMME_SI_COULEUR(PlageSomme As Range, PlageCouleur As Range) As Variant
'*********************************************************
' Realiza la suma de las celdas de color *
'*********************************************************
Dim Cel As Range
Dim Som As Double
If PlageCouleur.Cells.Count > 1 Then
SOMME_SI_COULEUR = CVErr(xlErrValue)
Exit Function
End If
For Each Cel In PlageSomme
If Cel.Interior.ColorIndex = PlageCouleur.Interior.ColorIndex Then Som = Som + Cel
Next
SOMME_SI_COULEUR = Som
End Function
Durante tres años he estado usando esta función y no he tenido problemas, pero ahora no encuentro por qué no funciona.
He guardado mi archivo en .xlsm pero lo mismo.
Si tienes alguna idea, gracias por la respuesta.
