Hey guys,
I have this macro that copies the whole row on another sheet if a cell contains Yes. I have added this macro to the sheet.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("AA:AA")) Is Nothing Then
If Target.Cells.Count = 1 Then
If Target.Value = "YES" Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 26)).Copy
Sheets("Data-Sample").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
End If
End If
End If
Application.ScreenUpdating = True
End Sub
I want to add it another functionality to it. If the font color of a cell in column with Range A15:A1020 is green, and the Range in C15:F1020 has a value bigger than 0, to color the interior of the cell in red.
Also if the font color of Range A15:A1020 is red and the range of U15:V1020 has a value bigger than 1, to color again the interior of the cell in red.
I tried to add the code below to the above macro, but it doesn't seem to work.
If Sheets("Data").Range("A15:A1020").Font.Color = 3 And Sheets("Data").Range("C15:F1020").Value > 0 Then
Range("C15:F1020").Interior.Color = 3
Else
End If
Thank you in advance!
Bookmarks