Utilizar fórmulas con los formatos
Buenos días, y sobre todo muchas gracias por ayudarme, el caso es que quería saber como puedo hacer para contar las cuadros que aparezcan por ejemplo en color amarillo. Muchas gracias
1 Respuesta
Respuesta de Elsa Matilde
1
Hace un tiempo el experto Tavopz dejó esta función que hace lo que necesitas.
La copias en un módulo del Editor, y luego podes buscarla entre las funciones de Excel, categoría Definidas por el usuario.
Función Cuenta por Color
=============
Function CountByColor(InputRange As Range, ColorRange as Range) As Long
Dim cl As Range, TempCount As Long, ColorIndex As Integer
ColorIndex = ColorRange.Cells(1, 1).Interior.ColorIndex
TempCount = 0
For Each cl In InputRange.Cells
If cl.Interior.ColorIndex = ColorIndex Then
TempCount = TempCount + 1
End If
Next cl
Set cl = Nothing
CountByColor = TempCount
End Function
=============
Como verás, el primer dato de la función corresponde al rango donde buscarás el color de celda, el segundo dato corresponde a una celda con el color de referencia.
Saludos y comentame si esto resuelve tu consulta.
La copias en un módulo del Editor, y luego podes buscarla entre las funciones de Excel, categoría Definidas por el usuario.
Función Cuenta por Color
=============
Function CountByColor(InputRange As Range, ColorRange as Range) As Long
Dim cl As Range, TempCount As Long, ColorIndex As Integer
ColorIndex = ColorRange.Cells(1, 1).Interior.ColorIndex
TempCount = 0
For Each cl In InputRange.Cells
If cl.Interior.ColorIndex = ColorIndex Then
TempCount = TempCount + 1
End If
Next cl
Set cl = Nothing
CountByColor = TempCount
End Function
=============
Como verás, el primer dato de la función corresponde al rango donde buscarás el color de celda, el segundo dato corresponde a una celda con el color de referencia.
Saludos y comentame si esto resuelve tu consulta.
Ya han pasado las fiestas, los brindis, saludos, regalos... ahora es tiempo de poner al día los temas pendientes:
