blinking cell
 

Is there a possibility to make a cell content blink under certain conditions
(as in conditional formatinf for example...)?
Thanks

No

--
Ian
--
"ktisqj" wrote in message
...
Is there a possibility to make a cell content blink under certain
conditions
(as in conditional formatinf for example...)?
Thanks

It can be done by using code, but its a really bad idea.
Using such code causes more problems than enough. Blinking or flashing are
things that were not regarded as important by the creators of Excel it would
appear, there's no built in function similar to that in Word for example.
Regards,
Alan.
"ktisqj" wrote in message
...
Is there a possibility to make a cell content blink under certain
conditions
(as in conditional formatinf for example...)?
Thanks

Yes, with VBA.

However, note that blinking text is a violation of Section 508 (29
U.S.C. 794d) for government sites in the US, as certain blink rates can
cause seizures in epileptics.

Besides that, it's annoying as hell.

However, if you search the archives:

http://groups.google.com/advanced_gr...ugroup=*excel*

you'll undoubtedly find a way.


In article ,
ktisqj wrote:

Is there a possibility to make a cell content blink under certain conditions
(as in conditional formatinf for example...)?

"JE McGimpsey" wrote in message
...
Yes, with VBA.

However, note that blinking text is a violation of Section 508 (29
U.S.C. 794d) for government sites in the US, as certain blink rates can
cause seizures in epileptics.

Besides that, it's annoying as hell.

However, if you search the archives:

http://groups.google.com/advanced_gr...ugroup=*excel*

you'll undoubtedly find a way.


In article ,
ktisqj wrote:

Is there a possibility to make a cell content blink under certain
conditions
(as in conditional formatinf for example...)?

blinking cell
 

try this

when you wrote under process it will blink

--------------------

Public Const TextToFind = "Under Process"

Public RunWhen As Double

Sub StartBlink()
Dim LopX As Long
Dim LopY As Long

On Error Resume Next
For LopX = 1 To 15
For LopY = 1 To 100
If InStr(Trim(LCase(Cells(LopY, LopX))), LCase(TextToFind)) 0
Then
If Cells(LopY, LopX).Font.Color = vbRed Then
Cells(LopY, LopX).Font.Color = vbBlack
Else
Cells(LopY, LopX).Font.Color = vbRed
End If
End If
Next
Next
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
True
Err.Clear
End Sub


Sub StopBlink()
Dim LopX As Long
Dim LopY As Long

On Error Resume Next
For LopX = 1 To 15
For LopY = 1 To 100
If InStr(Trim(LCase(Cells(LopY, LopX))), LCase(TextToFind)) 0
Then
Cells(LopY, LopX).Font.Color = vbBlack
End If
Next
Next
RunWhen = 0
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
False
Err.Clear
End Sub

------------


"ktisqj" wrote:

Is there a possibility to make a cell content blink under certain conditions
(as in conditional formatinf for example...)?
Thanks