Copy rows of multiple worsheet to new workbook based on cell condition

[beegeeblueboy]

Have been trying to do this with macro recorder and then realised not possible.

1. With workbook open check if worksheet name 'Combined' and if not create it.
2. With workbook open check if worksheet name 'Errors' and if not create it.
3. Activate first worksheet. Read each row and if cell A = "Y" select row and copy to the first empty row into worksheet 'Combined' from column 'B' and insert source worksheet name from column 'A'. (This identifies the source worksheet name for each row)
4. If value in source cell A <> 'Y' then repeat 3 but copy into workbook 'Errors'
5. Loop until end of active worksheet and then activate next worksheet and repeat 3 and 4
6. When last worksheet has been processed close workbook invoking Save dialogue

I suspect that this is not to complicated to anyone who is not a novice.


Thank you


Julian

 

[Andrew Poulsom]

There is some consolidation code with AutoFilter that you may be able to adapt here:

http://www.rondebruin.nl/copy3.htm

 

[beegeeblueboy]

There is some consolidation code with AutoFilter that you may be able to adapt here:

http://www.rondebruin.nl/copy3.htm

Thanks but this seems to wanting to copy workbook.I just have one workbook.

 

[Andrew Poulsom]

Maybe you can adapt the code here:

http://www.rondebruin.nl/copy2.htm

 

[beegeeblueboy]

Maybe you can adapt the code here:

http://www.rondebruin.nl/copy2.htm

Andrew,

Thank you. I think this looks more suitable.