where do i go from here?

[Rivie]

so far this is the code i have:
Private Sub Worksheet_Change_C(ByVal Target As Range)
If Target.Row = 1 Then Exit Sub
On Error GoTo ErrHandler
Application.ScreenUpdating = False

Dim myDataRng As Range
Dim cell As Range
Set myDataRng = Range("B1:B" & Cells(Rows.Count, "B").End(xlUp).Row)

For Each cell In myDataRng
cell.Offset(0, 0).Font.Color = vbBlack

If Application.Evaluate("COUNTIF(" & myDataRng.Address & "," & cell.Address & ")") > 1 Then
cell.Offset(0, 0).Font.Color = vbRed
End If
Next cell

Set myDataRng = Nothing
ErrHandler:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

i need the code to check column F to see if a corresponding cell is true or false or i need it to check the next duplicate range to see if the cells exactly match. basically if the b column if a duplicate i need it to see if 2 cells to the right has a date input and if it does then the duplicate is not a true duplicate to not turn it red. i'm not even sure if this is possible

 

[Rivie]

See if the below is doing what you want..

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim myDataRng As Range, myCell As Range
    If Target.Row = 1 Or Target.CountLarge > 1 Then Exit Sub

    Set myDataRng = Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row)
    Application.ScreenUpdating = False

    If Not Intersect(Target, myDataRng) Is Nothing Then
        Application.EnableEvents = False

        myDataRng.Font.Color = vbBlack

        For Each myCell In myDataRng
            If Application.Evaluate("COUNTIF(" & myDataRng.Address & "," & myCell.Address & ")") > 1 And _
            myCell.Offset(, 2) = "" Then myCell.Font.Color = vbRed
        Next myCell

        Set myDataRng = Nothing

        Application.EnableEvents = True
    End If

    Application.ScreenUpdating = True
End Sub

that seems to be doing exactly what i needed it to do. Thanks so much!! ??

 

[MARK858]

You're welcome