OK, i know its kind of frowned on, but I need to have a cell that
flashes text.

How do i do that in Office 2007?

Any help appreciated
TIA
Esra

hi, Esra !

OK, i know its kind of frowned on, but I need to have a cell that flashes text.
How do i do that in Office 2007?

see: http://www.cpearson.com/excel/BlinkingText.aspx

or... there is a wise-tricky procedure (posted by KL in spanish ng sometime ago)...
(and with minor changes based on Thomas Jansen -1999- post)...
that let's you to preserve the undo-levels, and you might want to give it a try...

if any doudbts (or further information)... would you please comment ?
hth,
hector.

assuming 'a cell' es [B1] and you need it to 'flash' if it's value is greater than 5

1) select [B1]... - [menu] format / conditional format...
formula: - =(b15)*(mod(second(now()),2)=0)
format: - apply formats as needed/wished/...

2) copy/paste the following code-lines:
===
a) in a general code module:
===
Option Private Module
Public Sequence As Date
Sub StartBlinking()
Sequence = Now + TimeSerial(0, 0, 1)
Worksheets(1).Range("b1").Calculate ' modify/adapt/... worksheet's index/name as appropriate
Application.OnTime Sequence, "StartBlinking"
End Sub
Sub StopBlinking()
On Error Resume Next
Application.OnTime Sequence, "StartBlinking", Schedule:=False
End Sub
===
b) in 'ThisWorkbook' code module:
===
Private Sub Workbook_Open()
StartBlinking
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlinking
End Sub

On Sat, 2 Feb 2008 02:09:24 -0600, "Héctor Miguel"
wrote:

hi, Esra !

OK, i know its kind of frowned on, but I need to have a cell that flashes text.
How do i do that in Office 2007?

see: http://www.cpearson.com/excel/BlinkingText.aspx

or... there is a wise-tricky procedure (posted by KL in spanish ng sometime ago)...
(and with minor changes based on Thomas Jansen -1999- post)...
that let's you to preserve the undo-levels, and you might want to give it a try...

if any doudbts (or further information)... would you please comment ?
hth,
hector.

assuming 'a cell' es [B1] and you need it to 'flash' if it's value is greater than 5

1) select [B1]... - [menu] format / conditional format...
formula: - =(b15)*(mod(second(now()),2)=0)
format: - apply formats as needed/wished/...

2) copy/paste the following code-lines:
===
a) in a general code module:
===
Option Private Module
Public Sequence As Date
Sub StartBlinking()
Sequence = Now + TimeSerial(0, 0, 1)
Worksheets(1).Range("b1").Calculate ' modify/adapt/... worksheet's index/name as appropriate
Application.OnTime Sequence, "StartBlinking"
End Sub
Sub StopBlinking()
On Error Resume Next
Application.OnTime Sequence, "StartBlinking", Schedule:=False
End Sub
===
b) in 'ThisWorkbook' code module:
===
Private Sub Workbook_Open()
StartBlinking
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlinking
End Sub



No that doesnt seem to work for me.

When I open or close the workbook with the private subs in there, it
says compiling error, sub or function not defined

Same thing when i close the workbook


When i use conditional formatting, it says "You cannot use relative
references in Conditional Formatting criteria for colour scales, data
bars and icon sets."

Am I doing something wrong?

ty

Esra

Hector's code works fine for me.

You may have mis-read his directions or when copying code left something out.

Note: B1 won't blink the color on/off unless there is data in the cell,
although the blinking code is running. Even a <space will start it blinking.


Gord Dibben MS Excel MVP

On Sat, 02 Feb 2008 23:23:39 +1300, Esra Dekan wrote:

On Sat, 2 Feb 2008 02:09:24 -0600, "Héctor Miguel"
wrote:

hi, Esra !

OK, i know its kind of frowned on, but I need to have a cell that flashes text.
How do i do that in Office 2007?

see: http://www.cpearson.com/excel/BlinkingText.aspx

