Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Flashing cells
Hi, i wanted to have several cells were if the value reaches a certain amout
a third cell will slowly flash, the code below works to some extent but not properly, cell A1 flashes blue when H1 is higher in value than G1, but i wanted cell B1 to flash if I1 was greater than J1 and so on, but it doesn't work correctly, the top half of the code takes presidence over the later half. Any ideas were i have gone wrong? Mnay thanks for any help. Private Sub Worksheet_Change(ByVal Target As Range) If Range("H1") ("G1") Then Beep Dim newColor As Integer Dim myCell As Range Dim x As Integer Dim fSpeed Set myCell = Range("A1") newColor = 41 fSpeed = 0.5 Do Until x = 10 DoEvents Start = Timer Delay = Start + fSpeed Do Until Timer Delay DoEvents myCell.Interior.ColorIndex = newColor Loop Start = Timer Delay = Start + fSpeed Do Until Timer Delay DoEvents myCell.Interior.ColorIndex = xlNone Loop x = x + 1 Loop Else If Range("I1") Range("J1") Then Beep Set myCell = Range("B1") newColor = 24 fSpeed = 0.5 Do Until x = 10 DoEvents Start = Timer Delay = Start + fSpeed Do Until Timer Delay DoEvents myCell.Interior.ColorIndex = newColor Loop Start = Timer Delay = Start + fSpeed Do Until Timer Delay DoEvents myCell.Interior.ColorIndex = xlNone Loop x = x + 1 Loop Else Application.StatusBar = False Application.DisplayStatusBar = Application.DisplayStatusBar Application.EnableEvents = True End If End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Flashing cells | Excel Programming | |||
Cells flashing | Excel Programming | |||
flashing cells | Excel Worksheet Functions | |||
Flashing cells | Excel Worksheet Functions | |||
Flashing Cells | Excel Programming |