flashing cell

Is there a simple way to make a cell blink or flash or otherwise be very
distinctive from other cells?

Hi Rob,

would formatting it lime green & purple help? seriously, you'll need to use
VBA to achieve this, so i'm not sure it falls into the simple category,
however, Rob van Gelder posted this answer to a similar question a couple of
months back
*****
Check out my website for "Schedule a macro to run"
Include something like:
Sub RunMe()
With Range("A1").Font
If .ColorIndex = 3 Then .ColorIndex = 4 Else .ColorIndex = 3
End With
ScheduleNextEvent
End Sub
or if you want the background to blink: With Range("A1").Interior
--
Rob van Gelder - http://www.vangelder.co.nz/excel
******

Hope this helps
JulieD

"Rob at BTAS Inc." <[email protected]> wrote in message
news:[email protected]...
> Is there a simple way to make a cell blink or flash or otherwise be very
> distinctive from other cells?

(Excel 2003 Windows XP)

Hi JulieD;

I'm trying "Schedule a macro to run" from Rob van Gelder's website, as per
your earlier suggestion.

1. I've added Activate and Deactivate w/s events, and w/b Open event to the
procedure. The intended cell blinks nicely at one-sec intervals. There are,
however, two problems with the procedure while RunMe() is running.

2. The Excel Screen, mouse Pointer, task bar Ready, etc. "jiggle" or
"pulsate" at random. Tried on 2 different computers, two different OS, two
different versions of Excel. The jiggling stops once I stop RunMe() !!

3. The "Paste" and "Paste Special" commands in the Excel Edit menu are
disabled while RunMe() is running !
I've inserted the following at the top of ScheduleNextEvent() and later at
the top of RunMe(): (without success!)
If Application.CutCopyMode = FLASE Then
ActiveWorkbook.Styles("normal"). NumberFormat = _
ActiveWorkbook.Styles("normal"). NumberFormat
End If

Your advice on how to solve these 2 problems would be greatly appreciated.
Regards and have a nice day!


"JulieD" wrote:

> Hi Rob,
>
> would formatting it lime green & purple help? seriously, you'll need to use
> VBA to achieve this, so i'm not sure it falls into the simple category,
> however, Rob van Gelder posted this answer to a similar question a couple of
> months back
> *****
> Check out my website for "Schedule a macro to run"
> Include something like:
> Sub RunMe()
> With Range("A1").Font
> If .ColorIndex = 3 Then .ColorIndex = 4 Else .ColorIndex = 3
> End With
> ScheduleNextEvent
> End Sub
> or if you want the background to blink: With Range("A1").Interior
> --
> Rob van Gelder - http://www.vangelder.co.nz/excel
> ******
>
> Hope this helps
> JulieD
>
> "Rob at BTAS Inc." <[email protected]> wrote in message
> news:[email protected]...
> > Is there a simple way to make a cell blink or flash or otherwise be very
> > distinctive from other cells?
>
>
>

Hi Rob

also using Excel 2003 on windows XP i can use paste & paste special while
the runme is running ... and i don't get any 'jiggling' - if you'ld like to
send me your workbook direct (julied_ng at hcts dot net dot au) i'ld be
happy to test it on my system and see if i can spot what's going on

Cheers
JulieD


"monir" <[email protected]> wrote in message
news:[email protected]...
> (Excel 2003 Windows XP)
>
> Hi JulieD;
>
> I'm trying "Schedule a macro to run" from Rob van Gelder's website, as per
> your earlier suggestion.
>
> 1. I've added Activate and Deactivate w/s events, and w/b Open event to
> the
> procedure. The intended cell blinks nicely at one-sec intervals. There
> are,
> however, two problems with the procedure while RunMe() is running.
>
> 2. The Excel Screen, mouse Pointer, task bar Ready, etc. "jiggle" or
> "pulsate" at random. Tried on 2 different computers, two different OS,
> two
> different versions of Excel. The jiggling stops once I stop RunMe() !!
>
> 3. The "Paste" and "Paste Special" commands in the Excel Edit menu are
> disabled while RunMe() is running !
> I've inserted the following at the top of ScheduleNextEvent() and later at
> the top of RunMe(): (without success!)
> If Application.CutCopyMode = FLASE Then
> ActiveWorkbook.Styles("normal"). NumberFormat = _
> ActiveWorkbook.Styles("normal"). NumberFormat
> End If
>
> Your advice on how to solve these 2 problems would be greatly appreciated.
> Regards and have a nice day!
>
>
> "JulieD" wrote:
>
>> Hi Rob,
>>
>> would formatting it lime green & purple help? seriously, you'll need to
>> use
>> VBA to achieve this, so i'm not sure it falls into the simple category,
>> however, Rob van Gelder posted this answer to a similar question a couple
>> of
>> months back
>> *****
>> Check out my website for "Schedule a macro to run"
>> Include something like:
>> Sub RunMe()
>> With Range("A1").Font
>> If .ColorIndex = 3 Then .ColorIndex = 4 Else .ColorIndex = 3
>> End With
>> ScheduleNextEvent
>> End Sub
>> or if you want the background to blink: With Range("A1").Interior
>> --
>> Rob van Gelder - http://www.vangelder.co.nz/excel
>> ******
>>
>> Hope this helps
>> JulieD
>>
>> "Rob at BTAS Inc." <[email protected]> wrote in
>> message
>> news:[email protected]...
>> > Is there a simple way to make a cell blink or flash or otherwise be
>> > very
>> > distinctive from other cells?
>>
>>
>>

