Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > Blinking cells
Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
Max Max is offline
external usenet poster
  
Posts: 390
Default Blinking cells
I have a workbook with 3 sheets and sheet 1 has cell A1 as a blinking cell (
code below). Now I want also sheet 2 and sheet 3 with a blinking cell ( cell
A2 in both sheets).
This is the code:

In Workbook
Private Sub Workbook_Open()
StartBlink
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlink
End Sub

In Module:
Public RunWhen As Double

Sub StartBlink()
With ThisWorkbook.Worksheets("Sheet1").Range("A1").Font
If .ColorIndex = 3 Then ' Red Text
.ColorIndex = 2 ' White Text
Else
.ColorIndex = 3 ' Red Text
End If
End With
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
True
End Sub

Sub StopBlink()
ThisWorkbook.Worksheets("Sheet1").Range("A1").Font .ColorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
False
End Sub

Any help please?
Thank you.
Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 2,836
Default Blinking cells
Change the code in the appropriate places:
Sub StartBlink()
With ThisWorkbook.Worksheets("Sheet2").Range("A2").Font
'etc...

Also,
Sub StopBlink()
ThisWorkbook.Worksheets("Sheet2").Range("A2").Font .ColorIndex = _
'etc...

HTH,
Ryan---
--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"MAX" wrote:

I have a workbook with 3 sheets and sheet 1 has cell A1 as a blinking cell (
code below). Now I want also sheet 2 and sheet 3 with a blinking cell ( cell
A2 in both sheets).
This is the code:

In Workbook
Private Sub Workbook_Open()
StartBlink
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlink
End Sub

In Module:
Public RunWhen As Double

Sub StartBlink()
With ThisWorkbook.Worksheets("Sheet1").Range("A1").Font
If .ColorIndex = 3 Then ' Red Text
.ColorIndex = 2 ' White Text
Else
.ColorIndex = 3 ' Red Text
End If
End With
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
True
End Sub

Sub StopBlink()
ThisWorkbook.Worksheets("Sheet1").Range("A1").Font .ColorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
False
End Sub

Any help please?
Thank you.
Reply With QuoteReply With Quote
  #3   Report Post  
Posted to microsoft.public.excel.programming
Max Max is offline
external usenet poster
  
Posts: 390
Default Blinking cells
I have to open a new modoule for each sheet or add them to the one I have?

"ryguy7272" wrote:

Change the code in the appropriate places:
Sub StartBlink()
With ThisWorkbook.Worksheets("Sheet2").Range("A2").Font
'etc...

Also,
Sub StopBlink()
ThisWorkbook.Worksheets("Sheet2").Range("A2").Font .ColorIndex = _
'etc...

HTH,
Ryan---
--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"MAX" wrote:

I have a workbook with 3 sheets and sheet 1 has cell A1 as a blinking cell (
code below). Now I want also sheet 2 and sheet 3 with a blinking cell ( cell
A2 in both sheets).
This is the code:

In Workbook
Private Sub Workbook_Open()
StartBlink
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlink
End Sub

In Module:
Public RunWhen As Double

Sub StartBlink()
With ThisWorkbook.Worksheets("Sheet1").Range("A1").Font
If .ColorIndex = 3 Then ' Red Text
.ColorIndex = 2 ' White Text
Else
.ColorIndex = 3 ' Red Text
End If
End With
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
True
End Sub

Sub StopBlink()
ThisWorkbook.Worksheets("Sheet1").Range("A1").Font .ColorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
False
End Sub

Any help please?
Thank you.
Reply With QuoteReply With Quote
  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 2,836
Default Blinking cells
Try this:

Sub StartBlink2()
Sub StartBlink3()
€˜etc€¦

Change the sheet names and the cell references. Place all in the same
module. Try it and see if it works the way you need it to work. Trying and
doing; best ways to learn. If it doesn't work, try something slightly
different, and if that doesn't work, you can certainly post back for more
help.

HTH,
Ryan---


--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"MAX" wrote:

I have to open a new modoule for each sheet or add them to the one I have?

"ryguy7272" wrote:

Change the code in the appropriate places:
Sub StartBlink()
With ThisWorkbook.Worksheets("Sheet2").Range("A2").Font
'etc...

Also,
Sub StopBlink()
ThisWorkbook.Worksheets("Sheet2").Range("A2").Font .ColorIndex = _
'etc...

HTH,
Ryan---
--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"MAX" wrote:

I have a workbook with 3 sheets and sheet 1 has cell A1 as a blinking cell (
code below). Now I want also sheet 2 and sheet 3 with a blinking cell ( cell
A2 in both sheets).
This is the code:

In Workbook
Private Sub Workbook_Open()
StartBlink
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlink
End Sub

