VBA Copy & Paste New Job Numbers Automatically

[Biz]

Dear All,

Is there simple VBA that would compare job numbers in Sheet 1 tab to Job numbers in Job tab and paste new jobs in Sheet1 in column B below last entry?

Workbook is available from
http://www.megaupload.com/?d=62MDVJ70

Biz

http://www.megaupload.com/?d=62MDVJ70

 

[Biz]

Hi

I saw your code and thought it may help me solve my problem.
Would appreciate if someone could help me.

Sub test()
Dim a, i As Long, b(), n As Long, x
a = Range("a1").CurrentRegion.Resize(, 2).Value
With CreateObject("Scripting.Dictionary")
.CompareMode = vbTextCompare

For i = 1 To UBound(a, 1)
If (Not IsEmpty(a(i, 1))) * (Not .exists(a(i, 1))) Then .Add a(i, 1), Nothing

Next
ReDim b(1 To UBound(a, 1), 1 To 1)
For i = 1 To UBound(a, 1)
If Not IsEmpty(a(i, 2)) Then
If Not .exists(a(i, 2)) Then
n = n + 1: b(n, 1) = a(i, 2)
Else
.Remove a(i, 2)
End If
End If
Next
x = .keys
End With

With Range("d1")
.CurrentRegion.ClearContents
.Resize(, 2).Value = [{"Not in A", "Not in B"}]
With .Offset(1)
If n > 0 Then .Resize.Value = b
End With
On Error Resume Next
.Offset(1, 1).Resize(.Count).Value = Application.Transpose(x)
End With
End Sub


Source http://www.excelforum.com/excel-gene...with-this.html

Biz

 

[Biz]

Can someone please help?

Biz