Boa tarde!!
Pessoal, coloquei uma função em VBA para dizer a cor da célula. Se chama "cor" e está funcionando.
Function Cor(CellColor As Range)
Cor = CellColor.Interior.ColorIndex
End Function
Porém a ideia é utilizar a função "se" com essa que coloquei em VBA, só que da erro. Não to conseguindo achar o erro ou se isso é possível.
Preciso criar um gráfico onde tem o previsto e realizado. A coluna C (C19 até C29), só irá entrar os números da tabela que estão com a célula vermelha.
eu coloco "=SE(G3=Cor(3);G3;"Aguarde")" e da erro.
Alguém pode me ajudar?
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
[RESOLVIDO] Condição SE com uma função criada em VBA
-
- Colaborador
- Mensagens: 19
- Registrado em: Sex Jan 05, 2018 3:13 pm
- Localização: Rio de Janeiro, RJ
[RESOLVIDO] Condição SE com uma função criada em VBA
- Anexos
-
- Condição e cor com VBA.zip
- (18.46 KiB) Baixado 189 vezes
Editado pela última vez por NayanaE em Ter Ago 07, 2018 2:07 pm, em um total de 1 vez.
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Condição SE com uma função criada em VBA
a função requer como parametro uma range -->
Correto:- Cor(G3), onde G3 e uma range valida
Errado:- Cor(3) onde 3 e numero não range; motivo do erro.
Se deseja utilizar o resultado da função deve efetuar uma comparação =/- assim
se(cor(g3)=3;G3;"Aguarde")--> onde 3 e o index da cor comparada
Correto:- Cor(G3), onde G3 e uma range valida
Errado:- Cor(3) onde 3 e numero não range; motivo do erro.
Se deseja utilizar o resultado da função deve efetuar uma comparação =/- assim
se(cor(g3)=3;G3;"Aguarde")--> onde 3 e o index da cor comparada
-
- Colaborador
- Mensagens: 19
- Registrado em: Sex Jan 05, 2018 3:13 pm
- Localização: Rio de Janeiro, RJ
Re: Condição SE com uma função criada em VBA
aaaaah obrigada!! Abriu a minha mente! Devia ser a cabeça cansada! kkkkk
Coloquei "=SE(Cor(G3)=3;G3;NÃO.DISP())" para não aparecer o valor zero no gráfico quando não tiver célula vermelha!!! Obrigadaaa!!
Coloquei "=SE(Cor(G3)=3;G3;NÃO.DISP())" para não aparecer o valor zero no gráfico quando não tiver célula vermelha!!! Obrigadaaa!!