title: VBA Compare multiple rows and find mis matching data
body: <p>Hoping someone can help me - I have been reading through the forum for hours now and have found some codes and been tweaking them but cannot figure out how to make them work for me.</p>
  
  <p>I have a file with 2 worksheets. I need to look at column B (userid),D (date), G (time) from worksheet1 and find all that do not match worksheet 2 column A (userid),B (date),C(time) and put all non matching data (All rows/columns) from worksheet1 onto worksheet3. I went the route of an array formula but the requirements want something cleaner and to only show non matching information in a separate sheet so I was thinking VBA would be the easiest. </p>
  
  <p>Sample Data FILE: <a href="https://docs.google.com/file/d/0B-05LU9z79UTQUs3QnRSSUZETmM/edit" rel="nofollow">https://docs.google.com/file/d/0B-05LU9z79UTQUs3QnRSSUZETmM/edit</a></p>
  
  <p>Worksheet1</p>
  
  <pre><code>Associate ID    Organization Name   Original Start Date Segment Start Date  Segment End Date    Time
  83010   abc 4/8/2014    3/31/2014   4/1/2014    465
  89551   abc 4/10/2014   4/1/2014    4/1/2014    30
  90111   abc 4/9/2014    4/7/2014    4/7/2014    30
  90136   abc 4/9/2014    4/7/2014    4/7/2014    445
  </code></pre>
  
  <p>Worksheet2</p>
  
  <pre><code>ED_EMP_NB   SCHED_DT    DURATION_MIN_AM
  083010  4/8/2014    465
  089551  4/10/2014   60
  090111  4/9/2014    60
  090136  4/9/2014    445
  </code></pre>
  
  <hr>
  
  <p>UPDATE:
  So I took your code tmoore82 and updated it to reference sheets(3) and the offset numbers to match the rows (I believe). Its pulling back 7 of the 14 non matching rows.. Can you help me find the errors?</p>
  
  <pre><code>Sub Test2()
  
  Dim rowCount1 As Long
  Dim rowCount2 As Long
  
  ''EDITED TO CALL ON SHEET 3
  rowCount1 = ThisWorkbook.Sheets(1).Range("B20").SpecialCells(xlCellTypeLastCell).Row
  rowCount2 = ThisWorkbook.Sheets(3).Range("B2").SpecialCells(xlCellTypeLastCell).Row
  
  Dim rng1 As Range
  Dim rng2 As Range
  
  ''EDITED TO CALL ON SHEET 3
  Set rng1 = ThisWorkbook.Sheets(1).Range("B20:B" &amp; rowCount1)
  Set rng2 = ThisWorkbook.Sheets(3).Range("B2:B" &amp; rowCount2)
  
  Dim currentRow As Long
  currentRow = 2
  
  ''UPDATED OFFSET TO MATCH ROWS IN SHEET 3
  For Each cell In rng1.Cells
  For Each cell2 In rng2.Cells
  If cell2.Value &lt;&gt; cell.Value And cell2.Offset(0, 5).Value &lt;&gt; cell.Offset(0, 5).Value And cell2.Offset(0, 2).Value &lt;&gt; cell.Offset(0, 2).Value Then
  ThisWorkbook.Sheets(1).Rows(cell.Row).Copy Destination:=ThisWorkbook.Sheets(4).Range("A" &amp; currentRow)
  currentRow = currentRow + 1
  GoTo NextIteration
  End If
  Next cell2
  NextIteration:
  Next cell
  
  End Sub
  </code></pre>