Wierd One Here >>>>

[Legacy 98055]

Hi.
Writing a procedure to cause a cell to blink if certain conditions are not met...
However, a double-click in any cell causes the procedure to stop???

See:
http://www.mrexcel.com/board/viewtopic.php?topic=6567&forum=2&5

Code Here:


<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>

Thanks,
Tom

 

[Ivan F Moala]

Hi Tom ??
Not too sure but apparently if you are in some sought of edit mode eg doubleclick
or formula edit / cell edit THEN IF the
Timer passes the Start value the function
call is RESET....not sure why ??
Will have a look further (time pemitting)

Just a side note: Sometimes you discover
different things when you least expect it.
Perhaps this could be used to your advantage
on something else ??
Just as an example Xl97 / Userform:- I found
that exercuting a call to displaying the Help
About ms excel caused the Userform to become
Non Modal !! so I didn't have to do any API
calls ......No one could explain it. I even
asked John Walkenback....

I'll keep this in mind...may come in handy.

 

[Legacy 98055]

Thanks for the reply Ivan