Range copy to a new worksheet

[john5599]

I have an excel file contains 8 sheet. I would like to copy full details to a new excel new file if 2 values not equel.

Suppose Cast Quantity <> Delivery then I want to copy it to a new excel file. All 8 should check then result should come with Head Lines to New File (Sheet1) one after another. I want all result of 8 sheet in New Excel file sheet 1.

Can some one to help me find the solution.

 

[venkat1926]

as full details (in which column these data are entered etc) it is not possible to give full solution;

if you want to loop through the sheets (you are not copying in the same workbook but in another workbook)

dim j as integer,k as integer
j=worksheets.count
for k=1 to j
worksheets(k).activate
...
(your code statements  )

next k

If you are familiar with WITH statements you can use
with worksheets(k)
this will avoid activating each sheet.

if you want to copy the data to the first empty row in another saved wokbook(e.g book2.xls) which is opened.

dim dest as range 
set dest=workbooks("book2.xls).worksheets("sheet1").cells(rows.count,"A").end(xlup).offset(1,0)
dest.pastespecial

I have not checked with any data so there may be some minor mistakes.