Conditionally Format Question

coneyglaze

New Member
Joined
Apr 18, 2002
Messages
13
Is it possible (and I know with excel anything is possible) to conditionally format with blinking (Flashing) text and/or flashing cell color.
 

Excel Facts

What is the shortcut key for Format Selection?
Ctrl+1 (the number one) will open the Format dialog for whatever is selected.
I don't know?
Will definitely see if I can though...
Be back in a minute
Tom
 
Upvote 0
What are the conditions and in which cells?
Condition(s) to blink = ?
Condition(s) to not blink = ?
What colors do you want?
Blink black and white?
Red and white?
ect...
Do you want the font to blink or the cell interior?
Tom
This message was edited by TsTom on 2002-04-28 00:10
 
Upvote 0
The following will cause cell A1 to blink Red and White until a value of 10 or greater is entered...

Tom

<pre>

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value < 10 Then
BlinkBlink Sheet1.Range("A1")
End If
End If
End Sub

Sub BlinkBlink(BlinkingRange As Range)
Dim Start
Do Until BlinkingRange.Value >= 10
Start = Timer
Do While Timer < Start + 1
If Timer = 0 Then Start = Timer
DoEvents
Loop
If BlinkingRange.Interior.ColorIndex = 3 Then
BlinkingRange.Interior.ColorIndex = 0
Else: BlinkingRange.Interior.ColorIndex = 3
End If
Loop
End Sub

</pre>
 
Upvote 0
Let's say the condition to blink will be a dollar amount above $500.00 > less not to blink. The cells this will be in will differ at any given sheet. Does that help any?
 
Upvote 0
Huh?

A double-click in any cell exits the procedure?
I wonder why that is?
 
Upvote 0
Thats alittle too vague...
Will need a range of cells to work with..
Thanks,
Tom
 
Upvote 0
right-click on your sheet tab, choose view code, paste the procedures below...


<pre>

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target.Value > 500 Then
BlinkBlink Sheet1.Range("A" & Target.Row)
End If
Columns(1).Interior.ColorIndex = 0
End If
End Sub

Sub BlinkBlink(BlinkingRange As Range)
Dim Start
Do Until BlinkingRange.Value <= 500
Start = Timer
Do While Timer < Start + 1
If Timer = 0 Then Start = Timer
DoEvents
Loop
If BlinkingRange.Interior.ColorIndex = 3 Then
BlinkingRange.Interior.ColorIndex = 0
Else: BlinkingRange.Interior.ColorIndex = 3
End If
Loop
End Sub


</pre>
 
Upvote 0
That is what I needed.........Sorry it took me a while to get back to you to let you know. I yelled out THAT IS IT so loud, that I woke my baby up .......not a good thing at 3:36am if you know what I mean .......I have worked on this all day.... and I knew it could be done........THANK YOU
 
Upvote 0

Forum statistics

Threads
1,213,504
Messages
6,114,016
Members
448,543
Latest member
MartinLarkin

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top