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
Macro Para Copiar Aba

Boa-tarde Tente assim: Sub Gerar_Aba() On[…]

Olá amigos! Estou elaborando uma planilha p[…]

Contagem continua

Bom dia Como contar valores continuos dentro de um[…]

Dias da semana

:D deu certo obrigado.

Leonardo1234, Bom Dia. Primeiro notei que n&atild[…]

Muito obrigado!

Desculpe estar respondendo somente agora, seria is[…]

Mediana com condicional

Tente: =MED(SE(Atendimentos_TOTAL!G:G="8_2020[…]