Flashing Text

[asyamonique]

<CODE itxtHarvested="1" itxtNodeId="15">Public NextFlash As Double
Public Const FR As String = "Sheet1!A1"
Sub StartFlashing()
If Range(FR).Interior.ColorIndex = 3 Then
Range(FR).Interior.ColorIndex = xlColorIndexNone
Else
Range(FR).Interior.ColorIndex = 3
End If
NextFlash = Now + TimeSerial(0, 0, 1)
Application.OnTime NextFlash, "StartFlashing", , True
End Sub
Sub StopFlashing()
Range(FR).Interior.ColorIndex = xlColorIndexNone
Application.OnTime NextFlash, "StartFlashing", , False
End Sub</CODE>

Good Day,
The above code simply works with two button as start & stop.
Is it possible to alter it like if the cell values lesser than -100 within the ranges of ("B5:Y25") then flashing will be started?

 

[asyamonique]

<CODE itxtNodeId="15" itxtHarvested="1">Public NextFlash As Double
Public Const FR As String = "Sheet1!A1"
Sub StartFlashing()
If Range(FR).Interior.ColorIndex = 3 Then
Range(FR).Interior.ColorIndex = xlColorIndexNone
Else
Range(FR).Interior.ColorIndex = 3
End If
NextFlash = Now + TimeSerial(0, 0, 1)
Application.OnTime NextFlash, "StartFlashing", , True
End Sub
Sub StopFlashing()
Range(FR).Interior.ColorIndex = xlColorIndexNone
Application.OnTime NextFlash, "StartFlashing", , False
End Sub</CODE>

Good Day,
The above code simply works with two button as start & stop.
Is it possible to alter it like if the cell values lesser than -100 within the ranges of ("B5:Y25") then flashing will be started?

Or how can we alter the below code as in same ranges ("B5:Y25") when the values are lesser then -100.000 ?
Many Thanks

Option Explicit
Public CellCheck As Boolean
 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
 
     'Change the IF statement and cell range to what you need
    If Range("A1") = "-100000" And CellCheck = False Then
        Call StartBlink
        CellCheck = True
    ElseIf Range("A1") <> "-100000" And CellCheck = True Then
        Call StopBlink
        CellCheck = False
    End If
 
End Sub
 
Option Explicit
Public RunWhen As Double
 
Sub StartBlink()
    If Range("A1").Interior.ColorIndex = 3 Then
        Range("A1").Interior.ColorIndex = 6
    Else
        Range("A1").Interior.ColorIndex = 3
    End If
    RunWhen = Now + TimeSerial(0, 0, 1)
    Application.OnTime RunWhen, "StartBlink", , True
End Sub
 
Sub StopBlink()
    Range("A1").Interior.ColorIndex = xlAutomatic
    Application.OnTime RunWhen, "StartBlink", , False
End Sub

 

[Jon Peltier]

You going to give the users a way to turn off the flashing? I'd find it so annoying that I wouldn't use the workbook.

 

[asyamonique]

You going to give the users a way to turn off the flashing? I'd find it so annoying that I wouldn't use the workbook.

i think it wouldn't be difficult to remove it just ignore that part.
The fact is how can we set the flashing in ranges ("B5:Y25") when the cell value is lesser -100.000?

 

[Jon Peltier]

You've missed my point. Flashing text is insanely annoying, and you should not use it at all. Why can't you use unflashing conditional formatting? Change the font to bold italic magenta, with a bright yellow cell background, if the condition is not met. Very noticeable without inducing seizures or causing homicidal rage.

 

[asyamonique]

Thanks Jon,
U r right
Cheers,