Sumar Celdas del mismo color

13/12/2005 - 17:38 por Principiante | Informe spam
Hola grupo.

Vaya por delante que tengo pocos conocimietos de EXCEL.

Necesito sumar unas celdas que tengan el mismo color de fondo. Busqué en
este grupo y encontré una función:

Function SumarColorFondo(rngCeldaColor As Range, rngRangoAsumar As
Range) As Double
Dim rngCelda As Range

For Each rngCelda In rngRangoAsumar
If rngCelda.Interior.ColorIndex = rngCeldaColor.Cells(1,
1).Interior.ColorIndex Then SumarColorFondo = SumarColorFondo + rngCelda
Next rngCelda

Set rngCelda = Nothing
End Function

Se supone que esta función suma las celdas que se le pasen como rango.

Una celda (H8 por ej) debe tener lo siguiente:

=SumarColorFondo(C2;A2:A11)

Siendo C2 una celda que posee el color que quiero sumar.
Siendo A2:A11 el rango de celdas de colores a sumar

El caso es que me sale esto: #¿NOMBRE?

Yo he puesto el código de la función VER CÓDIGO de la HOJA con los datos.

Que hago mal? Como hacerlo?

Gracias.

Principiante.
 

Leer las respuestas

#1 Hernandez, Roberto
13/12/2005 - 17:59 | Informe spam
Hola principiante.
El código de una función deberá ir pegado en un módulo, para que pueda ser
visto en todas las celdas de Excel, por decirlo de alguna manera.
Haz click derecho en el explorador de proyectos[mmm..., mira, con tu libro
de excel abierto presiona ALT + F11, y en la parte izquierda de la pantalla
aparecerá el explorador de proyectos].
Ok. click derecho insertar--> Módulo.

Corta el código de la hoja y pégalo en este módulo.
Deberá funcionar.

"Principiante" escribió en el mensaje
news:
Hola grupo.

Vaya por delante que tengo pocos conocimietos de EXCEL.

Necesito sumar unas celdas que tengan el mismo color de fondo. Busqué en
este grupo y encontré una función:

Function SumarColorFondo(rngCeldaColor As Range, rngRangoAsumar As Range)
As Double
Dim rngCelda As Range

For Each rngCelda In rngRangoAsumar
If rngCelda.Interior.ColorIndex = rngCeldaColor.Cells(1,
1).Interior.ColorIndex Then SumarColorFondo = SumarColorFondo + rngCelda
Next rngCelda

Set rngCelda = Nothing
End Function

Se supone que esta función suma las celdas que se le pasen como rango.

Una celda (H8 por ej) debe tener lo siguiente:

=SumarColorFondo(C2;A2:A11)

Siendo C2 una celda que posee el color que quiero sumar.
Siendo A2:A11 el rango de celdas de colores a sumar

El caso es que me sale esto: #¿NOMBRE?

Yo he puesto el código de la función VER CÓDIGO de la HOJA con los datos.

Que hago mal? Como hacerlo?

Gracias.

Principiante.

Preguntas similares