Customize code for a macro that copies three rows to a new workbook based on a condition

I have some code here which works great. I would like to customize it in a different way though, and have been unsuccessful at doing so and am therefore reaching out to this community. I will try to explain what I would like to do. What the macro does right now: it copies three rows to a new workbook (Rows 4 and 5 as well as the row of the active cell, based on whether the row of the active cell has non-empty cells). What I would like to do is that I would like the macro to copy the following rows to a new workbook:
-Row 4 & 5 (like it's doing right now), but based on whether the below row(s) has(have) non-empty cells.
-any row which i have selected. So instead of just one other row being copied, several other rows should be copied, depending on which rows i select.
To summarize: Assuming I select row 6,8, & 10. When running the macro, a new workbook is created where the following rows have been copied:
-Row 4 & 5
-Row 6,8, & 10 *The condition being however that only those columns are copied where Row 6,8, & 10 are non-empty.
Assuming I select row 14, 54, 31, 64, 65. When running the macro, a new workbook is created where the following rows have been copied:
-Row 4 & 5
-Row 14, 54, 31, 64, 65 *The condition being however that only those columns are copied where Row 14,54,31,64 & 65 are non-empty.
The overall logic of the current code thus doesn't change. Rather, what changes is that I would like to be able to copy several rows apart from 4&5 instead of just one other (as it is doing now-based on where the active cell is)
Here is the code, I hope I have been clear. If anyone has any idea where i could start/how i could do this, please let me know, thanks!!

Please Login or Register  to view this content.

Links for cross-posts:
http://stackoverflow.com/questions/1...k-based-on-a-c
http://www.ozgrid.com/forum/showthread.php?t=173353

hi

please take a moment to read the forum rules again paying special attention to #3 and #8 and then amend your post accordingly. thank you ;-)

you don't have to delete it you just need to add links here to your cross-posts in other forums

you don't. you have a short time to edit them (10 minutes I think) but that's it

Hi Philips,

I do not have the time to do it right now, but I will make the changes tomorrow morning, unless somebody else delivers the change quicker

Ok, this should work

Please add the Microsoft Scripting Runtime reference to your project to allow for early binding of dictionary objects

Please Login or Register  to view this content.

Philips, I have thought of several improvements so version 2 will follow a bit later. I suggest you wait with testing until I have posted the revised code

Version 2.

Please remember to add a reference to the Microsoft Scripting Runtime

Please Login or Register  to view this content.

Philips,

Strange, the code works fine on some sample data that I have compiled myself. Are you sure about the line number in error? Can you see (by hovering your cursor over the variables) what the values are at the moment of the error?

or replace the line with

Please Login or Register  to view this content.

Not as nice, but maybe less sensitive to problems in case for formula errors and so on

Ok, getting to the cause of the problem

can you have a look at the contents of row 6 in column HG?

Philips,

Never mind, it is probably a formula result error or someting

Change the line to:

Please Login or Register  to view this content.

and it should work fine

Glad to have been of help. Remember to mark the thread as SOLVED and click the little star if you are happy with my contribution!