Compare Two Worksheets with VBA if No Value Hightlight Missing value

[Guna13]

Hi, Please support me, How to Find Missing Emp ID in Master Data Sheet, to compare Source Date Sheet. Requirement all the ID should be in Master Data Sheet.

If any ID is missing in Master data sheet, Hightlight in Msgbox.

 

[DanteAmor]

Try this:

Sub comparesheets()
  Dim c As Range, f As Range
  Dim cad As String
  
  For Each c In Sheets("Source").Range("A2", Sheets("Source").Range("A" & Rows.Count).End(3))
    Set f = Sheets("Master").Range("A:A").Find(c.Value, , xlValues, xlWhole, , , False)
    If f Is Nothing Then
      c.Interior.Color = vbYellow
      cad = cad & c.Value & vbCr
    End If
  Next
  MsgBox cad, , "Missing ID"
End Sub

 

[Guna13]

Try this:

Sub comparesheets()
  Dim c As Range, f As Range
  Dim cad As String
 
  For Each c In Sheets("Source").Range("A2", Sheets("Source").Range("A" & Rows.Count).End(3))
    Set f = Sheets("Master").Range("A:A").Find(c.Value, , xlValues, xlWhole, , , False)
    If f Is Nothing Then
      c.Interior.Color = vbYellow
      cad = cad & c.Value & vbCr
    End If
  Next
  MsgBox cad, , "Missing ID"
End Sub

Great @DanteAmor - Thanks for your Great Support...