Copy/Paste Categories with Totals

[deltf97]

Scenario:
Main Ledger sheet that has 4 columns and copies the rows to the respective "category" sheets. The 4 columns will appear the same on each category sheet and will be sorted by date. I have gotten the code working for only one category, but when I try to add in another category, the code breaks on ActiveCell.Offset(1, 0).Select in the Vehicle-Truck category. I'm a novice in Excel, but do have a programming background. It seems to me that the offset is trying to go down a row, but the ActiveCell is already at the bottom of the sheet. I appreciate any help!! Thanks.

Please Login or Register  to view this content.

[jaslake]

Hi deltf97

Change this line of code from

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

and it should work.

You may wish to consider what to do if there are no entries in a given Category.

John

[JBeaucaire]

The macro recorder code needs to not teach you bad habits, like "selecting" and "activating" to get data moved. Also, you can use the Data > Filter > Autofilter to mode this data pretty easily.

Please Login or Register  to view this content.

If you leave the two entries I put in E1:F1 on the Ledger sheet, you can take out that last section of code since the totals will already be there on each sheet.

[deltf97]

Thank you Jerry!!! Really appreciate it.
This workbook is for my dad and this is the way he wanted it, so I'm trying to make it as simple as I can with as few as clicks as possible for him.

Thanks again.

Josh

[JBeaucaire]

If that takes care of your need, please click EDIT in your original post, click GO ADVANCED and set the PREFIX box to SOLVED.