View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
ChadF ChadF is offline
external usenet poster
 
Posts: 44
Default URGENT HELP ON BLINKING/FLASHING CELL

Might want to consider the following...

in the Worksheet_Change() event code...

Dim BlinkRange as Range

Set BlinkRange = Range("A1:A100")

If Not Intersect(Target, BlinkRange) is nothing then
if Target.Value 75% and Target.Value < 100% then
Startblink
end if
if Target.Value 100% then
StopBlink
end if

End If

Target is a parameter automatically supplied to the Worksheet_Change event
code. (It refers to a specific cell. What this code does - sets a named
range (A1:A100), checks to see if the Target is within that specific area,
then checks the target's value and sees if it's between 75%-100% (so you can
set the blink flag)

.... is this what you have in mind ??

Chad





"EXCEL USER" wrote:

I am current using the blink text code found at www.cpearson.com but I would
like to make it so that if I were to change a value in a cell that it would
then start blinking. So for example: If cell A1:A100 percentages changes
between 75% to 100% than blink and if it is 100% over 100% than I need to
show some kind of different signals but I still want taht cell to be
blinking.
Also, I would like to make the cell's fill color blink from white to red and
not the text (this is not as crititcal). Any help on this would be great.
my e-mail is Here is coding that I have used

Public RunWhen As Double

Sub StartBlink()
If Range("bq6:bq89").Font.ColorIndex = 2 Then
Range("bq6:bq89").Font.ColorIndex = xlColorIndexAutomatic
Else
Range("bq6:bq89").Font.ColorIndex = 3
End If
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "StartBlink", , True
End Sub


Sub StopBlink()
Range("bq6:bq89").Font.ColorIndex = xlColorIndexAutomatic
Application.OnTime RunWhen, "StartBlink", , False
End Sub

Thanks in advance!