Need assistance with my blinkblink

Coney · Feb 4th 2003

I have a code that the interior of a cell blinks red if the amount entered is >500.
A double-click in any cell exits the procedure.
I am trying to keep any cell that blinks to continue blinking.
Please advise.

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

Dave Hawley · Feb 4th 2003

Hi Coney

I have some code on my site that goes like:

Make a Cell Range Flash Different Colors

This Procedure will make the range C3:G13 loop through 5 different colors. The changes occur at 2 second intervals

Code

Dim iCount As Integer
Sub ColorChange()
Dim dTime As Date
''''''''''''''''''''''''''''''
'Will make range of cells, or single cell change colors _
 at 2 second intervals


'Written by OzGrid.com
'''''''''''''''''''''''''''''''
dTime = Now
Application.OnTime dTime + TimeValue("00:00:02"), "ColorChange"
iCount = iCount + 1
Range("C3:G13").Interior.ColorIndex = Choose(iCount, 3, 36, 50, 7, 34)
    If iCount = 5 Then
        Count = 0
        Application.OnTime dTime + TimeValue("00:00:02"), "ColorChange", , False
    End If
End Sub

Display More

Code like this however is really only a gimmick :wow: as it renders the Interface unusable while running.

A much better and more practical choice is Format>Conditional Formating.

Epidemic · Feb 4th 2003

Not as fancy but easy and effective. Use conditional formating on the column where you need to test.

Coney · Feb 6th 2003

Just had a chance to review your replies.
I will take your advice, I was just trying to do something a little different.

Need assistance with my blinkblink

Participate now!

Share

Users Viewing This Thread