Macro for multiple subtotals

[orlex]

Hello, i'm in need of some VBA help for an excel macro. I have a macro that takes data from one sheet and moves the relevant/needed data to a second sheet within the same workbook. Once the data is moved to a new sheet, the macro then separates the data based on the date by putting two lines in between each set of data as shown in the attached picture. What I would like to be able to do is subtotal each little group (generally anywhere between 1 and 3 lines) under the hours which is column J and that's where i'm stuck. I have everything else working properly except I am stumped on how to get column J subtotals for each little group to work. Any help would be greatly appreciated!

sample.JPG

[Steve7913]

Hi


this is how I would have done it... (there may be better ways, im no expert) ... but hope it helps

Please Login or Register  to view this content.

[orlex]

Unfortunately that didn't work for my case. It actually ended up doing nothing. Any other ideas?

[Steve7913]

any chance you can post an example of the data?

[orlex]

Attached are two samples of the sheet that comes out once I get it separated into a second sheet. I need each small group that pertains to whatever date, to have it subtotal below the last row of that group.

Sample one: This sample has it before I run part of my macro that separates the rows into groups based on the date.

Sample two: This sample is what happens after the macro has been run to separate the rows into groups based on the date.

[Steve7913]

in your examples (both) your data is on sheet2. This is why my code did not work.

I have adjust it it accordingly.

I have also provide you with one to remove the sub totals we create with the first one... just in case

I only created this for the "SAMPLE DATA post macro"

I've tested it, and it workd

Please Login or Register  to view this content.

[jindon]

Try the attached

Please Login or Register  to view this content.

[orlex]

Thank you Jindon, that worked perfectly.

I appreciate your effort Steve7913

[jindon]

You are welcome.

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.

[orlex]

You are welcome.

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.

Jindon, I actually I have one final question. Is there a way to make the subtotals bold and if the subtotal is under 8.0, make the subtotal text red?

[jindon]

Try change

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

[jindon]

OOps, typo

Please Login or Register  to view this content.

should be

Please Login or Register  to view this content.