Este fórum está sendo desativado

[SandroLima]

Boa tarde.

Preciso de ajuda para uma função que conta as células com cor de preenchimento.

Seriam de duas maneiras para que eu possa fazer a confirmação dos resultados:

1) Na célula apontada pela Seta Vermelha a função ou fórmula deve contar o Nº de células da coluna registro com a cor de preenchimento igual a da célula F10.

2) Na célula apontada pela Seta Amarela a função ou fórmula deve contar o Nº de células da coluna registro com a cor de preenchimento igual a da primeira célula (nesse caso B12, mas seria sempre a primeira célula da Tabela) da Coluna Registro da Tabela "TB_AtivDiarias"

Segue planilha anexa para verificação.

Obrigado a quem puder ajudar.

[SandroLima]

Resolvido.

Estava faltando a expressão "ByVal" na function.

Código: Selecionar todos

Option Explicit

Function CountColor(ByVal Intervalo As Range, ByVal Cel_Colorida As Range) As Long
    
    Dim Cell As Range
    Dim Criterio As Long 'Dim XColor As Long
    
    Criterio = Cel_Colorida.Interior.ColorIndex
    
    'Recalcula a função em qualquer alteração da planilha
    Application.Volatile
    
    For Each Cell In Intervalo
        If Cell.Interior.ColorIndex = Criterio Then
            CountColor = CountColor + 1
        End If
    Next Cell
    
End Function

Onde coloco o tópico por finalizado?