VBA Combining Macros

[murp5972]

Hi, I've got three macros. I need them to be done in this order.

1.) The first macro deletes Rows 1, 2, and 3, and Columns A, B, and G throughout all of my sheets within a workbook. (The data is organized the same throughout). This is what it looks like:

Please Login or Register  to view this content.

2.) The second macro combines the newly trimmed data from all sheets and combines it all into a new sheet titled "Combined" Heres the code:

Please Login or Register  to view this content.

3.) I want the third code to look through the newly created "Combined" sheet and delete any Rows that have a blank in column B on this "Combined" sheet. Heres my code:

Please Login or Register  to view this content.

If someone could help me join these macros into one so that they all run, in this order, that'd be greatly appreciated! Simply adding them ontop of eachother doesnt seem to be doing the trick. Thanks so much!

[gmr4evr1]

Try this, it's not fully tested but it might help in some way..

Please Login or Register  to view this content.

[judgeh59]

try this....if all the subs are in the same module this should work....also, I didn't the name of the second module, so I faked it....execute MyMain and it will "Call" it sub in turn

Please Login or Register  to view this content.

[murp5972]

Hi gmr4evr1,

Your code is doing everything properly except for deleting the blank rows in Column B from in the new "Combined Sheet" Any ideas? Also, I'm wondering if i could have the "combined sheet" columns be auto adjusted for width too. Thanks so much!

[TMS]

If all your subroutines are tested and working, the best (and most practical) solution is judgeh59's. (Would have been my approach but he beat me to it .)

No development or testing required.

Regards, TMS

[murp5972]

try this....if all the subs are in the same module this should work....also, I didn't the name of the second module, so I faked it....execute MyMain and it will "Call" it sub in turn

Please Login or Register  to view this content.

Would I simply add this code to the beginning of the module with all of my subroutines in it?

[murp5972]

Hi TMS,

Both methods seem to be working, all except for my third subroutine. After the data is trimmed and compiled, I want the third sub to auto adjust column width for A:D and I want it to delete any Rows that have a Blank cell in Column B. The code I've recorded is this, but it doesnt seem to be working.

Please Login or Register  to view this content.

[TMS]

Probably need to see some data.

You don't need to select objects to work with them:

Please Login or Register  to view this content.

should work.

Regards, TMS

[judgeh59]

@TMS - thanks for the vote of confidence, so to speak....

[TMS]

You're welcome.