Color Fill a range of cells depending on a date that is 10 or more days earlier than current date using vba.

[Patches01]

Hi All

I would like to fill a range of cells with color using a vba. The cells will be colored depending on the date. For example today's date is 27/08/2021 I need the cells in the row with a date that is 10 days or more earlier (17/08/2021) to be filled.
This is what I have so far however it seems to color every second row.
Any help or advise will be greatly appreciated.
Thank you

Private Sub CommandButton4_Click()

Dim TDateM As String
TDateM = Date

endrow = Range("a" & Rows.Count).End(xlUp).Row

For Each cell In Range("a1:a" & endrow)
If cell.Value < TDateM Then
cell.Range("$a$" & cell.Row & ":$m$" & cell.Row).Interior.ColorIndex = 6
End If
Next

End Sub

 

[JoeMo]

Is this what you want?

Private Sub CommandButton4_Click()
Dim TDateM As Variant
TDateM = Date
endrow = Range("a" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
Range("A1:M" & endrow).Interior.ColorIndex = xlNone
For Each cell In Range("a1:a" & endrow)
    If TDateM - cell.Value >= 10 Then
        cell.Resize(1, 13).Interior.ColorIndex = 6
    End If
Next cell
Application.ScreenUpdating = True
End Sub

 

[Patches01]

Thank you. Works perfectly.

Is this what you want?

Private Sub CommandButton4_Click()
Dim TDateM As Variant
TDateM = Date
endrow = Range("a" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
Range("A1:M" & endrow).Interior.ColorIndex = xlNone
For Each cell In Range("a1:a" & endrow)
    If TDateM - cell.Value >= 10 Then
        cell.Resize(1, 13).Interior.ColorIndex = 6
    End If
Next cell
Application.ScreenUpdating = True
End Sub

 

[JoeMo]

Thank you. Works perfectly.

You are welcome - thanks for the reply.

 

[smozgur]

Switched the marked solution with the answer that works perfectly.

@Patches01: Please do the same for your future questions marking the answer post as the solution instead of your feedback post unless you post your own solution. Thanks.