Hi Julie;
I've just done that (direct).
Thank you.


"JulieD" wrote:

> Hi Rob
>
> also using Excel 2003 on windows XP i can use paste & paste special while
> the runme is running ... and i don't get any 'jiggling' - if you'ld like to
> send me your workbook direct (julied_ng at hcts dot net dot au) i'ld be
> happy to test it on my system and see if i can spot what's going on
>
> Cheers
> JulieD
>
>
> "monir" <[email protected]> wrote in message
> news:[email protected]...
> > (Excel 2003 Windows XP)
> >
> > Hi JulieD;
> >
> > I'm trying "Schedule a macro to run" from Rob van Gelder's website, as per
> > your earlier suggestion.
> >
> > 1. I've added Activate and Deactivate w/s events, and w/b Open event to
> > the
> > procedure. The intended cell blinks nicely at one-sec intervals. There
> > are,
> > however, two problems with the procedure while RunMe() is running.
> >
> > 2. The Excel Screen, mouse Pointer, task bar Ready, etc. "jiggle" or
> > "pulsate" at random. Tried on 2 different computers, two different OS,
> > two
> > different versions of Excel. The jiggling stops once I stop RunMe() !!
> >
> > 3. The "Paste" and "Paste Special" commands in the Excel Edit menu are
> > disabled while RunMe() is running !
> > I've inserted the following at the top of ScheduleNextEvent() and later at
> > the top of RunMe(): (without success!)
> > If Application.CutCopyMode = FLASE Then
> > ActiveWorkbook.Styles("normal"). NumberFormat = _
> > ActiveWorkbook.Styles("normal"). NumberFormat
> > End If
> >
> > Your advice on how to solve these 2 problems would be greatly appreciated.
> > Regards and have a nice day!
> >
> >
> > "JulieD" wrote:
> >
> >> Hi Rob,
> >>
> >> would formatting it lime green & purple help? seriously, you'll need to
> >> use
> >> VBA to achieve this, so i'm not sure it falls into the simple category,
> >> however, Rob van Gelder posted this answer to a similar question a couple
> >> of
> >> months back
> >> *****
> >> Check out my website for "Schedule a macro to run"
> >> Include something like:
> >> Sub RunMe()
> >> With Range("A1").Font
> >> If .ColorIndex = 3 Then .ColorIndex = 4 Else .ColorIndex = 3
> >> End With
> >> ScheduleNextEvent
> >> End Sub
> >> or if you want the background to blink: With Range("A1").Interior
> >> --
> >> Rob van Gelder - http://www.vangelder.co.nz/excel
> >> ******
> >>
> >> Hope this helps
> >> JulieD
> >>
> >> "Rob at BTAS Inc." <[email protected]> wrote in
> >> message
> >> news:[email protected]...
> >> > Is there a simple way to make a cell blink or flash or otherwise be
> >> > very
> >> > distinctive from other cells?
> >>
> >>
> >>
>
>
>

Hi Monir

received and answered (well as best as i could anyway)

Cheers
JulieD

