Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cells flashing
I want cells B1 and F1 flashing, and I am using this code (below). When I run
the macro, it is giving me a compile error ( Block If without End If). Any help please? This is the code: Option Explicit Dim nextSecond Sub startFlashing() flashCell End Sub Sub stopFlashing() On Error Resume Next Application.OnTime nextSecond, "flashCell", , False End Sub Sub flashCell() nextSecond = Now + TimeValue("00:00:01") Application.OnTime nextSecond, "flashCell" If Range("B1").Interior.ColorIndex = 7 Then Sheet1.Range("B1").Interior.ColorIndex = 41 Sheet1.Range("B1").Value = "Light Blue" ElseIf Range("B1").Interior.ColorIndex = 41 Then Sheet1.Range("B1").Interior.ColorIndex = 7 Sheet1.Range("B1").Value = "Pink" If Range("F1").Interior.ColorIndex = 7 Then Sheet1.Range("F1").Interior.ColorIndex = 41 Sheet1.Range("F1").Value = "Light Blue" ElseIf Range("F1").Interior.ColorIndex = 41 Then Sheet1.Range("F1").Interior.ColorIndex = 7 Sheet1.Range("F1").Value = "Pink" End If End Sub Thanks a lot. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cells flashing
You are missing and End If after your firs If....ElseIf... statements.
"MAX" wrote in message ... I want cells B1 and F1 flashing, and I am using this code (below). When I run the macro, it is giving me a compile error ( Block If without End If). Any help please? This is the code: Option Explicit Dim nextSecond Sub startFlashing() flashCell End Sub Sub stopFlashing() On Error Resume Next Application.OnTime nextSecond, "flashCell", , False End Sub Sub flashCell() nextSecond = Now + TimeValue("00:00:01") Application.OnTime nextSecond, "flashCell" If Range("B1").Interior.ColorIndex = 7 Then Sheet1.Range("B1").Interior.ColorIndex = 41 Sheet1.Range("B1").Value = "Light Blue" ElseIf Range("B1").Interior.ColorIndex = 41 Then Sheet1.Range("B1").Interior.ColorIndex = 7 Sheet1.Range("B1").Value = "Pink" If Range("F1").Interior.ColorIndex = 7 Then Sheet1.Range("F1").Interior.ColorIndex = 41 Sheet1.Range("F1").Value = "Light Blue" ElseIf Range("F1").Interior.ColorIndex = 41 Then Sheet1.Range("F1").Interior.ColorIndex = 7 Sheet1.Range("F1").Value = "Pink" End If End Sub Thanks a lot. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cells flashing
Please read the opening paragraph and BE SURE TO READ the last item in the
Summary at the bottom of the page... http://www.cpearson.com/excel/BlinkingText.aspx -- Rick (MVP - Excel) "MAX" wrote in message ... I want cells B1 and F1 flashing, and I am using this code (below). When I run the macro, it is giving me a compile error ( Block If without End If). Any help please? This is the code: Option Explicit Dim nextSecond Sub startFlashing() flashCell End Sub Sub stopFlashing() On Error Resume Next Application.OnTime nextSecond, "flashCell", , False End Sub Sub flashCell() nextSecond = Now + TimeValue("00:00:01") Application.OnTime nextSecond, "flashCell" If Range("B1").Interior.ColorIndex = 7 Then Sheet1.Range("B1").Interior.ColorIndex = 41 Sheet1.Range("B1").Value = "Light Blue" ElseIf Range("B1").Interior.ColorIndex = 41 Then Sheet1.Range("B1").Interior.ColorIndex = 7 Sheet1.Range("B1").Value = "Pink" If Range("F1").Interior.ColorIndex = 7 Then Sheet1.Range("F1").Interior.ColorIndex = 41 Sheet1.Range("F1").Value = "Light Blue" ElseIf Range("F1").Interior.ColorIndex = 41 Then Sheet1.Range("F1").Interior.ColorIndex = 7 Sheet1.Range("F1").Value = "Pink" End If End Sub Thanks a lot. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Flashing cells | Excel Worksheet Functions | |||
flashing cells | Excel Worksheet Functions | |||
Flashing cells | Excel Worksheet Functions | |||
flashing cells | Excel Discussion (Misc queries) | |||
Flashing Cells | Excel Programming |