Este fórum está sendo desativado

[Angra]

Bom dia
Na tabela tem alguns valores formatados que precisam ser contados e mostrar em uma célula, o total de formatados

[babdallas]

Veja se é isso:

Código: Selecionar todos

Option Explicit

Public Function ContaCorDiferentePreto(rngIntervalo As Range) As Long
    Dim rngCelula   As Range
    Dim lngContador As Long

    If rngIntervalo Is Nothing Then
        ContaCorDiferentePreto = Err.Number
        Exit Function
    End If
    
    For Each rngCelula In rngIntervalo
        If rngCelula.Interior.ColorIndex <> 1 Then lngContador = lngContador + 1
    Next rngCelula
    
    ContaCorDiferentePreto = lngContador
End Function

[Angra]

babdallas, não sei onde ta o erro se eh que ele existe. Essa eh uma função personalizada, apliquei formatação no intervalo e a função não atualizou a contagem