Hi can any of u help me in resolving. i am a newbie and trying to bring the output but no use.


i want to compare column data between 2 sheets. sheet1 name is user , sheet2 name is reference
User sheet has 10 columns. I want to compare the data on column E with Sheet2 on column A


values in column E =>90000
values in column A =>10 to 15


i want to compare & highlight the data that are not in sheet1 column E with that of sheet2 column A


Eg: sheet 1 name :user
Column E values : xxxx,yyy,zz,aaa,bb,bbb,xx


sheet 2 name : reference
Column A values : xxxx,yyy,zz,aaa,bb,cc,dd
Expected output : column cell value bbb &xx to be highlighted in red since it is not matches with my sheet2.


sample code i tried on surfing but i donot know how to proceed. kindly help.i am struggling for past 2 days

Dim mycell, picklist_cell As Range
 Dim lRow2, lRow1 As Long
Dim mydiffs As Integer
Dim shtSheet1, shtSheet2 As String
Dim c As Integer

 shtSheet1 = "User"

 shtSheet2 = "Reference"

lRow2 = Sheets("Reference").Range("A2").End(xlDown).row
'Sheets("Service User").Select
'lRow1 = Range("A1").End(xlDown).row
 
'For each cell in sheet2 that is not the same in Sheet1, color it yellow
For Each mycell In ActiveWorkbook.Worksheets(shtSheet1).Range("E3:E" & LR)
 
'For Each picklist_cell In ActiveWorkbook.Worksheets(shtSheet2).Range("A2:A" & lRow2)
Do Until c = ActiveWorkbook.Worksheets(shtSheet2).Range("A2:A" & lRow2)

'If mycell.Value <> ActiveWorkbook.Worksheets(shtSheet2).Range("A2:A" & lRow2) Then
If mycell.Value <> picklist_cell.Value Then
mydiffs = mydiffs + 1
c = c + 1
End If
'Next picklist_cell


 mycell.Interior.Color = vbRed
Next mycell