Copy filtered rows to a new worksheet
 

Hi
Hope someone can help me with the following task

What I would like to accomplish is:

To have a loop that searchs a current worksheet for specific critieri
in Columns which have been set up specifically for filtering rows.

Then copies that entire row to a new worksheet.
Sets up page breaks froma defined row count.
Adds headings and Titles

The pseudo code goes something like this:

Create Worksheet

set pagerowcount =0

Page Setup adjust to 60% normal size

While not last row in worksheet do

If Page1 of worksheet
Copy currentWorksheet Title
Copy currentworksheet column headings
pagerowcount =3
end if

If New Page
Copy currentworksheetsheet column headings
Row
End if

while row count < 72
If Row equals (filter criteria )// e.g Column J ="p"
Copy row to new worksheet
End if

Increment Row count

If

End I

--
Message posted from http://www.ExcelForum.com

Copy filtered rows to a new worksheet
 

Hi Richmont

This is a start
http://www.rondebruin.nl/copy5.htm

Post back with specific questions


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Richmont " wrote in message ...
Hi
Hope someone can help me with the following task

What I would like to accomplish is:

To have a loop that searchs a current worksheet for specific critieria
in Columns which have been set up specifically for filtering rows.

Then copies that entire row to a new worksheet.
Sets up page breaks froma defined row count.
Adds headings and Titles

The pseudo code goes something like this:

Create Worksheet

set pagerowcount =0

Page Setup adjust to 60% normal size

While not last row in worksheet do

If Page1 of worksheet
Copy currentWorksheet Title
Copy currentworksheet column headings
pagerowcount =3
end if

If New Page
Copy currentworksheetsheet column headings
Row
End if

while row count < 72
If Row equals (filter criteria )// e.g Column J ="p"
Copy row to new worksheet
End if

Increment Row count

If

End If


---
Message posted from http://www.ExcelForum.com/