Additions&Removals
Hi,
I have a situation:
In Sheet 1
I have 3 columns(A,B,C)
Job Number Job Name Client
111 abc Micro
112 gfg Donc
113 fsdfsd Nissan
In sheet 2
I have 1 column (A)
Job Number
111
113
114
115
I am writing a macro which will take each job Number in Sheet1, search in
Sheet 2
and identify additions(112) and Removals (114,115)
and then copy the details (Job Number, Job Name, Client)
to Sheet 3
I think my macro is missing a couple of key lines:
Sub dev()
Dim i
For i = 1 To 10
If Worksheets("Sheet1").Cells(i, 1) = Worksheets("Sheet2").Cells(j, 1) Then
Cells(i, 1).Copy Destination:=Worksheets("Sheet3").Range("A1")
End Sub
|