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.
|