Foro Excel

Adjunto archivo para plantear mejor mi problema, quisiera que, al ponerle un determinado color a las celdas (del mes que sea) ésta se sume en otra, y al darle color a una segunta, tercera, etc..., se sumen tambien el la misma celda, la cual tiene el encabezado de "Revisado".

Ya intente de varias formas, y solo me causan errores mis intentos.

De antemano por la ayuda o no ayuda, gracias.

Saludos desde Cuernavaca, Morelos, México.

Hola Creedence

Te adjunto un fichero con una posible solución.

Utiliza una función definida por el usuario (en el Módulo 1) (que saqué en su momento del Foro) y una macro de evento (sita en Hoja1) para que active el recálculo cuando modifiques el color).

El 37 de la función corresponde al ColorIndex del azul que empleas.

Un saludo desde Vitoria

EXCELENTE, Ioyama, muchas gracias, problema resuelto.

Amigo, como funciona la macro (el módulo)?, es decir, en que momento selecciona la celda en donde se suman todas aquellas con determinado color, dame el tip compañero, por fa.

Si das cuenta del codigo tienes dentro de la hoja la funcion en S12 =SumByColor(E12:P12,37), la parte de E12:P12 hace la funcion de rango denominado "InRange" usado dentro del For Each Rng In InRange.Cells, donde se recorre todo el rango mencionado en la funcion, el 37 es el color como se menciona dentro del a hoja para asignar a la celda.
Aqui "If OK And IsNumeric(Rng.Value) Then" te hace la validacion de si es celda con dato y si es numerico me parece
y aqui te suma los valores SumByColor = SumByColor + Rng.Value

Saludos