try
Sub consolidate()
For i = 1 To 2
With Sheets(i)
On Error Resume Next
For Each c In Sheets("sheet3").Range("a2:a15")
c.Offset(0, i) = .Range("a2:a3").Find(c).Offset(0, 1)
Next
End With
Next
End Sub

or more crudely depending on your structure
Sub consolidate1()
With Sheets("sheet1")
On Error Resume Next
For Each c In Sheets("sheet3").Range("a2:a15")
c.Offset(0, 1) = .Range("a2:a3").Find(c).Offset(0, 1)
Next
End With
With Sheets("sheet2")
On Error Resume Next
For Each c In Sheets("sheet3").Range("a2:a15")
c.Offset(0, 2) = .Range("a2:a3").Find(c).Offset(0, 1)
Next
End With
End Sub

--
Don Guillett
SalesAid Software

"kk" wrote in message
...
Hello Don

Beside vlookup, is there any other way to do it?

Each spreadsheet containing thousand of lines and duplicate product.
I need to find out what product is missing in sheet 1 compare to sheet 2
and
vice, filter out the duplicate, sum the quantity and put in into the
separate sheet.

Thanks

"Don Guillett" wrote in message
...
With a formula just look in HELP index for VLOOKUP

--
Don Guillett
SalesAid Software

"kk" wrote in message
...
Hi

I have a workbook with 2 worksheet

Sheet 1:
Product CountQty
A 10
B 20

Sheet 2:
Model SysQty
A 10
C 30


Is there a way to use a function to consolidate two set of data from
both
worksheet into a new sheet to

Product CountQty SysQty
A 10 10
B 20
C 30

Thanks!
kk