Forum Discussion
VBA - Splitting worksheet by Dept
Hi
This is a complicated task that requires a VBA expert. I have attached a file for you to review. What I would like is a VBA code to be able to take the data and split it into separate worksheet per dept. So I want to filter out one dept at a time on one worksheet. Importantly I want the subtotal at the bottom to remain. So the subtotal would show the filtered total per dept.
Also is it possible to rename the new worksheets with the Dept name as well?
Please let me know if you can assist with this as it will save me so much time.
Thank you in advance.
Zia
I do not modified the program but just insert more comment for the changes. Hope you can learn it.
12 Replies
- Man Fai ChanIron Contributor
You may refer to the attached file. (Just wonder that xlsm-file are allowed to upload)
The program will determine whether a department is "new" and then create the corresponding worksheets. I myself prefer to create a blank template and then copy the template in case it is a "new department" so that you need not to concern the formatting.
For each output, the cell J4 is counting the row number in the sheet. Since I am not sure that your real file consists of other worksheets or not, I cannot clear that contents. You may delete it manually. This procedure can be solved if you already have the list of departments. In this case, you can create worksheets (or copy from template) according to the list and then at end delete J4 for each worksheet corresponds to the department.
Hope that it is helpful to you.
- Zia SiddiqueCopper Contributor
Hi Man
Thank you for this I am very grateful. It works brilliantly. I have a few questions regarding this code. The data file was a test file.
Can I ask when I am working with these sort of files the range of the data will be different ie the data might start in cell A1 or P1. The number of columns used would be different ie the data may go from column K to column U. The number of rows will also vary depending on the data. The subtotal as a result would be in different cells each time I run the report.
What part of this code needs to change in order to reflect the above variations.
Look forward to your reply.
Zia
- siaparCopper Contributor