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)
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)