Foro Excel

SALUDOS, QUISIERA VER SI ALGUIEN ME PUEDE AYUDAR, NECESITO SABER LA FORMA DE UTILIZAR UNA MACRO DE SUMA POR COLOR CONVINADO CON FORMATO CONDICIONAL.

HE VISTO MUCHOS EJERCICIOS PARA SUMAR CELDAS CON UN DETERMINADO COLOR UTILIZANDO LA FUNCION SUMBYCOLOR, COMO SIGUE:

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

SIN EMBARGO, ESTA FUNCION NO SIRVE SI ALGUNO DE LOS COLORES DE LAS CELDAS A SUMAR VIENE DE UN FORMATO CONDICIONAL.

POR FAVOR AYUDENME A VER COMO SE PUEDE REALIZAR ESTO.

GRACIAS.

Hola Spawn

Aqui te envio una solucion

jimcov

JIMCOV ERES UN GENIO, MUCHAS GRACIAS, FUNCIONA PERFECTO.

HOLA, ME PORDRÍAS COLGAR LA RESPUESTA. yA NO ESTÁ DISPONIBLE. TENGO EL MISMO PROBLEMA QUE EL CHAVAL ANTERIOR.

GRACIAS