How do I change cell colours rapidly in excel 2003 to create a flashing effect

Hi,

Before you do this consider that:-

1. Some people are sensitive to flashing lighst and it can induce fits.
2. Others may find it so irritating they would simply close the workbook and
delete it and FWIW I fall into the second category

So of you must put this code in a general module

Option Explicit
Public FlashRate As Double

Sub Flash()
If Range("A1").Interior.ColorIndex = 3 Then
Range("A1").Interior.ColorIndex = 6
Else
Range("A1").Interior.ColorIndex = 3
End If
FlashRate = Now + TimeSerial(0, 0, 1)
Application.OnTime FlashRate, "Flash", , True
End Sub

Sub StopBlink()
Range("A1").Interior.ColorIndex = xlAutomatic
Application.OnTime FlashRate, "Flash", , False
End Sub


Mike

"col" wrote:

How do I change cell colours rapidly in excel 2003 to create a flashing effect

Hi, Mike.

I have a multicoloured, daily record (albeit 2007) used by four or five
others. One particular entry falls into the "flashing cell" type of
requirement to ensure it is completed each time the worksheet is brought up
to date. I have the code you kindly provided which works fine, but what I
would like to achieve is the flashing cell to be active immediately on
opening the workbook rather than having to launch the macro. Can this be
done?

TIA,
Ed



"Mike H" wrote in message
...
Hi,

Before you do this consider that:-

1. Some people are sensitive to flashing lighst and it can induce fits.
2. Others may find it so irritating they would simply close the workbook
and
delete it and FWIW I fall into the second category

So of you must put this code in a general module

Option Explicit
Public FlashRate As Double

Sub Flash()
If Range("A1").Interior.ColorIndex = 3 Then
Range("A1").Interior.ColorIndex = 6
Else
Range("A1").Interior.ColorIndex = 3
End If
FlashRate = Now + TimeSerial(0, 0, 1)
Application.OnTime FlashRate, "Flash", , True
End Sub

Sub StopBlink()
Range("A1").Interior.ColorIndex = xlAutomatic
Application.OnTime FlashRate, "Flash", , False
End Sub


Mike

"col" wrote:

How do I change cell colours rapidly in excel 2003 to create a flashing
effect

If you MUST have a blinking cell..............

Private Sub Worksheet_Activate()
Flash
End Sub

You will also want to stop the blinking when the cell is filled in.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo stoppit
Application.EnableEvents = False
If Target.Address = "$A$1" And Target.Value < "" Then
StopBlink
End If
stoppit:
Application.EnableEvents = True
End Sub

These go into the sheet module.

I would not have blinking cells.

You could do the same with a message box reminder that popped up when user
activates the sheet.

Private Sub Worksheet_Activate()
MsgBox "Don't forget to fill in A1"
End Sub


Gord Dibben MS Excel MVP

On Sat, 4 Jul 2009 14:14:53 +0100, "Ed O'Brien"
wrote:

Hi, Mike.

I have a multicoloured, daily record (albeit 2007) used by four or five
others. One particular entry falls into the "flashing cell" type of
requirement to ensure it is completed each time the worksheet is brought up
to date. I have the code you kindly provided which works fine, but what I
would like to achieve is the flashing cell to be active immediately on
opening the workbook rather than having to launch the macro. Can this be
done?

TIA,
Ed



"Mike H" wrote in message
...
Hi,

Before you do this consider that:-

1. Some people are sensitive to flashing lighst and it can induce fits.
2. Others may find it so irritating they would simply close the workbook
and
delete it and FWIW I fall into the second category

So of you must put this code in a general module

Option Explicit
Public FlashRate As Double

Sub Flash()
If Range("A1").Interior.ColorIndex = 3 Then
Range("A1").Interior.ColorIndex = 6
Else
Range("A1").Interior.ColorIndex = 3
End If
FlashRate = Now + TimeSerial(0, 0, 1)
Application.OnTime FlashRate, "Flash", , True
End Sub

Sub StopBlink()
Range("A1").Interior.ColorIndex = xlAutomatic
Application.OnTime FlashRate, "Flash", , False
End Sub


Mike

"col" wrote:

How do I change cell colours rapidly in excel 2003 to create a flashing
effect

Thanks, Gord.

After a dozen times of the cell being missed and causing on-going errors
later, a flashing cell I hope will cure it.

I have been trying the Auto_Open and VB method shown in "Help" but I can't
get either to work. Manually launching it works okay but hardly an answer.
(Better to fill the dammed cell in than mess with macros)!

The message method may work as long as the dolts don't cancel it and then
forget...!

I'll let you know how I get on.

Ed



"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
If you MUST have a blinking cell..............

Private Sub Worksheet_Activate()
Flash
End Sub

