Cómo contar celdas que sean de un color determinado y que sean mayores qué

Puedes poner el código de la función CONTARCOLOR para actualizarlo

Muy buenas,

Aquí el código que conseguí en un tutorial:

Function CONTARCOLOR(celdaOrigen As Range, rango As Range)

Application.Volatile

'Variables
Dim celda As Range
'Recorremos todas las celdas del rango
For Each celda In rango
'Compara la propiedad Interior.Color
If celda.Interior.Color = celdaOrigen.Interior.Color Then
CONTARCOLOR = CONTARCOLOR + 1
End If
Next celda
End Function

Te anexo otra macro, la función CONTARCOLOR2

Con tu función CONTARCOLOR podrás seguir contando celdas de acuerdo a determinado color.

Ahora, con la función CONTARCOLOR2, podrás contar celdas de un color, pero además solamente las contará si el valor de la celda es mayor a 4.

Pon la siguiente macro en un módulo:

Function CONTARCOLOR2(celdaOrigen As Range, rango As Range)
    Application. Volatile
    'Variables
    Dim celda As Range
    'Recorremos todas las celdas del rango
    For Each celda In rango
    'Compara la propiedad Interior.Color
        If celda.Interior.Color = celdaOrigen.Interior.Color Then
            If celda.Value > 4 Then
                CONTARCOLOR2 = CONTARCOLOR2 + 1
            End If
        End If
    Next celda
End Function

.

.

Muchísimas gracias :D

Funciona a la perfección, cambié los valores requeridos para hacer el CONTARCOLOR para la versión de suspensos (<5) y va como se esperaba.

Muchas gracias por la rapidez y la exactitud :)

Muy buenas de nuevo,

Me ha surgido otro problema: resulta que al poner la fórmula en las diferentes casillas, ésta me cuenta las celdas sin valor como un 0. En el caso de los aprobados no las cuenta pero en el caso de los suspensos me las cuenta como si fuesen menores de 5. Necesitaría añadir a la fórmula otra línea en la que solo cuente casillas con valor.

Pongo la fórmula de suspensos que modifiqué de la muestra de arriba:

Function CONTARCOLORSUSP(celdaOrigen As Range, rango As Range)
    Application.Volatile
    'Variables
    Dim celda As Range
    'Recorremos todas las celdas del rango
    For Each celda In rango
    'Compara la propiedad Interior.Color
        If celda.Interior.Color = celdaOrigen.Interior.Color Then
            If celda.Value < 5 Then
                CONTARCOLORSUSP = CONTARCOLORSUSP + 1
            End If
        End If
    Next celda
End Function

(Ahora si añadí la formula con la opción de insertar... disculpar mi ignorancia).

Muchas gracias de antemano.

Al final de mi respuesta hay un botón para valorar la respuesta: "Votar" y "Excelente", apreciaría que cambiaras la valoración.

Perfecto :) Lo hago, perdona que no marcase excelente antes, no lo vi, lo hubiese hecho sin duda :) Abro una nueva pregunta :)