Split workbook into multiple workbooks based on data

**rlsublime** · 03-06-2014, 06:58 PM

I have the following code that will filter the data and then create a new file for every unique filtered record. The code works correctly in that it is fllitering and creating the new files. The issue is that it is not pasting the header as well. Also, if there is multiple records for a filter, it is only pasting to the first line of the new file and continuously overwriting the data. Theses are the only two issues that I am noticing with this file. I am wondering if there is code that I could add after wb.Sheets(1).Paste that would solve the issues with this code. Thanks

Please Login or Register  to view this content.

**JBeaucaire** · 03-07-2014, 12:26 AM

Not really getting into what your macro is doing, but I can offer a pretty much ready for primetime macro that does this, 100s of people have used it successfully after only a couple minor tweaks.

'SHEET1 TO MANY WORKBOOKS
Here's a macro for parsing rows of data from one sheet to many workbooks based on one column, workbooks named for the same values in that column.

Sheet1 to Many Workbooks

My macro names the workbooks for values in the column PLUS today's date, you can take a stab at removing the date part...or leave it in, it's a good technique.