Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Suma

01/06/2006 - 16:43 por Durán | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 4 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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

 

Busqueda sugerida :