blinking cell

[hans]

Is there a function that wil mak a cell blink (change collor) is the value
of a cell is for example not 0?

Greetings Hans

 

[Frank Kabel]

Hi
this can only be done with VBA (using the OnTime method). But I
strongly recommend not to do this:
- blinking cells have nothing to do with spreadsheets
- using OnTime may significantly slow down Excel

If you need this kind of formating try a Google search for 'Blink cell'

 

[Norman Harker]

Hi Hans!

I agree with Frank!

At least this approach only flashes if there's a change to the
offending cell.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("MyFlashCell")) Is Nothing Then Exit Sub
Dim n As Integer
Dim NextTime As Date
If Range("MyFlashCell").Value > 7 Then
For n = 1 To 5
With Range("MyFlashCell").Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
With Range("MyFlashCell").Interior
If .ColorIndex = 3 Then .ColorIndex = 2 Else .ColorIndex = 3
End With
Application.Wait Now + TimeValue("00:00:01")
Next
End If
With Range("MyFlashCell")
..Font.ColorIndex = 3
..Interior.ColorIndex = 2
End With
End Sub

I wish to deny the rumor that I was transported to Australia for
flashing.

--
Regards
Norman Harker MVP (Excel)
Sydney, Australia
(e-mail address removed)
Excel and Word Function Lists (Classifications, Syntax and Arguments)
available free to good homes.

 

[Frank Kabel]

[snip]

I wish to deny the rumor that I was transported to Australia for
flashing.

Hi Norman
are you really sure that wasn't the reason ;-)

Frank

 

[Bob Phillips]

Hi Norm,

OT, but the two best teams in the world are battling it out on the TV at the
moment. Les Ros-Boeufs et les frogs-legs for the 6 nations. Let 'em roll!

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Norman Harker]

Hi Frank!

Real reason? The university here had a policy of putting an IBM PC
(AT!) on every lecturer's desk and equipping student labs with the
same specification. Didn't have Excel but at least there was Lotus
1-2-3. That was back in 1988. In the UK at that time we had 1 IBM in
the Faculty and student labs were running 128K Commodores.

Also, there's more sheep here.

--
Regards
Norman Harker MVP (Excel)
Sydney, Australia
(e-mail address removed)
Excel and Word Function Lists (Classifications, Syntax and Arguments)
available free to good homes.

 

[Frank Kabel]

Hi Frank!

Real reason? The university here had a policy of putting an IBM PC
(AT!) on every lecturer's desk and equipping student labs with the
same specification. Didn't have Excel but at least there was Lotus
1-2-3. That was back in 1988. In the UK at that time we had 1 IBM in
the Faculty and student labs were running 128K Commodores.

Also, there's more sheep here.

o.k. that's a good reason

wish you a nice weekend
Frank

 

[Dave Peterson]

From the punch line of an old joke:

The sheep's a liar! The sheep's a liar!

(oh, oh.)

 

[Merlin]

If you only want to change color, you can use Format-
Conditional Formatting. If you want it to blink, I
beleive this can only be done using VBA (Visual Basic for
Applications), as conditional formatting will change the
color but there is no blinking option.

 

[uweffm]

All,

Does anybody know whether it is possible to transfer user specific
headers and footnotes from one worksheet to another? Or whether
headers and footnotes can be marked as valid for all worksheets?

For any advice and assistance TIA.

 

[Frank Kabel]

Hi Uwe
if your have already applied headers/footers to the FIRST sheet of your
workbook try the following
- select the first sheet
- hold down the SHIFT key and select all other sheets for which you
want this footer/header settings to be copied
- goto 'File - Page Setup'
- click OK

If you want the header/footer applied for more than one worksheet group
the worksheets (holding down the SHIFT key and selecting multiple
worksheets) prior to opening the Pagesetup dialog

 

[uweffm]

Frank,

Excellent! I knew there ought to be a way...

Thanks for the quick response.