Dúvidas sobre cálculos, funções simples e aninhadas, fórmulas matriciais, etc.
Por aluizs
#59792
Olá,

Estou criando uma planilha onde é contada o número de células coloridas em uma range com o seguinte código:

Public Function CountCcolor(range_data As Range, criteria As Range) As Long
Dim datax As Range
Dim xcolor As Long
xcolor = criteria.Interior.Color
For Each datax In range_data
If datax.Interior.Color = xcolor Then
CountCcolor = CountCcolor + 1
End If
Next datax

End Function

e depois e uma célula do excel uso o código na célula A11 (=10 - CountCcolor(A1:A10;D1)), só que ao alterar a cor de uma célula o valor do calcula não atualiza automaticamente, eu tenho que clicar na celula A11 e depois ir na barra de formula e clicar no botão inserir.

Desta forma meu questionamento é como coloco um botão para chamar esta função. Já tentei colocar no sub do botão o código “Call Val(10 - CountCcolor(A1:A10;D1))” só que está dando erro de síntese no " : "

Obrigado.
Por Strogonoff
#59981
Boa noite!
se pudesse enviar uma planilha para que tivesse como visualizar ficaria mais facil...
De repente deixar como uma sub ficaria mais fácil e colocaria o seguinte instrução na PLANILHA e não no módulo

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(targe, Range("a1:a10")) Is Nothing Then
' colocar o codigo ou chamar a sub aqui...

End If
End Function

Segue uma ideia, veja se aproveita. 1. elabore um[…]

Pessoal, ao salvar minha tabela dinâmica no […]

DÚVIDA: Como gerar a data final?

Isso mesmo Strogonoff, muito obrigado! Sobre a su[…]

Variáveis em um Dashboard

Você precisa de um gráfico dinâ[…]

Bom dia! Estou precisando de uma ajuda com SQL e V[…]

Como você não informou o horár[…]

Como abrir tela de Logon do SAP ECC?

@FAMenezes , Tudo bom... sei que já faz um[…]

Rotina e Macro

Oi. Tenho uma planilha com um jogo. Nele os partic[…]