Flashing Date in excel

Ienni1983

New Member
Joined
May 29, 2009
Messages
6
Hello All,

this is my very first post and also first question since I am breaking my brains over this one since I have been working with Excel 2007.

I have solved many problems with the solutions presented here.

I have multiple workbooks which contains numerous different dates.

and I need to make them flash when the dates are due within one week etc.

I would like to know what kind of command in vba or formula in excel it needs.

Kind Regards,
Vincent Arjan van Vessem
 

TheNoocH

Well-known Member
Joined
Oct 6, 2004
Messages
3,482
welcome to the board...not sure if you can make them flash...BUT...what I would do would be set up conditional formatting to highlight the cell based upon the date being within a week...
 

Ienni1983

New Member
Joined
May 29, 2009
Messages
6
Well I have noticed that the cells can flash when you make a vba formula for it but The exact commands for that combination is a bit unknown to me.

I am reading up a book on Excel 2007 VBA for dummies but it is not included for all I know atm
 

Ienni1983

New Member
Joined
May 29, 2009
Messages
6
:( it appears that only applies from 2000 to 2003 and not 2007 :(
 

Weaver

Well-known Member
Joined
Sep 10, 2008
Messages
5,196
Where did it go wrong? Were there any error messages?
 

picklefactory

Active Member
Joined
Jan 28, 2005
Messages
398
I use this in one workbook, hope it makes sense
Code:
Dim NextTime As Date

Sub Flashing()
 NextTime = Now + TimeValue("00:00:02")
 With ActiveWorkbook.Styles("Flashing").Font
   If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
 End With
 Application.OnTime NextTime, "Flashing"
End Sub

Sub StopIt()
 On Error GoTo Skip
 Application.OnTime NextTime, "Flashing", schedule:=False
 ActiveWorkbook.Styles("Flashing").Font.Color = -16776961
 MsgBox "I know it's irritating, but it's important you didn't miss that.", , "Sorry......"
Skip:
 End Sub

Sub StopIt2()
 On Error GoTo Skip
 Application.OnTime NextTime, "Flashing", schedule:=False
 ActiveWorkbook.Styles("Flashing").Font.Color = -16776961
Skip:
 End Sub
 

Ienni1983

New Member
Joined
May 29, 2009
Messages
6
allright I have got it working to flash but now I need it to start flashing if the specific date is within now and one week.

but the current one is for hours minutes and seconds.

god Visual Basic is one tough cookie
 

Forum statistics

Threads
1,082,638
Messages
5,366,699
Members
400,914
Latest member
anandkb

Some videos you may like

This Week's Hot Topics

Top