In Module:
Public RunWhen As Double

Sub StartBlink()
With ThisWorkbook.Worksheets("Sheet1").Range("A1").Font
If .ColorIndex = 3 Then ' Red Text
.ColorIndex = 2 ' White Text
Else
.ColorIndex = 3 ' Red Text
End If
End With
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
True
End Sub

Sub StopBlink()
ThisWorkbook.Worksheets("Sheet1").Range("A1").Font .ColorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
False
End Sub

Any help please?
Thank you.
Reply With QuoteReply With Quote
  #5   Report Post  
Posted to microsoft.public.excel.programming
Max Max is offline
external usenet poster
  
Posts: 390
Default Blinking cells
Now I have this code (below) and only the cell in sheet 1 is blinking when I
open the workbook. In sheet 2 and sheet 3, I have to go to macro and run from
there so that the cells start blinking. I need that when I open the workbook
I found the cells already blinking in all sheets.

This is the code.

In Workbook:

Private Sub Workbook_Open()
StartBlink
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlink
End Sub

In Module:

Public RunWhen As Double

Sub StartBlink()
With ThisWorkbook.Worksheets("Sheet1").Range("A1").Font
If .ColorIndex = 3 Then ' Red Text
.ColorIndex = 2 ' White Text
Else
.ColorIndex = 3 ' Red Text
End If
End With
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
True
End Sub

Sub StopBlink()
ThisWorkbook.Worksheets("Sheet1").Range("A1").Font .ColorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
False
End Sub


Sub StartBlink2()
With ThisWorkbook.Worksheets("Sheet2").Range("A2").Font
If .ColorIndex = 3 Then ' Red Text
.ColorIndex = 2 ' White Text
Else
.ColorIndex = 3 ' Red Text
End If
End With
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink2", ,
True
End Sub

Sub StopBlink2()
ThisWorkbook.Worksheets("Sheet2").Range("A2").Font .ColorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink2", ,
False
End Sub
Sub StartBlink3()
With ThisWorkbook.Worksheets("Sheet3").Range("A2").Font
If .ColorIndex = 3 Then ' Red Text
.ColorIndex = 2 ' White Text
Else
.ColorIndex = 3 ' Red Text
End If
End With
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink3", ,
True
End Sub

Sub StopBlink3()
ThisWorkbook.Worksheets("Sheet3").Range("A2").Font .ColorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink3", ,
False
End Sub

Thanks for your help Ryan.



"MAX" wrote:

I have a workbook with 3 sheets and sheet 1 has cell A1 as a blinking cell (
code below). Now I want also sheet 2 and sheet 3 with a blinking cell ( cell
A2 in both sheets).
This is the code:

In Workbook
Private Sub Workbook_Open()
StartBlink
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlink
End Sub

In Module:
Public RunWhen As Double

Sub StartBlink()
With ThisWorkbook.Worksheets("Sheet1").Range("A1").Font
If .ColorIndex = 3 Then ' Red Text
.ColorIndex = 2 ' White Text
Else
.ColorIndex = 3 ' Red Text
End If
End With
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
True
End Sub

Sub StopBlink()
ThisWorkbook.Worksheets("Sheet1").Range("A1").Font .ColorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
False
End Sub

Any help please?
Thank you.
Reply With QuoteReply With Quote
  #6   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 2,836
Default Blinking cells
I really misunderstood what you were looking for before. I think this is
what you want:
In ThisWorkbook
Private Sub Workbook_Open()
StartBlink
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlink
End Sub

In the Module:
Public RunWhen As Double

Sub StartBlink()
With ThisWorkbook.Worksheets("Sheet1").Range("A1").Font

If .ColorIndex = 3 Then ' Red Text
.ColorIndex = 2 ' White Text
Else
.ColorIndex = 3 ' Red Text
End If
End With

With ThisWorkbook.Worksheets("Sheet2").Range("A2").Font

If .ColorIndex = 3 Then ' Red Text
.ColorIndex = 2 ' White Text
Else
.ColorIndex = 3 ' Red Text
End If
End With

With ThisWorkbook.Worksheets("Sheet3").Range("A2").Font

If .ColorIndex = 3 Then ' Red Text
.ColorIndex = 2 ' White Text
Else
.ColorIndex = 3 ' Red Text
End If
End With

RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
True
End Sub

Sub StopBlink()
ThisWorkbook.Worksheets("Sheet1").Range("A1").Font .ColorIndex = _
xlColorIndexAutomatic

ThisWorkbook.Worksheets("Sheet2").Range("A2").Font .ColorIndex = _
xlColorIndexAutomatic

