Hola a todos
He definido una función en un modulo para tener una fórmula que me sume los
valores de un rango que tengan un color de fondo determinado (excel no tiene
un sumarsi en función de los formatos de las celdas). Luego utilizo la
fórmula en celdas de la hoja como si fuese una función cualquiera de excel
(=sumacolor(A1:A100;35)). El problema que tengo es que cuando hago cambios en
dicho rango (cambio los colores) no se me actualiza automáticamente el
resultado de fórmula y tengo que ir celda a celda (donde tengo dicha fórmula)
para que me de el resultado correcto. Hay alguna forma para que se actualice
el resultado automáticamente?
La función que he definido es la siguiente (por si le interesa a alguien):
Function sumacolor(mirango As Range, color As Integer) As Double
sumacolor = 0
If color > 0 Then
For i = 1 To mirango.Count
If mirango(i).Interior.ColorIndex = color Then
sumacolor = sumacolor + mirango(i).Value
End If
Next i
Else
For i = 1 To mirango.Count
If mirango(i).Interior.ColorIndex = xlNone Then
sumacolor = sumacolor + mirango(i).Value
End If
Next i
End If
End Function
Leer las respuestas