Using VBA to match and highlight cells

[angezprogolfcom]

Hi All Gurus,
I would like to use VBA to highlight matching cells.
Details:
Column 1 and 2 contain Name and Mobile of Customers.
Column 5 and 6 contain Name and Mobile of Customers who turned up for our Annual Sales.
I would like to match Column 6 against Column 2 and highlight Column 2 and 3 if the detailed match.
Please kindly advise solution.

Thanks a million.

 

[angezprogolfcom]

To add on: ( I am a beginner and my codes are definiely very simplistic)
I wrote the below but the results are quite erratic - sometimes it worked, sometimes it doesn't.

Sub AttendanceReport()

Dim x, z, iRowL As Long
Dim y As Integer

x = 5
z = 0
iRowL = Cells(Rows.Count, 2).End(xlUp).Row

Do While Not IsEmpty(Cells(x, 6))
y = Application.Match(Cells(x, 6).Value, Worksheets(1).Columns(3), 0)
If y > 0 Then z = z + 1
If y > 0 Then Range("B" & y & ":C" & y).Interior.Color = vbCyan
x = x + 1
Loop
Range("I5") = Range("A5:A" & iRowL).Count
Range("I8") = z
Range("A1").Select

End Sub
Please advise. Thanks

 

[mohadin]

Hi try

Sub test()
Dim i&
Dim x
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
x = Application.Match(Cells(i, 1), Range("e2:e" & Cells(Rows.Count, 5).End(xlUp).Row), 0)
If Not IsError(x) Then
Cells(x + 1, 4).Resize(, 2).Interior.Color = vbRed
End If
Next
End Sub

 

[angezprogolfcom]

Hi try

Sub test()
Dim i&
Dim x
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
x = Application.Match(Cells(i, 1), Range("e2:e" & Cells(Rows.Count, 5).End(xlUp).Row), 0)
If Not IsError(x) Then
Cells(x + 1, 4).Resize(, 2).Interior.Color = vbRed
End If
Next
End Sub

Thanks for your kind assistance. Tried - no result -

Hi try

Sub test()
Dim i&
Dim x
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
x = Application.Match(Cells(i, 1), Range("e2:e" & Cells(Rows.Count, 5).End(xlUp).Row), 0)
If Not IsError(x) Then
Cells(x + 1, 4).Resize(, 2).Interior.Color = vbRed
End If
Next
End Sub

Thanks again. I changed some parameters - It works great.
Thanks very much.