ThisWorkbook.Worksheets("Sheet3").Range("A2").Font .ColorIndex = _
xlColorIndexAutomatic

Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
False
End Sub

HTH,
Ryan---

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"MAX" wrote:

Now I have this code (below) and only the cell in sheet 1 is blinking when I
open the workbook. In sheet 2 and sheet 3, I have to go to macro and run from
there so that the cells start blinking. I need that when I open the workbook
I found the cells already blinking in all sheets.

This is the code.

In Workbook:

Private Sub Workbook_Open()
StartBlink
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlink
End Sub

In Module:

Public RunWhen As Double

Sub StartBlink()
With ThisWorkbook.Worksheets("Sheet1").Range("A1").Font
If .ColorIndex = 3 Then ' Red Text
.ColorIndex = 2 ' White Text
Else
.ColorIndex = 3 ' Red Text
End If
End With
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
True
End Sub

Sub StopBlink()
ThisWorkbook.Worksheets("Sheet1").Range("A1").Font .ColorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
False
End Sub


Sub StartBlink2()
With ThisWorkbook.Worksheets("Sheet2").Range("A2").Font
If .ColorIndex = 3 Then ' Red Text
.ColorIndex = 2 ' White Text
Else
.ColorIndex = 3 ' Red Text
End If
End With
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink2", ,
True
End Sub

Sub StopBlink2()
ThisWorkbook.Worksheets("Sheet2").Range("A2").Font .ColorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink2", ,
False
End Sub
Sub StartBlink3()
With ThisWorkbook.Worksheets("Sheet3").Range("A2").Font
If .ColorIndex = 3 Then ' Red Text
.ColorIndex = 2 ' White Text
Else
.ColorIndex = 3 ' Red Text
End If
End With
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink3", ,
True
End Sub

Sub StopBlink3()
ThisWorkbook.Worksheets("Sheet3").Range("A2").Font .ColorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink3", ,
False
End Sub

Thanks for your help Ryan.



"MAX" wrote:

I have a workbook with 3 sheets and sheet 1 has cell A1 as a blinking cell (
code below). Now I want also sheet 2 and sheet 3 with a blinking cell ( cell
A2 in both sheets).
This is the code:

In Workbook
Private Sub Workbook_Open()
StartBlink
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlink
End Sub

In Module:
Public RunWhen As Double

Sub StartBlink()
With ThisWorkbook.Worksheets("Sheet1").Range("A1").Font
If .ColorIndex = 3 Then ' Red Text
.ColorIndex = 2 ' White Text
Else
.ColorIndex = 3 ' Red Text
End If
End With
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
True
End Sub

Sub StopBlink()
ThisWorkbook.Worksheets("Sheet1").Range("A1").Font .ColorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
False
End Sub

Any help please?
Thank you.
Reply With QuoteReply With Quote
  #7   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 21
Default Blinking cells
On Apr 28, 3:34*am, MAX wrote:
I have a workbook with 3 sheets and sheet 1 has cell A1 as a *blinking cell (
code below). Now I want also sheet 2 and sheet 3 with a blinking cell ( cell
A2 in both sheets).
This is the code:

In Workbook
Private Sub Workbook_Open()
* * StartBlink
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
* * StopBlink
End Sub

In Module:
Public RunWhen As Double

Sub StartBlink()
* * With ThisWorkbook.Worksheets("Sheet1").Range("A1").Font
* * * * If .ColorIndex = 3 Then ' Red Text
* * * * * * .ColorIndex = 2 ' White Text
* * * * Else
* * * * * * .ColorIndex = 3 ' Red Text
* * * * End If
* * End With
* * RunWhen = Now + TimeSerial(0, 0, 1)
* * Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
True
End Sub

Sub StopBlink()
* * ThisWorkbook.Worksheets("Sheet1").Range("A1").Font .ColorIndex = _
* * * * xlColorIndexAutomatic
* * Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
False
End Sub

Any help please?
Thank you.

JUST REPLACE THIS:

ThisWorkbook.Worksheets("Sheet1")

with

ActiveSheet

Reply With QuoteReply With Quote
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Linear Mode Linear Mode

Posting Rules
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
Blinking text somaloft Excel Worksheet Functions 1 May 3rd 08 03:01 PM
Blinking Text Esra Dekan Excel Worksheet Functions 43 February 19th 08 12:42 AM
Blinking/Flashing Cells maacmaac Excel Discussion (Misc queries) 2 December 7th 05 03:46 PM
Blinking Text Gordon C Excel Programming 1 December 7th 03 06:16 PM
Blinking Text? Wazza McG[_2_] Excel Programming 1 December 6th 03 09:59 PM


All times are GMT +1. The time now is 06:54 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement