Suma

Por ahora revisa este codigo,
suponiendo que sea en el rango B1

Sub sumar_color()
Range("b1").Select
Dim misuma
misuma = 0
Do While ActiveCell <> Empty
If ActiveCell.Interior.ColorIndex = 6 Then misuma = misuma + ActiveCell.Value
ActiveCell.Offset(1, 0).Select
If ActiveCell.Interior.ColorIndex <> 6 Then Exit Do
Loop
MsgBox misuma
End Sub

hola, Durán !

... la funcion suma, pero para realizar la funcion se depende del color de la celda
... como seria la formulacion o que posibilidades hay para sumar dependiendo del color de la celda.

-> una alternativa es si puedes aplicar los colores usando los formatos condicionales
y aprovechar los mismos 'criterios' para utilizar la funcion sumar.si -?-

-> revisa en la pagina de Fernando Arroyo: http://www.excelesp.com/
en la seccion de funciones personalizadas: http://www.excelesp.com/funcperso01.htm
encontraras una para 'contar' y otra para 'sumar' segun el color de celdas ;)

saludos,
hector.

Otra opcion es:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

Function SumByColor(InRange As Range, WhatColorIndex As Integer, _
Optional OfText As Boolean = False) As Double

Dim Rng As Range
Dim OK As Boolean

Application.Volatile True
For Each Rng In InRange.Cells
If OfText = True Then
OK = (Rng.Font.ColorIndex = WhatColorIndex)
Else
OK = (Rng.Interior.ColorIndex = WhatColorIndex)
End If
If OK And IsNumeric(Rng.Value) Then
SumByColor = SumByColor + Rng.Value
End If
Next Rng

End Function

Ejemplo de funcion:

=SumByColor(A1:A10,6)

donde 6 "amarillo" es el color a sumar :)

Saludos

Saludos.

en la siguiente direccion explican algo parecido a lo que usted necesita

http://www.jkp-ads.com/Articles/ExcelNames08.htm

Gabriel Raigosa
Medellín - Colombia

news://msnews.microsoft.com/
news://msnews.microsoft.com/microso...c.es.excel

"Durán" escribió en el mensaje
news:

Se esta utilizando la funcion suma, pero para realizar la funcion se
depende
del color de la celda, por tal mitivo necesito conocer como seria la
formulacion o que posibilidades hay para sumar dependiendo del color de la
celda.
Es un Excel 2003 en español.

Gracias