I did it and got my answer here
It was my requirement Left side is production records and right side is Test server records. We need to compare visually so I extract both table from both servers and pasted in excel sheet and this macro did it all. You just need to manipulate correct column numbers for sheet. If you have any question, please dont hesitate and send your questions.
![enter image description here](https://i.stack.imgur.com/XWCte.jpg)
Sub FND1()
Dim t As Integer
Dim p As Integer
Dim icolor As Integer
Dim tval1 As Variant
Dim tval2 As Variant
Dim tval3 As Variant
Dim bFoundinProd As Boolean
NumRowsProd = 8 'Range("A1", Range("A1").End(xlDown)).Rows.Count
NumRowsTest = 10 'Range("F1", Range("F1").End(xlDown)).Rows.Count
Application.ScreenUpdating = False
' Set numrows = number of rows of data.
' Establish "For" loop to loop "numrows" number of times.
With Worksheets(1)
For t = 1 To NumRowsTest
tval1 = .Cells(t, 6).Value
tval2 = .Cells(t, 7).Value
tval3 = .Cells(t, 8).Value
For p = 1 To NumRowsProd
bFoundinProd = False
If tval1 = .Cells(p, 1).Value And _
tval2 = .Cells(p, 2).Value And _
tval3 = .Cells(p, 3).Value Then
bFoundinProd = True
.Cells(p, 1).Interior.ColorIndex = 4 '3 red 4 green 5 blue
.Cells(p, 2).Interior.ColorIndex = 4
.Cells(p, 3).Interior.ColorIndex = 4
Exit For
End If
Next p
If bFoundinProd Then
.Cells(t, 10).Value = "Found in Production. row = " & CStr(p)
icolor = 4 ' green
Else
icolor = 3 ' red
.Cells(t, 10).Value = "Not Found in Production"
End If
.Cells(t, 6).Interior.ColorIndex = icolor '3 red 4 green 5 blue
.Cells(t, 7).Interior.ColorIndex = icolor
.Cells(t, 8).Interior.ColorIndex = icolor
.Cells(t, 9).Interior.ColorIndex = icolor
.Cells(t, 10).Interior.ColorIndex = icolor
Next t
End With
Worksheets("Sheet1").Range("J1").Columns.AutoFit
Application.ScreenUpdating = True
End Sub