Offset Cut/Past Macro

[mherrera]

I have a data group of 400+ columns wide and 26 row high. Each column represents a set that I would like to separate from the group in order. Each set will be placed in the same column, just below the previous set. So I’m trying to create a macro that would cut the whole data group, except for the 1st set, move it down 27 row, to the left 1 column (to place the next set below the previous set), and paste. This should be repeated (looped) until the last set is place in the single column.

As you can see I’m trying to figure out the first cut/paste part, haven’t even put the loop command in yet. As this is my second attempt at this type of Macro it is not going so smoothly. Any and all help is much appreciated!!

Please Login or Register  to view this content.

[Richard Buttrey]

Please note the forums rules and the requirement to wrap code between code tags for readability,
I've edited your original post on this occasion, and with 5 posts you should know by now.

One way..
Select the upper left hand cell of your data and run the following macro.

Please Login or Register  to view this content.

[mherrera]

Thanks for your response!! Sorry for not knowing the rules about code tags. I will try to use them to best of my abilities from here on out.

Because I am new to writing VBA macros I am having trouble understanding the meaning and order of the language. I spend the last few hours trying to break down your macro, to get a better understanding of how it works.

As far as your macro performing the cut/past task that would make life easier for me, it needs one little tweak. It needs to paste 18 rows below the last paste, not the next row. I tried to adjust your macro to do this by replacing Cells(2, 1) with Cells(18, 1). As you probably know, while this pastes the 1st set of data 18 rows down, it also pastes all other sets in the same place. I tried several other adjustments, but the more I played with it the worst I made it.
Thanks for your help

[Richard Buttrey]

Hi,

Untested, but you could try replacing

Please Login or Register  to view this content.

with

Please Login or Register  to view this content.

Regards

[mherrera]

Thanks again!! That replacement line works!