Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Iniciar piscagem de...
 
Notifications
Clear all

Iniciar piscagem de célula quando um valor for "x"

 
2024 - VBA & Macros
Post Recente por ilbeh morais 13 anos atrás
10 Posts
2 Usuários
0 Reactions
2,543 Visualizações
RSS
 ilbeh morais
(@ilbeh-morais)
Posts: 51
Trusted Member
Topic starter
 

Boa tarde

Peguei esse código "emprestado" e quero adaptar a minha necessidade. Tem como fazer o código abaixo piscar "C5" quando essa célula assumir um valor "X" e parar de piscar quando o valor voltar a ser zero?

Dim Executar

Sub IniciarPiscagem()
If Range("A1").Interior.ColorIndex = 3 Then
Range("A1").Interior.ColorIndex = 6
Range("B2").Interior.ColorIndex = 6
Else
Range("A1").Interior.ColorIndex = 3
Range("B2").Interior.ColorIndex = 3
End If
Executar = Now + TimeSerial(0, 0, 1)
Application.OnTime Executar, "IniciarPiscagem", , True
End Sub

Sub PararPiscagem()
Range("A1").Interior.ColorIndex = 1
Range("B2").Interior.ColorIndex = 1
Application.OnTime Executar, "IniciarPiscagem", , False
End Sub

Grato

 
Postado : 23/06/2012 11:41 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Use a pesquisa do fórum, pois eu havia postado aolgo a respeito!!

Caso realmente não consegui adaptar, retorne ao fórum!

Att

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

 
Postado : 23/06/2012 11:55 am
 ilbeh morais
(@ilbeh-morais)
Posts: 51
Trusted Member
Topic starter
 

Boa tarde
alexandrevba, pesquisando por piscagem de celula não encontrei nada na pesquisa, me dê por favor o nome do topico

 
Postado : 23/06/2012 12:05 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Veja se vai te ajudar.
viewtopic.php?f=16&t=3431&p=15915&hilit=pintar+c%C3%A9lula#p15915

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

 
Postado : 23/06/2012 12:17 pm
 ilbeh morais
(@ilbeh-morais)
Posts: 51
Trusted Member
Topic starter
 

Boa tarde
alexandrevba, agradeço o topico mas o codigo que eu postei, funciona bem diante da minha necessidade, o que preciso é que quando uma celula "x" assumir um determinado valor seja disparado o codigo e fique piscando a celula "x"

 
Postado : 23/06/2012 12:28 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!
Ao digitar o valor 1 na celula A1, a mesma ficará piscando!!!
Baixe o arquivo em: http://www.sendspace.com/file/use9lo
E faça as adaptações necessárias!!

Att

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

 
Postado : 23/06/2012 12:45 pm
 ilbeh morais
(@ilbeh-morais)
Posts: 51
Trusted Member
Topic starter
 

Alexandrevba c eh um craque, valeu, muito bom era isso mesmo

 
Postado : 23/06/2012 1:50 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Obrigado pelo retorno!
Para manter o fórum organizado CASO tenha esclarecido sua dúvida, marque o tópico como resolvido!!

Veja em:
viewtopic.php?f=7&t=3784

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

 
Postado : 23/06/2012 2:10 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite, pessoal do fórum!

Dentro desse exemplo do Alexvba, como ficaria no caso de uma célula piscar, mas esta tem o formato R$ #.###,##? Queria adptar esse exemplo, mas tendo como base o seguinte: só não piscar se o valor for R$ 0,00. Qualquer valor negativo/positivo ela piscaria até zerar. Como ficaria o Código?

Att, Pedro.

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

 
Postado : 23/06/2012 3:43 pm
 ilbeh morais
(@ilbeh-morais)
Posts: 51
Trusted Member
Topic starter
 

Bom dia
alexandrevba, minhas desculpas por não ter marcado como resolvido,esqueci. Mas, antes tarde do que nunca!

 
Postado : 24/06/2012 9:03 am
Forum Jump:
  Tópico Anterior
Próximo Tópico