Conditionally Format Question

[coneyglaze]

Is it possible (and I know with excel anything is possible) to conditionally format with blinking (Flashing) text and/or flashing cell color.

[Tom Schreiner]

I don't know?
Will definitely see if I can though...
Be back in a minute
Tom

[Tom Schreiner]

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 ]

[Tom Schreiner]

The following will cause cell A1 to blink Red and White until a value of 10 or greater is entered...

Tom

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

[coneyglaze]

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?

[Tom Schreiner]

Huh?

A double-click in any cell exits the procedure?
I wonder why that is?

[Tom Schreiner]

Thats alittle too vague...
Will need a range of cells to work with..
Thanks,
Tom

[coneyglaze]

Cell range can be A1:A50 should cover what I need this for.

[Tom Schreiner]

right-click on your sheet tab, choose view code, paste the procedures below...

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

[coneyglaze]

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