Notifications
Clear all

Célula Piscando em VBA

11 Posts
3 Usuários
0 Reactions
3,994 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia colegas do Planilhando,

Preciso da ajuda de vocês pra realizar uma tarefa.
Aqui onde trabalho montei um painel com alguns indicadores diários como: Descarga de pedidos dos vendedores, Devolução na rota, Quantidade de Caminhões no dia e por ai vai. Conforme as descargas dos vendedores vai acontecendo, o numero do faturamento e outros indicadores é alterado. O painel já está funcionando perfeitamente, rodando com uma planilha de espelho, que fica mostrando os indicadores em um TV e por trás outras planilhas que são atualizadas automaticamente a partir de relatorios que são gerados do sistema com o AUTOMATE. Mas o que gostaria que acontecesse agora é que a cada vez que os valores seja alterados a celula que sofreu alteração pisque algumas vezes( se para mais VERDE, se para menos VERMELHO (Alguns indicadores são gerados a partir de uma média que pode variar tanto para mais quanto para menos)) para que a gente possa visualizar que esse campo foi alterado e que o painel fique mais dinamico. Procurei alguns na internet mas nada que me atendesse.
Precisaria um código que faça isso para mim.
Não sei se fui claro, mas espero que sim.

Fico no aguardo da resposta, Obrigado!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/05/2014 7:57 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Arci, não seria melhor utilizar a Formatação Condicional ?
Veja bem, se o valor da celula é alterado atraves do resultado da formula, o excel não consegue enxergar esta alteração, em consequencia não temos como atribuir a algum evento.

Se pesquisar no forum por Piscar Celula encontrara varios posts sobre o assunto, se não me engano já teve um com a mesma questão e não teve jeito.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/05/2014 8:03 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Formatação condicional ele atribuirá a formatação e ficara estático, correto? Eu gostaria que ela piscasse umas 4x para sinalizar que houve alteração e depois assumisse sua formatação normal.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/05/2014 8:17 am
(@edilsonjc)
Posts: 39
Eminent Member
 

Formatação condicional ele atribuirá a formatação e ficara estático, correto? Eu gostaria que ela piscasse umas 4x para sinalizar que houve alteração e depois assumisse sua formatação normal.

Este aqui me atendeu perfeitamente. Veja se lhe atende é só fazer suas alterações. Se preferir tenho outra que pisca continuamente até que o valor seja normalizado.

 
Postado : 28/05/2014 8:44 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

arci, o modelo que o edilson postou, foi um dos que eu cheguei a adaptar, mas é como eu disse acima, a rotina só será executada se for alterada alguma celula manualmente e não pelo resultado da formula.

Então, diga como é feito esta alteração, é digitado nas planilhas que diz que sofrem alterações automaticas ? Se sim, teriamos como captar esta alteração, só precisaria informar detalhadamente os passos e qual celula é alterada.

De uma olhada em alguns tópicos sobre o assunto se ajudam:
Piscar Celula [Resolvido]
viewtopic.php?f=10&t=8828

como fazer uma ou mais células do excel piscar intermitentem
viewtopic.php?f=16&t=3868

Piscar células de cotação de preços
viewtopic.php?f=10&t=2618&p=11872&hilit=piscar#p11872

Células piscando
viewtopic.php?f=10&t=850

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/05/2014 8:52 am
(@edilsonjc)
Posts: 39
Eminent Member
 

Mauro foi mal por não dar o créditos a você. Estava na dúvida aonde eu tinha pego este exemplo. Este código ficou show e sempre uso no meu trampo.
:oops:

 
Postado : 28/05/2014 9:26 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Obrigado pelas respostas.

