VBA code to copy data based on criteria

[spvsr999]

Hi There,

I am looking for a VBA code that can copy all the rows (Incl Headers) based on criteria in specific column.

Scenario :-

I have a File with 8 different sheets and different information. Commonly, every sheet has a "Status" column.
I want to filter the status column and check for "Completed" and Paste special (Values & Formats) into a new workbook (Ready to save), new sheet with the Sheet name from the source file.

Example :-
Base file
Sheet Name is New Assignments --- There are 300+ records --- filtering on Status column (Column N) will give me 45 records.
Another Sheet name is Transfers --- There are 140+ records -- Filtering on Status Column (Column I) will give me 10 records

I want this the filtered lines into a new workbook

45 records + Headers into a new Worksheet with the sheet name -- New assignments
10 records + Headers into a new Worksheet with the sheet name -- Transfers

Thank you in advance for the help.

 

[mumps]

Try “xlOr” instead of “xlAnd”

 

[spvsr999]

P

Try “xlOr” instead of “xlAnd”

Perfectly working ??? Thank you

 

[mumps]

You are very welcome.