"monir" <[email protected]> wrote in message
news:[email protected]...
> Hi Julie;
> I've just done that (direct).
> Thank you.
>
>
> "JulieD" wrote:
>
>> Hi Rob
>>
>> also using Excel 2003 on windows XP i can use paste & paste special while
>> the runme is running ... and i don't get any 'jiggling' - if you'ld like
>> to
>> send me your workbook direct (julied_ng at hcts dot net dot au) i'ld be
>> happy to test it on my system and see if i can spot what's going on
>>
>> Cheers
>> JulieD
>>
>>
>> "monir" <[email protected]> wrote in message
>> news:[email protected]...
>> > (Excel 2003 Windows XP)
>> >
>> > Hi JulieD;
>> >
>> > I'm trying "Schedule a macro to run" from Rob van Gelder's website, as
>> > per
>> > your earlier suggestion.
>> >
>> > 1. I've added Activate and Deactivate w/s events, and w/b Open event
>> > to
>> > the
>> > procedure. The intended cell blinks nicely at one-sec intervals.
>> > There
>> > are,
>> > however, two problems with the procedure while RunMe() is running.
>> >
>> > 2. The Excel Screen, mouse Pointer, task bar Ready, etc. "jiggle" or
>> > "pulsate" at random. Tried on 2 different computers, two different OS,
>> > two
>> > different versions of Excel. The jiggling stops once I stop RunMe() !!
>> >
>> > 3. The "Paste" and "Paste Special" commands in the Excel Edit menu are
>> > disabled while RunMe() is running !
>> > I've inserted the following at the top of ScheduleNextEvent() and later
>> > at
>> > the top of RunMe(): (without success!)
>> > If Application.CutCopyMode = FLASE Then
>> > ActiveWorkbook.Styles("normal"). NumberFormat = _
>> > ActiveWorkbook.Styles("normal"). NumberFormat
>> > End If
>> >
>> > Your advice on how to solve these 2 problems would be greatly
>> > appreciated.
>> > Regards and have a nice day!
>> >
>> >
>> > "JulieD" wrote:
>> >
>> >> Hi Rob,
>> >>
>> >> would formatting it lime green & purple help? seriously, you'll need
>> >> to
>> >> use
>> >> VBA to achieve this, so i'm not sure it falls into the simple
>> >> category,
>> >> however, Rob van Gelder posted this answer to a similar question a
>> >> couple
>> >> of
>> >> months back
>> >> *****
>> >> Check out my website for "Schedule a macro to run"
>> >> Include something like:
>> >> Sub RunMe()
>> >> With Range("A1").Font
>> >> If .ColorIndex = 3 Then .ColorIndex = 4 Else .ColorIndex = 3
>> >> End With
>> >> ScheduleNextEvent
>> >> End Sub
>> >> or if you want the background to blink: With Range("A1").Interior
>> >> --
>> >> Rob van Gelder - http://www.vangelder.co.nz/excel
>> >> ******
>> >>
>> >> Hope this helps
>> >> JulieD
>> >>
>> >> "Rob at BTAS Inc." <[email protected]> wrote in
>> >> message
>> >> news:[email protected]...
>> >> > Is there a simple way to make a cell blink or flash or otherwise be
>> >> > very
>> >> > distinctive from other cells?
>> >>
>> >>
>> >>
>>
>>
>>

Julie: I'd be interested in seeing your solution... e-mail me direct if you
like - rob at vangelder dot co dot nz

A while ago, someone pointed out that the flashing cells I wrote would clear
the Undo stack.

This version doesn't clear Undo, but you get the "jiggles" due to
ActiveSheet.Select

Private dtmNextEvent As Date

Sub StartFlashing()
Dim nam As Name
On Error Resume Next
Set nam = ThisWorkbook.Names("FlashState")
If nam Is Nothing Then Set nam = ThisWorkbook.Names.Add("FlashState")
nam.Value = "=MOD(SECOND(NOW()),2)=0"
ToggleFlashState
End Sub

Sub StopFlashing()
On Error Resume Next
Application.OnTime dtmNextEvent, "ToggleFlashState", , False
End Sub

Sub ToggleFlashState()
On Error Resume Next
ActiveSheet.Select
dtmNextEvent = Now() + TimeSerial(0, 0, 1)
Application.OnTime dtmNextEvent, "ToggleFlashState", , True
End Sub


