Macro Loop and Paste in next empty row

**Rayhoop** · 05-14-2008, 11:06 AM

Hi All,
I was hoping you could help, as Im new to macros etc...

I recorded a macro, and I need it to loop AND to paste the next set of results in the next empty row...

Im guessing this is pretty basic stuff, as Ive seen countless threads etc giving examples, but I just have not managed to get any to work :0s

Could you help please?

The macro recorded is...

Please Login or Register  to view this content.

When it loops, I need it to move down to the next A*:G* range until it hits an empty 'range'. The data copied from range C5:J37 then needs to be pasted in Sheet4, but in the next empty row.

Any ideas?

PS - sorry about not formatting the post correctly (earlier)

**VBA Noob** · 05-14-2008, 11:14 AM

Rayhoop,

Welcome to the forum
Please take 5 mins to read the forum rules below and then amend your title and wrap your code

VBA Noob

**Rayhoop** · 05-14-2008, 01:10 PM

Right..

Ive been having a play - close but no cigar.

the code I have at the moment is

Please Login or Register  to view this content.

BUT... it does not select the next row and copy/paste the range into sheet2!c5 correctly :0(
After the 1st attempt, odc appears to be incrementing (as the message box shows this), but it does not select/copy/paste the correct range - it appears as it is trying to copy the same range :0s

Any ideas?

**VBA Noob** · 05-14-2008, 01:19 PM

Rayhoop,

Not sure I follow the logic of the code. Can you upload a sample workbook with a before and after or see if the below helps

Usually you can find the last cell with this statement

Please Login or Register  to view this content.

This link explains in more detail

http://www.rondebruin.nl/copy1.htm

VBA Noob

**Rayhoop** · 05-14-2008, 02:09 PM

Cheers mate.

I replaced the 'find last' with a crude method of selecting a cell 34 rows down using

Please Login or Register  to view this content.

34 because the number of rows selected from sheet2 were 33. However in the cut down demo spreadsheet I've only included a handful.

My end loop statment doesnt work either :0( I have to 'escape' out of the macro.

odc stands for 'original data cell', so in theory incrementing it by 1 would push the cell range down a row?

Thanks again for your help.

**VBA Noob** · 05-14-2008, 02:36 PM

Still not clear what your after. This copies Sheet 1 to Sheet 4. Note's may help

Please Login or Register  to view this content.

VBA Noob

Macro Loop and Paste in next empty row

LinkBack

Thread Tools

Rate This Thread

Display

Macro Loop and Paste in next empty row

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions