ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   If a cell is modified after a date; font color change indicate (https://www.excelbanter.com/excel-worksheet-functions/55551-if-cell-modified-after-date%3B-font-color-change-indicate.html)

[email protected]

If a cell is modified after a date; font color change indicate
 
In XLS, if a cell value is changed after a fixed date can the font color be
directed to change in order to indicate this.

vezerid

If a cell is modified after a date; font color change indicate
 
Right-click on the sheet tab to display VBA code for the sheet. Then
paste the following code and change the range of cells and the date as
needed.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MonitoredRange As Range
Dim LimitDate As Date
Dim inter As Range

Set MonitoredRange = Range("A1") 'You can change this to an array, e.g.
Range("A1:A10")
LimitDate = "11/15/2005"

Set inter = Application.Intersect(MonitoredRange, Target)
If (Not inter Is Nothing) And (Now Int(LimitDate)) Then
Target.Font.ColorIndex = 3
End If

End Sub

HTH
Kostis Vezerides



All times are GMT +1. The time now is 07:21 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com