OP: No-one really likes a serious business tool like Excel being turned into
a neon sign - please make it look professional.


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"JulieD" <[email protected]> wrote in message
news:%[email protected]...
> Hi Monir
>
> received and answered (well as best as i could anyway)
>
> Cheers
> JulieD
>
> "monir" <[email protected]> wrote in message
> news:[email protected]...
>> Hi Julie;
>> I've just done that (direct).
>> Thank you.
>>
>>
>> "JulieD" wrote:
>>
>>> Hi Rob
>>>
>>> also using Excel 2003 on windows XP i can use paste & paste special
>>> while
>>> the runme is running ... and i don't get any 'jiggling' - if you'ld like
>>> to
>>> send me your workbook direct (julied_ng at hcts dot net dot au) i'ld be
>>> happy to test it on my system and see if i can spot what's going on
>>>
>>> Cheers
>>> JulieD
>>>
>>>
>>> "monir" <[email protected]> wrote in message
>>> news:[email protected]...
>>> > (Excel 2003 Windows XP)
>>> >
>>> > Hi JulieD;
>>> >
>>> > I'm trying "Schedule a macro to run" from Rob van Gelder's website, as
>>> > per
>>> > your earlier suggestion.
>>> >
>>> > 1. I've added Activate and Deactivate w/s events, and w/b Open event
>>> > to
>>> > the
>>> > procedure. The intended cell blinks nicely at one-sec intervals.
>>> > There
>>> > are,
>>> > however, two problems with the procedure while RunMe() is running.
>>> >
>>> > 2. The Excel Screen, mouse Pointer, task bar Ready, etc. "jiggle" or
>>> > "pulsate" at random. Tried on 2 different computers, two different
>>> > OS,
>>> > two
>>> > different versions of Excel. The jiggling stops once I stop RunMe()
>>> > !!
>>> >
>>> > 3. The "Paste" and "Paste Special" commands in the Excel Edit menu
>>> > are
>>> > disabled while RunMe() is running !
>>> > I've inserted the following at the top of ScheduleNextEvent() and
>>> > later at
>>> > the top of RunMe(): (without success!)
>>> > If Application.CutCopyMode = FLASE Then
>>> > ActiveWorkbook.Styles("normal"). NumberFormat = _
>>> > ActiveWorkbook.Styles("normal"). NumberFormat
>>> > End If
>>> >
>>> > Your advice on how to solve these 2 problems would be greatly
>>> > appreciated.
>>> > Regards and have a nice day!
>>> >
>>> >
>>> > "JulieD" wrote:
>>> >
>>> >> Hi Rob,
>>> >>
>>> >> would formatting it lime green & purple help? seriously, you'll need
>>> >> to
>>> >> use
>>> >> VBA to achieve this, so i'm not sure it falls into the simple
>>> >> category,
>>> >> however, Rob van Gelder posted this answer to a similar question a
>>> >> couple
>>> >> of
>>> >> months back
>>> >> *****
>>> >> Check out my website for "Schedule a macro to run"
>>> >> Include something like:
>>> >> Sub RunMe()
>>> >> With Range("A1").Font
>>> >> If .ColorIndex = 3 Then .ColorIndex = 4 Else .ColorIndex = 3
>>> >> End With
>>> >> ScheduleNextEvent
>>> >> End Sub
>>> >> or if you want the background to blink: With Range("A1").Interior
>>> >> --
>>> >> Rob van Gelder - http://www.vangelder.co.nz/excel
>>> >> ******
>>> >>
>>> >> Hope this helps
>>> >> JulieD
>>> >>
>>> >> "Rob at BTAS Inc." <[email protected]> wrote in
>>> >> message
>>> >> news:[email protected]...
>>> >> > Is there a simple way to make a cell blink or flash or otherwise be
>>> >> > very
>>> >> > distinctive from other cells?
>>> >>
>>> >>
>>> >>
>>>
>>>
>>>
>
>

Hi Rob

Monir and me are still working on the "paste" problem and BTW apart from the
choice of Fuschia it is looking very professional (i'm a dark blue person
myself) - i was v. impressed at how the OP integrated the blinking cells in
the workbook.

We'll send you the final result once Monir's tested my latest changes.

Cheers
JulieD

