SUMA SI COLOR
Resuelto
Amesam
Mensajes publicados
18
Fecha de registro
Estado
Miembro
Última intervención
-
Amesam Mensajes publicados 18 Fecha de registro Estado Miembro Última intervención -
Amesam Mensajes publicados 18 Fecha de registro Estado Miembro Última intervención -
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.
