Este fórum está sendo desativado

[aluizs]

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.

[Strogonoff]

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