or... there is a wise-tricky procedure (posted by KL in spanish ng sometime ago)...
(and with minor changes based on Thomas Jansen -1999- post)...
that let's you to preserve the undo-levels, and you might want to give it a try...

if any doudbts (or further information)... would you please comment ?
hth,
hector.

assuming 'a cell' es [B1] and you need it to 'flash' if it's value is greater than 5

1) select [B1]... - [menu] format / conditional format...
formula: - =(b15)*(mod(second(now()),2)=0)
format: - apply formats as needed/wished/...

2) copy/paste the following code-lines:
===
a) in a general code module:
===
Option Private Module
Public Sequence As Date
Sub StartBlinking()
Sequence = Now + TimeSerial(0, 0, 1)
Worksheets(1).Range("b1").Calculate ' modify/adapt/... worksheet's index/name as appropriate
Application.OnTime Sequence, "StartBlinking"
End Sub
Sub StopBlinking()
On Error Resume Next
Application.OnTime Sequence, "StartBlinking", Schedule:=False
End Sub
===
b) in 'ThisWorkbook' code module:
===
Private Sub Workbook_Open()
StartBlinking
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlinking
End Sub



No that doesnt seem to work for me.

When I open or close the workbook with the private subs in there, it
says compiling error, sub or function not defined

Same thing when i close the workbook


When i use conditional formatting, it says "You cannot use relative
references in Conditional Formatting criteria for colour scales, data
bars and icon sets."

Am I doing something wrong?

ty

Esra

I have huh?

I open the file after i have installed the VBA as per instructions,
(copied and pasted) and when i open it, it tells me

"Compile error. Sub or function not defined"

Also says the same when I close it after clicking off that message.

I copied and pasted the formula as provided, so I dont see how that
can be wrong.

Not sure what is going on here??, :((

Need help please.

TIA
Esra






On Sat, 02 Feb 2008 12:11:37 -0800, Gord Dibben <gorddibbATshawDOTca
wrote:

Hector's code works fine for me.

You may have mis-read his directions or when copying code left something out.

Note: B1 won't blink the color on/off unless there is data in the cell,
although the blinking code is running. Even a <space will start it blinking.


Gord Dibben MS Excel MVP

On Sat, 02 Feb 2008 23:23:39 +1300, Esra Dekan wrote:

On Sat, 2 Feb 2008 02:09:24 -0600, "Héctor Miguel"
wrote:

hi, Esra !

OK, i know its kind of frowned on, but I need to have a cell that flashes text.
How do i do that in Office 2007?

see: http://www.cpearson.com/excel/BlinkingText.aspx

or... there is a wise-tricky procedure (posted by KL in spanish ng sometime ago)...
(and with minor changes based on Thomas Jansen -1999- post)...
that let's you to preserve the undo-levels, and you might want to give it a try...

if any doudbts (or further information)... would you please comment ?
hth,
hector.

assuming 'a cell' es [B1] and you need it to 'flash' if it's value is greater than 5

1) select [B1]... - [menu] format / conditional format...
formula: - =(b15)*(mod(second(now()),2)=0)
format: - apply formats as needed/wished/...

2) copy/paste the following code-lines:
===
a) in a general code module:
===
Option Private Module
Public Sequence As Date
Sub StartBlinking()
Sequence = Now + TimeSerial(0, 0, 1)
Worksheets(1).Range("b1").Calculate ' modify/adapt/... worksheet's index/name as appropriate
Application.OnTime Sequence, "StartBlinking"
End Sub
Sub StopBlinking()
On Error Resume Next
Application.OnTime Sequence, "StartBlinking", Schedule:=False
End Sub
===
b) in 'ThisWorkbook' code module:
===
Private Sub Workbook_Open()
StartBlinking
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlinking
End Sub



No that doesnt seem to work for me.

When I open or close the workbook with the private subs in there, it
says compiling error, sub or function not defined

Same thing when i close the workbook


When i use conditional formatting, it says "You cannot use relative
references in Conditional Formatting criteria for colour scales, data
bars and icon sets."

Am I doing something wrong?

ty

Esra

Maybe you got hit by linewrap in the newsgroup post.

Sub StartBlinking()
Sequence = Now + TimeSerial(0, 0, 1)
' modify/adapt/... worksheet's index/name as appropriate
Worksheets(1).Range("b1").Calculate
Application.OnTime Sequence, "StartBlinking"
End Sub

That "appropriate" line is the end of the comment. It's not really part of the
code.

Esra Dekan wrote:

I have huh?

I open the file after i have installed the VBA as per instructions,
(copied and pasted) and when i open it, it tells me

"Compile error. Sub or function not defined"

Also says the same when I close it after clicking off that message.

I copied and pasted the formula as provided, so I dont see how that
can be wrong.

Not sure what is going on here??, :((

Need help please.

TIA
Esra

On Sat, 02 Feb 2008 12:11:37 -0800, Gord Dibben <gorddibbATshawDOTca
wrote:

Hector's code works fine for me.

You may have mis-read his directions or when copying code left something out.

Note: B1 won't blink the color on/off unless there is data in the cell,
although the blinking code is running. Even a <space will start it blinking.


Gord Dibben MS Excel MVP

On Sat, 02 Feb 2008 23:23:39 +1300, Esra Dekan wrote:

On Sat, 2 Feb 2008 02:09:24 -0600, "Héctor Miguel"
wrote:

hi, Esra !

OK, i know its kind of frowned on, but I need to have a cell that flashes text.
How do i do that in Office 2007?

see: http://www.cpearson.com/excel/BlinkingText.aspx

or... there is a wise-tricky procedure (posted by KL in spanish ng sometime ago)...
(and with minor changes based on Thomas Jansen -1999- post)...
that let's you to preserve the undo-levels, and you might want to give it a try...

if any doudbts (or further information)... would you please comment ?
hth,
hector.

assuming 'a cell' es [B1] and you need it to 'flash' if it's value is greater than 5

1) select [B1]... - [menu] format / conditional format...
formula: - =(b15)*(mod(second(now()),2)=0)
format: - apply formats as needed/wished/...

2) copy/paste the following code-lines:
===
a) in a general code module:
===
Option Private Module
Public Sequence As Date
Sub StartBlinking()
Sequence = Now + TimeSerial(0, 0, 1)
Worksheets(1).Range("b1").Calculate ' modify/adapt/... worksheet's index/name as appropriate
Application.OnTime Sequence, "StartBlinking"
End Sub
Sub StopBlinking()
On Error Resume Next
Application.OnTime Sequence, "StartBlinking", Schedule:=False
End Sub
===
b) in 'ThisWorkbook' code module:
===
Private Sub Workbook_Open()
StartBlinking
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlinking
End Sub



No that doesnt seem to work for me.

When I open or close the workbook with the private subs in there, it
says compiling error, sub or function not defined

Same thing when i close the workbook


When i use conditional formatting, it says "You cannot use relative
references in Conditional Formatting criteria for colour scales, data
bars and icon sets."

Am I doing something wrong?

ty

Esra

--

Dave Peterson

What you refer to as "formula" is either a macro or event code.

As Dave points out, you could have been hit by line wrap.

My reader did not wrap but yours may have.

Here is a cleaned up set with a revision. I used a sheetname. You will edit
that to your sheetname

a) Copy these two macros to a general code module:
=================

Option Private Module
Public Sequence As Date
Sub StartBlinking()
Sequence = Now + TimeSerial(0, 0, 1)
Worksheets("MySheet").Range("B1").Calculate
Application.OnTime Sequence, "StartBlinking"
End Sub

Sub StopBlinking()
On Error Resume Next
Application.OnTime Sequence, "StartBlinking", Schedule:=False
End Sub

===================

b) Copy these two events to 'ThisWorkbook' code module:
===================

Private Sub Workbook_Open()
StartBlinking
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlinking
End Sub

======================


Gord

On Sun, 03 Feb 2008 12:52:19 +1300, Esra Dekan wrote:

I copied and pasted the formula as provided, so I dont see how that
can be wrong.