Sismico12

Estimados, esta mañana estuve buscando como contar celdas por color de filas y color de texto. cosa que hace mucho no hacia. me costo encontrar y aprovecho para comparti y ahorra tiemposs... Saludoss!! Contar celdas por color de relleno Function CountCcolor(range_data As Range, criteria As Range) As Long Dim datax As Range Dim xcolor As Long xcolor = criteria.Interior.ColorIndex For Each datax In range_data If datax.Interior.ColorIndex = xcolor Then CountCcolor = CountCcolor + 1 End If Next datax End Function Contar celdas por color de fuente Function CountFcolor(range_data As Range, criteria As Range) As Long Dim datax As Range Dim xcolor As Long xcolor = criteria.Font.ColorIndex For Each datax In range_data If datax.Font.ColorIndex = xcolor Then CountFcolor = CountFcolor + 1 End If Next datax End Function Recordar que para poder insertar estas funciones en excel hay que hacer los siguientes pasos. 1- Abra el excel. 2- Apretar Ctrl+F11 3 - Barra de Herramientas -> Insertar -> Modulo 4- pegar el codigo enviado. Para utilizarla 5- =countFcolor( rango de datos ; celda con el color de texto a buscar)