Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Automatic Color Change
Couldn't test it, but try to add these three lines after setting the date:
If .Offset(0, -3).Value < Now() Then ..Offset(0, -3).Interior.ColorIndex = 32 End If -- Gary''s Student "Chris" wrote: To Anyone, I'm using a shared worksbook so I cannot use conditional formating BUT how do I create a function that turns a cell a different color if the date is older than todays date... Currently, I'm using this code to add a date: Const WS_RANGE1 As String = "L2:L800" If Not Intersect(Target, Me.Range(WS_RANGE1)) Is Nothing Then With Target .Offset(0, -3).Value = Format(Date, "dd mmm yyyy") End With End If I'm assuming the code would look similar but I'm not that good... any help would be appreciated. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
options to update automatic links | Excel Worksheet Functions | |||
How can I find automatic links in an Excel-sheet? | Excel Discussion (Misc queries) | |||
How to import automatic corrections from Word to Excel? | Setting up and Configuration of Excel | |||
find automatic page breaks | Excel Worksheet Functions | |||
Automatic backup copy | Charts and Charting in Excel |