You will also want to stop the blinking when the cell is filled in.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo stoppit
Application.EnableEvents = False
If Target.Address = "$A$1" And Target.Value < "" Then
StopBlink
End If
stoppit:
Application.EnableEvents = True
End Sub

These go into the sheet module.

I would not have blinking cells.

You could do the same with a message box reminder that popped up when user
activates the sheet.

Private Sub Worksheet_Activate()
MsgBox "Don't forget to fill in A1"
End Sub


Gord Dibben MS Excel MVP

On Sat, 4 Jul 2009 14:14:53 +0100, "Ed O'Brien"
wrote:

Hi, Mike.

I have a multicoloured, daily record (albeit 2007) used by four or five
others. One particular entry falls into the "flashing cell" type of
requirement to ensure it is completed each time the worksheet is brought
up
to date. I have the code you kindly provided which works fine, but what I
would like to achieve is the flashing cell to be active immediately on
opening the workbook rather than having to launch the macro. Can this be
done?

TIA,
Ed



"Mike H" wrote in message
...
Hi,

Before you do this consider that:-

1. Some people are sensitive to flashing lighst and it can induce fits.
2. Others may find it so irritating they would simply close the workbook
and
delete it and FWIW I fall into the second category

So of you must put this code in a general module

Option Explicit
Public FlashRate As Double

Sub Flash()
If Range("A1").Interior.ColorIndex = 3 Then
Range("A1").Interior.ColorIndex = 6
Else
Range("A1").Interior.ColorIndex = 3
End If
FlashRate = Now + TimeSerial(0, 0, 1)
Application.OnTime FlashRate, "Flash", , True
End Sub

Sub StopBlink()
Range("A1").Interior.ColorIndex = xlAutomatic
Application.OnTime FlashRate, "Flash", , False
End Sub


Mike

"col" wrote:

How do I change cell colours rapidly in excel 2003 to create a flashing
effect

Hi, Gord.

I gave up on the blinking cell idea and decided on the pop-up message, which
is probably better.

I'm running Excel 2007 but can't even get this to work.

The file is .xlsm, all macros are enabled. I clicked "Sheet 1", inserted
"Module 1" and I placed your script -

Private Sub Worksheet_Activate()
MsgBox "Don't forget to fill in A12"
End Sub

It is a blank (test) workbook with no other entries.

I'm mystified. Any ideas?

Thanks for your patience.

Ed


"Ed O'Brien" wrote in message
...
Thanks, Gord.

After a dozen times of the cell being missed and causing on-going errors
later, a flashing cell I hope will cure it.

I have been trying the Auto_Open and VB method shown in "Help" but I can't
get either to work. Manually launching it works okay but hardly an answer.
(Better to fill the dammed cell in than mess with macros)!

The message method may work as long as the dolts don't cancel it and then
forget...!

I'll let you know how I get on.

Ed



"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
If you MUST have a blinking cell..............

Private Sub Worksheet_Activate()
Flash
End Sub

You will also want to stop the blinking when the cell is filled in.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo stoppit
Application.EnableEvents = False
If Target.Address = "$A$1" And Target.Value < "" Then
StopBlink
End If
stoppit:
Application.EnableEvents = True
End Sub

These go into the sheet module.

I would not have blinking cells.

You could do the same with a message box reminder that popped up when
user
activates the sheet.

Private Sub Worksheet_Activate()
MsgBox "Don't forget to fill in A1"
End Sub


Gord Dibben MS Excel MVP

On Sat, 4 Jul 2009 14:14:53 +0100, "Ed O'Brien"
wrote:

Hi, Mike.

I have a multicoloured, daily record (albeit 2007) used by four or five
others. One particular entry falls into the "flashing cell" type of
requirement to ensure it is completed each time the worksheet is brought
up
to date. I have the code you kindly provided which works fine, but what I
would like to achieve is the flashing cell to be active immediately on
opening the workbook rather than having to launch the macro. Can this be
done?

TIA,
Ed



"Mike H" wrote in message
...
Hi,

Before you do this consider that:-

1. Some people are sensitive to flashing lighst and it can induce fits.
2. Others may find it so irritating they would simply close the
workbook
and
delete it and FWIW I fall into the second category

So of you must put this code in a general module

Option Explicit
Public FlashRate As Double

Sub Flash()
If Range("A1").Interior.ColorIndex = 3 Then
Range("A1").Interior.ColorIndex = 6
Else
Range("A1").Interior.ColorIndex = 3
End If
FlashRate = Now + TimeSerial(0, 0, 1)
Application.OnTime FlashRate, "Flash", , True
End Sub

Sub StopBlink()
Range("A1").Interior.ColorIndex = xlAutomatic
Application.OnTime FlashRate, "Flash", , False
End Sub


Mike

"col" wrote:

How do I change cell colours rapidly in excel 2003 to create a
flashing
effect