How to split data into multiple worksheets based on column and change its formating

Hi,

I need your help in configuration of VBA code. I have managed to find a VBA code that splits data into multiple worksheets, but now I need it to be place in specific form. So, the splited data needs to be placed in new worksheet in new changed form.

I have attached an excel file with VBA code "XXXXXX" that splits the data. Now I need it to redisign the data splited. If you lunch the VBA, you will get several of new worksheets. What I want it to look like, is the difference between worksheet "zbig noc" and "AAAAA".

many thanks for your help
0002361186-20140821.xls

Hi Richard,

Thanks for your replay.

I need it to do exactly the way I have described. Actually, I am currently working the way you described, but then I have to copy/paste separate data to multiple worksheets and send to customers. So, the work has to be done anyway and VBA is perfect for this. I'm stuck on the "redecoration" part, which I think should be the easiest one pls see the picture attached - this has to be done for each worksheet. Each table has different number of rows and the same number of columns.

p.s. is it possible to set changable (according to the table size) print area for each worksheet?

Przechwytywanie.jpg

are you able to do this makro?

Yes, I'm using Microsof Outlook. Many thanks in advance.

I will be on vacations for the next 7 days and wont have access to the internet, so I wont replay during that time.

wow, this works great. many thanks. but still, I have 2 more questions to ask:

- I still need multiple worksheets. I just need it to save this way - I generate these kind of reports every day, so it is much more convenient to have it all in one file
- are you able to write VBA that is not generating e-mails on each client, but separate pdf files (ready to print)? - in this verion I dont need email addresses.

Many thanks Richard

one more thing. I need SUM formula in each table. I think it is something with this:
ActiveCell.FormulaR1C1 = "=SUM(R[2]C:R[" & ActiveSheet.UsedRange.Rows.Count & "]C)"