Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Suma

01/06/2006 - 16:43 por Durán | Informe spam
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
 

Leer las respuestas

#1 Francisco Mty
01/06/2006 - 18:28 | Informe spam
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

Preguntas similares