"Rob van Gelder" <[email protected]> wrote in message
news:OPGb6K%[email protected]...
> Julie: I'd be interested in seeing your solution... e-mail me direct if
> you like - rob at vangelder dot co dot nz
>
> A while ago, someone pointed out that the flashing cells I wrote would
> clear the Undo stack.
>
> This version doesn't clear Undo, but you get the "jiggles" due to
> ActiveSheet.Select
>
> Private dtmNextEvent As Date
>
> Sub StartFlashing()
> Dim nam As Name
> On Error Resume Next
> Set nam = ThisWorkbook.Names("FlashState")
> If nam Is Nothing Then Set nam = ThisWorkbook.Names.Add("FlashState")
> nam.Value = "=MOD(SECOND(NOW()),2)=0"
> ToggleFlashState
> End Sub
>
> Sub StopFlashing()
> On Error Resume Next
> Application.OnTime dtmNextEvent, "ToggleFlashState", , False
> End Sub
>
> Sub ToggleFlashState()
> On Error Resume Next
> ActiveSheet.Select
> dtmNextEvent = Now() + TimeSerial(0, 0, 1)
> Application.OnTime dtmNextEvent, "ToggleFlashState", , True
> End Sub
>
>
> OP: No-one really likes a serious business tool like Excel being turned
> into a neon sign - please make it look professional.
>
>
> --
> Rob van Gelder - http://www.vangelder.co.nz/excel
>
>
> "JulieD" <[email protected]> wrote in message
> news:%[email protected]...
>> Hi Monir
>>
>> received and answered (well as best as i could anyway)
>>
>> Cheers
>> JulieD
>>
>> "monir" <[email protected]> wrote in message
>> news:[email protected]...
>>> Hi Julie;
>>> I've just done that (direct).
>>> Thank you.
>>>
>>>
>>> "JulieD" wrote:
>>>
>>>> Hi Rob
>>>>
>>>> also using Excel 2003 on windows XP i can use paste & paste special
>>>> while
>>>> the runme is running ... and i don't get any 'jiggling' - if you'ld
>>>> like to
>>>> send me your workbook direct (julied_ng at hcts dot net dot au) i'ld
>>>> be
>>>> happy to test it on my system and see if i can spot what's going on
>>>>
>>>> Cheers
>>>> JulieD
>>>>
>>>>
>>>> "monir" <[email protected]> wrote in message
>>>> news:[email protected]...
>>>> > (Excel 2003 Windows XP)
>>>> >
>>>> > Hi JulieD;
>>>> >
>>>> > I'm trying "Schedule a macro to run" from Rob van Gelder's website,
>>>> > as per
>>>> > your earlier suggestion.
>>>> >
>>>> > 1. I've added Activate and Deactivate w/s events, and w/b Open event
>>>> > to
>>>> > the
>>>> > procedure. The intended cell blinks nicely at one-sec intervals.
>>>> > There
>>>> > are,
>>>> > however, two problems with the procedure while RunMe() is running.
>>>> >
>>>> > 2. The Excel Screen, mouse Pointer, task bar Ready, etc. "jiggle" or
>>>> > "pulsate" at random. Tried on 2 different computers, two different
>>>> > OS,
>>>> > two
>>>> > different versions of Excel. The jiggling stops once I stop RunMe()
>>>> > !!
>>>> >
>>>> > 3. The "Paste" and "Paste Special" commands in the Excel Edit menu
>>>> > are
>>>> > disabled while RunMe() is running !
>>>> > I've inserted the following at the top of ScheduleNextEvent() and
>>>> > later at
>>>> > the top of RunMe(): (without success!)
>>>> > If Application.CutCopyMode = FLASE Then
>>>> > ActiveWorkbook.Styles("normal"). NumberFormat = _
>>>> > ActiveWorkbook.Styles("normal"). NumberFormat
>>>> > End If
>>>> >
>>>> > Your advice on how to solve these 2 problems would be greatly
>>>> > appreciated.
>>>> > Regards and have a nice day!
>>>> >
>>>> >
>>>> > "JulieD" wrote:
>>>> >
>>>> >> Hi Rob,
>>>> >>
>>>> >> would formatting it lime green & purple help? seriously, you'll
>>>> >> need to
>>>> >> use
>>>> >> VBA to achieve this, so i'm not sure it falls into the simple
>>>> >> category,
>>>> >> however, Rob van Gelder posted this answer to a similar question a
>>>> >> couple
>>>> >> of
>>>> >> months back
>>>> >> *****
>>>> >> Check out my website for "Schedule a macro to run"
>>>> >> Include something like:
>>>> >> Sub RunMe()
>>>> >> With Range("A1").Font
>>>> >> If .ColorIndex = 3 Then .ColorIndex = 4 Else .ColorIndex = 3
>>>> >> End With
>>>> >> ScheduleNextEvent
>>>> >> End Sub
>>>> >> or if you want the background to blink: With Range("A1").Interior
>>>> >> --
>>>> >> Rob van Gelder - http://www.vangelder.co.nz/excel
>>>> >> ******
>>>> >>
>>>> >> Hope this helps
>>>> >> JulieD
>>>> >>
>>>> >> "Rob at BTAS Inc." <[email protected]> wrote in
>>>> >> message
>>>> >> news:[email protected]...
>>>> >> > Is there a simple way to make a cell blink or flash or otherwise
>>>> >> > be
>>>> >> > very
>>>> >> > distinctive from other cells?
>>>> >>
>>>> >>
>>>> >>
>>>>
>>>>
>>>>
>>
>>
>
>