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. |
All times are GMT +1. The time now is 02:53 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com