Thanks Thanks:  0
Likes Likes:  0
Results 1 to 10 of 10

Thread: Conditionally Format Question

  1. #1
    New Member
    Join Date
    Apr 2002
    Location
    Fort Worth
    Posts
    13
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

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

  2. #2
    Board Regular
    Join Date
    Mar 2002
    Location
    Cincinnati, Ohio, USA
    Posts
    6,824
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

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

  3. #3
    Board Regular
    Join Date
    Mar 2002
    Location
    Cincinnati, Ohio, USA
    Posts
    6,824
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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 ]

  4. #4
    Board Regular
    Join Date
    Mar 2002
    Location
    Cincinnati, Ohio, USA
    Posts
    6,824
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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



  5. #5
    New Member
    Join Date
    Apr 2002
    Location
    Fort Worth
    Posts
    13
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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?

  6. #6
    Board Regular
    Join Date
    Mar 2002
    Location
    Cincinnati, Ohio, USA
    Posts
    6,824
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Huh?

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

  7. #7
    Board Regular
    Join Date
    Mar 2002
    Location
    Cincinnati, Ohio, USA
    Posts
    6,824
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

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

  8. #8
    New Member
    Join Date
    Apr 2002
    Location
    Fort Worth
    Posts
    13
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

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


  9. #9
    Board Regular
    Join Date
    Mar 2002
    Location
    Cincinnati, Ohio, USA
    Posts
    6,824
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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




  10. #10
    New Member
    Join Date
    Apr 2002
    Location
    Fort Worth
    Posts
    13
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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

Some videos you may like

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •