Compare on a row

[Romano_odK]

Good afternoon,

Got a long sheet with 3 columns with GTIN codes. These need to be compared to each other and when one is off I need the line to be red for example. So if A2, B2 and C2 are not the same I need to be able to see that. Is that possible to do?

Thank you for your time.

Romano

 

[mumps]

The original macro assumed that the data started in row 2 when it actually starts in row 4. Try:

Sub CompareData()
    Application.ScreenUpdating = False
    Dim v As Variant, dic As Object, i As Long
    v = Range("E4", Range("E" & Rows.Count).End(xlUp)).Resize(, 3).Value
    Set dic = CreateObject("Scripting.Dictionary")
    For r = LBound(v) To UBound(v)
        For c = 1 To UBound(v, 2) - 1
            If v(r, c) <> v(r, c + 1) Then
                Range("E" & r + 3).Resize(, 3).Interior.ColorIndex = 3
                Exit For
            End If
        Next c
    Next r
    Application.ScreenUpdating = True
End Sub

 

[Romano_odK]

The original macro assumed that the data started in row 2 when it actually starts in row 4. Try:

Sub CompareData()
    Application.ScreenUpdating = False
    Dim v As Variant, dic As Object, i As Long
    v = Range("E4", Range("E" & Rows.Count).End(xlUp)).Resize(, 3).Value
    Set dic = CreateObject("Scripting.Dictionary")
    For r = LBound(v) To UBound(v)
        For c = 1 To UBound(v, 2) - 1
            If v(r, c) <> v(r, c + 1) Then
                Range("E" & r + 3).Resize(, 3).Interior.ColorIndex = 3
                Exit For
            End If
        Next c
    Next r
    Application.ScreenUpdating = True
End Sub

That definitely did the trick. Thank you for your help.

 

[mumps]

You are very welcome.