Re: Como piscar celulas

[Daniele de Sousa Cavalcante]

Valeu pela tentativa... Mas fazer piscar a célula pór piscar isso eu já fiz.. Minha dificuldade é em fazer piscar as células que tem o 1 ou 2 ou 3 e na cor respectiva a esse valor... Essa é a grande dificuldade....
Mas valeu aew pela rotina... Ela é bem mais implificada da que tinha bolado... VEja abaixo a que tinha feito:
Option Explicit
Dim proxTime As Date
Const FontColorOff = 0
Const InteriorColorOff = 1
Const FontColorOn = 3
Const InteriorColorOn = 8
Sub Flash()
Dim proxTime As Date
proxTime = Now + TimeValue("00:00:01")
[a1] = "pisca"
[a1].Select
With ActiveCell.Font
If .ColorIndex = 5 Then
.ColorIndex = 3
Else
.ColorIndex = 5
End If
End With
Application.OnTime proxTime, "Flash"
End Sub

Sub FlashOn()
'Intervalo de flashes = 1 segundo, respeitar este intervalo entre os flashes
proxTime = Now + TimeValue("00:00:01")
Application.OnTime proxTime, "Define_Flash"
End Sub

Sub FlashOff()
Application.OnTime_
EarliestTime = proxTime
Procedure = "Define_Flash"
Schedule = False

With ActiveWorkbook.Styles("Flash")
.Font.ColorIndex = FontColorOff
.Interior.ColorIndex = InteriorColorOff
End With
End Sub

Sub Define_Flash()
With ActiveWorkbook.Styles("Flash")
With .Font
.ColorIndex = IIf(.ColorIndex = FontColorOn, FontColorOff, FontColorOn)
End With
With .Interior
.ColorIndex = IIf(.ColorIndex = InteriorColorOn, InteriorColorOff, InteriorColorOn)
End With
End With
FlashOn
End Sub

Então ainda continua o desafio.. Se alguém puder me dá uma luz eu agradeçoooo!!!
Até mais!!!!
Daniele

[Daniele de Sousa Cavalcante]

Pessoal é o seguinte:
Trabalho em uma empresa que possui usinas termicas, e fui indica a fazer uma automação nas planilhas de excel da empresa... Estou com o trabalho 98% conluído, mas tenho uma planilha que está me tirando o sono... Pois tenho um problema, mas me faltam idéias para resolvê-lo...
Explicando melhor, tenho a seguinte situação:
Tenho uma planilha chamada "Relatório_de_Avarias", nesta planilha tenho uma planta de como se comporta os equipamentos na usina, cada equipamento está simbolizado com o desenho específico e ancorado a uma célula.
Nesta planilha criei uma parte destinada somente aos nomes destes componetes, um tipo de legenda... Onde o operador da usina terá que colocar o código de específica falha que o componente/equipamento está apresentando... Então para isso criei uma legenda com os códigos das falhas e a referida cor... Quando o operador coloca o valor "1" por exemplo, a coluna ao lado fica preenchida com a cor da falha e também é dado o mesmo preenchimento na célula que está o desenho do equipamento...

Quero bolar uma macro que faça essas células piscarem... Com a devida cor das falhas... Mas essa macro só seria acionada quando fosse clicado no botão "Relatorio_Falhas" que encontra-se em outra planilha, pois esse botão tem a função de abrir essa planilha (Relatorio_de_Avarias)
Se isso não fosse possível... Poderia acionar essa macro "piscar_celulas" na planilha atual mesmo "Relatorio_de_Avarias", pois tendo a rotina "piscar_celulas" feita basta eu criar um botão que acione o comando....

Ficaria muito grata de alguém pudesse me ajudar...

Att. Daniele Cavalcante

As falhas que posso ter em uma usina são:
- Falhas mecânicas cod. 1 e a cor do preenchimento é "verde brilhante"... Ainda não consultei o código RGB
- Falhas eletricas cod. 2 e a cor do preenchimento é "laranja"
- Falhas eletronicas cod. 3 e a cor do preenchimento é "rosa"

Essas cores são cores padrões em nossos relatórios...

Mais uma vez agradeço se alguém puder me ajudar...
Até +
Daniele Cavalcante