Eu possuo 2 arquivos ( Controla Painel e Painel)
O arquivo PAINEL é praticamente um ESPELHO do arquivo CONTROLA PAINEL, só que com um layout de melhor visualização.
Elas está alocadas em um notebook que fica em minha sala de servidores e estendido por um cabo HDMI até a sala do ADM em uma TV. Na TV mostra apenas o arquivo PAINEL. A arquivo PAINEL busca os valores através de formulas (Ex: =[Controla Painel]Controla Painel!A1) no arquivo CONTROLA PAINEL. O arquivo CONTROLA PAINEL através do software automate, busca todas as informações em outros relatórios gerados em .CSV pelo sistema. Na planilha Painel não existe nenhuma mudança manual, todas são efetuadas de forma automática, nós não mexemos no arquivo PAINEL.
O que eu busco, é que no momento que for gerado o relatório no sistema, o meu arquivo CONTROLA PAINEL vai atualizar as informações e automaticamente no arquivo PAINEL as informações sofrerão alteração. Nesse momento gostaria que no arquivo PAINEL, que está na TV, ao atualizar as informações a célula que sofreu essa atualização, fique piscando por um determinado tempo para que a gente tenha uma visualização mais direta do que foi alterado.

Podemos ter em mente um painel da bolsa de valores, que quando altera um valor ela pisca ou em VERMELHO ou em VERDE.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/05/2014 11:48 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pelo que entendi, teriamos de trabalhar a partir deste momento :"O arquivo CONTROLA PAINEL através do software automate, busca todas as informações em outros relatórios".

Estou supondo que apos a busca pelo softer o arquivo CONTROLA PAINEL é atualizado, se for isto, podemos utilizar no Evento Change ou SelectionChange a rotina para percorrer a coluna que contenha os valores a serem analizados e efetuar o efeito que pretende.
Um outro ponto que teria de ser esclarecido, é quanto a verificação dos valores, tem de se verificar se o valor atual é maior ou menor que um valor predeterminado ou comparado com os valores que já existiam.

Lembro-me de um outro modelo em que o usuário desistiu deste tipo de implementação devido ao arquivo conter muitos dados e com isto o tempo de execução era longo, mas como não citou a qde de dados, fica a seu criterio se quer experimentar, se sim, se possível anexe um pequeno modelo somente do arquivo CONTROLA PAINEL ou indique qual a coluna contem os dados e se são qde de linhas fixas ou variáveis.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/05/2014 1:29 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Estou mandando o arquivo do PAINEL, que seria onde tem que ser feito a programação para piscar a celula.. As colunas que existem celulas que podem sofrer alterações durante o dia são: F, H, N, X, Y

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/05/2014 1:49 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

arci, em primeiro lugar retirei os vinculos, formulas e graficos deste seu modelo só para ficar mais fácil trabalhar com ele, mas, em seu modelo original você só terá de adicionar a rotina.
O que foi feito:
Criei a rotina Sub PiscarRange(), de inicio defini somente um conjunto de Range: "Range("F13:F41")".
Depois coloquei a chamada para esta macro no Evento Calculate da aba, ou seja, toda vez que esta aba for Recalculada a macro será executada e verificará se os valores no Range definido são Maiores que 100, se sim a celula piscará 5 vezes, fiz desta forma uma vez que não respondeu a esta questão no tópico anterior, alias, se for para comparar com os valores que já existiam, não digo ser impossivel, mas demandaria outros tipos de programações e abas e ranges auxiliares.

Quanto aos outros ranges que citou, você só comentou colunas e não exatamente quais celulas destas colunas.

De inicio faça um teste somente nestes ranges para ver se estamos no caminho certo.

Tem comentários na planilha e na rotina
Piscar Celulas Evento Calculate

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/05/2014 7:13 pm
(@bruno789)
Posts: 1
New Member
 

Pessoal algum pode me ajudar.

Preciso que fique piscando a linha (A:E) quando aparecer "1" no resultado em uma das células A2 à A5.

Exemplo:

A B C D E
1 CONDIÇÃO CALCULO LIMITE % VALOR INDICADOR
2 0 A - RISCO BAIXO 100% R$ 413.153 DE 7,4 A 10
3 1 B - RISCO MÉDIO 60% R$ 247.892 DE 4,7 A 7,3
4 0 C - RISCO ALTO 25% R$ 103.288 DE 2,1 A 4,6
5 0 D - RISCO DEFAULT 0% R$ - DE 0 A 2

Neste Exemplo deverá ficar piscando as informações das células A3,B3,C3,D3 e E3.

 
Postado : 14/06/2018 12:18 pm