[RESUELTO]Sumar color

[bonderY]

Hola, soy nuevo en open office y necesito una formula para sumar los datos de las celdas de determinado color.
en excel yo usaba el siguiente macro:

Function Sumarcolor(Celdacolor As Range, Rangosuma As Range) As Double
Dim celda As Range
For Each celda In Rangosuma
If celda.Interior.ColorIndex = Celdacolor.Cells(1, 1).Interior.ColorIndex Then Sumarcolor = Sumarcolor + celda
Next celda
Set celda = Nothing
End Function

alguien puede ayudar ?

gracias

[fornelasa]

Hola, si es que entendido bien pudieramos usar una macro como esta:

Function SUMARCOLOR(CeldaColor As String, RangoSuma As String) As Double
Dim oRango As Object
oRango = ThisComponent.CurrentController.ActiveSheet
oCelda = oRango.GetCellRangeByName(CeldaColor).CellBackColor
oRango = oRango.GetCellRangeByName(RangoSuma)
For c = 0 to oRango.Columns.Count - 1
For f = 0 to oRango.Rows.Count - 1
If oRango.GetCellByPosition(c,f).CellBackColor = oCelda Then
oCuenta = oRango.GetCellByPosition(c,f).Value + oCuenta
End If
Next
Next
SUMARCOLOR = oCuenta
End Function

Mira por favor el siguiente archivo y nota como estan introducidos los rangos en la formula funcion, asi es, estan en texto entrecomillado.

Nota: Ignora o acepta el error que te da al abrir el archivo, actualiza las sumas pulsando Control-Shift-F9 (recalculo)

Saludos, Federico.

[bonderY]

Muchas Gracias !!
eso buscaba.

[mriosv]

Por si fuera de utilidad, adjunto el siguiente enlace del foro en inglés, realizado por Villeroy moderador de dicho foro, en el que está el código para definir distintas funciones que devuelven valores del estado de una celda entre ellos el color de fondo.
http://user.services.openoffice.org/en/ ... =21&t=2762

[FernandoPT]

Para evitar el mensaje de error, que cuando es una sola la celda que produce el error es aceptable, pero cuando son muchas se vuelve bastante molesto, encontré lo siguiente:
Después de la declaración de función, poner:

on error goto exitErr:

y antes de End Function, poner:

exitErr:
' return ""

Habrá que recalcular con Alt-Shift-F9 de todos modos, pero a mi me funcionó

Saludos.