Macro code in splitting data in multiple sheets

[shaishai]

Hi,

I have one concern that I have to split one sheet data into multiple sheets then getting the subtotal per names and amounts.

Based on condition as below.

Main Sheet:

Columns : Date, Department, Name, Amount.......(located in Col A:D)

I have columns A:P but I want to delete columns E:L, O:P as i split the data

I need to split the Main Sheet into separate sheet for each of the Department, then subtotal the name and amount for every worksheet made.

For every worksheet made, sheet name should renamed by Department as well

I need also to format the font and font style for every worksheet made

Header ( Size 11, Arial, Bold, Font color is white,cell fill is color dark blue

Body(Size 11, Arial)

For every subtotal row made- Fill the whole row in Light Yellow then bold the amounts

Would appreciate if any body can provide such macro code.

Thanks in advance

Regards,

Shai

[karmapala]

Would appreciate if any body can provide such macro code

Would appreciate if you can provide the sample workbook with some data in the sheet,
and some sheets as the sample result on what you expected