Tópicos relacionados a códigos VBA, gravação de macros, etc.
#60643
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.
Você não está autorizado a ver ou baixar esse anexo.
#60674
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?
Kledison agradeceu por isso

Bom dia! Estou fazendo um programinha para meu cu[…]

tenplacebo, Bom Dia. poste um modelo para que pos[…]

Ve agora Perc = DIVIDE ( COUNTROWS ( GC ); […]

Ajuste de Códigos

O Num lock está desativando por causa do ef[…]

Retornar Nº da linha

use a mesma formatação do codigo que[…]

Sub ReplicaDadosV2() Dim m As Long, k As Long […]

Bom dia. Alguém teria uma ideia / alternat[…]

ATUALIZAR DINAMICA COM CONDIÇÕES

Alguma solução pessoal?