Compare 2 files and add new entries

[phitho]

I am wondering how I can go about using VBA to compare new entries in one file to an existing file?

I have a ticketing system that I manipulate the raw data to give me a usable file. Rather than take everything from the new file, I just want to copy over the differences (newly added tickets).

 

[offthelip]

You haven't specified where anything is on your worksheet so I have assume that one list in in column A of sheet 1 and the second list on column A of sheet 2. This code will find anything which is missing from sheet one which appears on sheet 2 and append it to the bottom of sheet 1 column A

Sub test()
Dim outarr As Variant


With Worksheets("sheet2")
 lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
 inarr = Range(.Cells(1, 1), .Cells(lastrow, 1))
End With
ReDim outarr(1 To lastrow, 1 To 1)
With Sheet1
 datarow = .Cells(Rows.Count, "A").End(xlUp).Row
 datar = Range(.Cells(1, 1), .Cells(datarow, 1))
 indi = 1
fnd = False
For i = 1 To lastrow
    outarr(i, 1) = ""
    fnd = False
   For j = 1 To datarow
    If inarr(i, 1) = datar(j, 1) Then
     fnd = True
     Exit For
    End If
   Next
 If Not (fnd) Then
  outarr(indi, 1) = inarr(i, 1)
  indi = indi + 1
 End If
Next i
 
  Range(.Cells(datarow + 1, 1), .Cells(datarow + lastrow, 1)) = outarr
End With
End Sub

 

[phitho]

Sorry for not providing enough details:

- I have a source WB called ticket_export, with a sheet called ticket_export.
- I have a destination WB called KPI with a sheet named ticket_export.
- Column A in both sheets is called Ticket Number