Change font color if cell value changes

[LabLady11]

Hi All!

I'm looking for a VBA code to change the font color from black to red if the date in a cell changes from a previous value.

For example, I have a file where dates will be entered in columns D, H, K from row 3 onward. I will need to know when any date changes from its previous value (not including a change from blank to the initial date entered).

Any suggestions?

Thanks in advance!
LL

 

[kevin9999]

Please try the following on a copy of your workbook. Put the code in the sheet code module of the sheet where it is to be applied - right-click the sheet tab name, select View Code and put the code in the blank window that appears on the right of the screen.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge = 1 And Not Intersect(Range("D:D,H:H,K:K"), Target) Is Nothing Then
        Application.EnableEvents = False
        Dim OldVal As String, NewVal As String
        NewVal = Target.Value
        Application.Undo
        OldVal = Target.Value
        If OldVal <> "" And Target.Row > 2 Then
            Target.Value = NewVal
            Target.Font.Color = vbRed
        Else
            Target.Value = NewVal
        End If
        Application.EnableEvents = True
    End If
End Sub

 

[LabLady11]

Please try the following on a copy of your workbook. Put the code in the sheet code module of the sheet where it is to be applied - right-click the sheet tab name, select View Code and put the code in the blank window that appears on the right of the screen.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge = 1 And Not Intersect(Range("D:D,H:H,K:K"), Target) Is Nothing Then
        Application.EnableEvents = False
        Dim OldVal As String, NewVal As String
        NewVal = Target.Value
        Application.Undo
        OldVal = Target.Value
        If OldVal <> "" And Target.Row > 2 Then
            Target.Value = NewVal
            Target.Font.Color = vbRed
        Else
            Target.Value = NewVal
        End If
        Application.EnableEvents = True
    End If
End Sub

This works beautifully!! thank you so much!

 

[kevin9999]

This works beautifully!! thank you so much!

Happy to help, and thanks for the feedback