Check weekend dates and color in vba - vba

Question

I need to play around with weekend dates identification and color the value in col M :
I need to check for "weekend dates" in Col K of sheet "Latency" (starting from row 2)
If a weekend date is found then check in Col O for the text "fail". If that is found,
Check for either of these three text "Moved to SA (Compatibility Reduction)" or "Text 2" or "Text 3" in Col P.
If either of these text is found and if the number in Col M is >1 then color it in red.
I have the below code that checks only for Sunday. But I want this to run for weekend and add additional keywords to check.
Sub SundayCheck()
Dim r, LastRow, RemainingDay As Double
LastRow = Range("M:O").Cells(Rows.count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For r = 2 To LastRow
RemainingDay = 0
If Weekday(Range("K" & r).Value, vbSunday) = 1 Then
RemainingDay = Round((24 - Format(TimeValue(Range("K" & r)), "h")) / 24, 1)
If InStr(1, Range("O" & r).Text, "Fail", vbTextCompare) > 0 Then
If Range("M" & r) - RemainingDay >= 1 Then
Range("M" & r).Cells.Font.ColorIndex = 3
Else
Range("M" & r).Cells.Font.ColorIndex = 0
End If
End If
End If
Next r
End Sub

Answer 1

with the minimum editing of your code
Option Explicit
Sub SundayCheck()
Dim r As Long, LastRow As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).row
Application.ScreenUpdating = False
For r = 2 To LastRow
If Weekday(Range("K" & r).Value, vbSunday) = 1 Or Weekday(Range("K" & r).Value, vbSunday) = 7 Then
If UCase(Range("O" & r).Text) = "FAIL" Then
Select Case True
Case InStr(Range("P" & r).Text, "Moved to SA (Compatibility Reduction)") > 0, _
InStr(Range("P" & r).Text, "Text2") > 0, _
InStr(Range("P" & r).Text, "Text3") > 0
If Range("M" & r) > 1 Then
Range("M" & r).Cells.Font.ColorIndex = 3
Else
Range("M" & r).Cells.Font.ColorIndex = 0
End If
End Select
End If
End If
Next r
End Sub
Where I took your condition 3 as a full match instead of a partial one