Copy row from sheet 1 to 2 and move sheet 2 down 1 row.

[paz1987]

Hi!
Im new to Excel and im working on this "simple" macro.

I have 2 sheets.

On Sheet1(LagerXI) i have inserted data between Columns B to H and row 2 to 800. My idea is that I have 800 buttons in column A (row 2 to 800) next to the data.
When i press a button it should copy that row and insert it in Sheet2(Arbetsmall).
If i then press another button it chould copy that row in Sheet1 and move it to the top of sheet 2. There by moving all previous data in sheet 2 down one step.


This is the code ive come up with:

Please Login or Register  to view this content.

It works fine but i have like 800 items i need to do a button for. I then have to change Range("B2:H2") by + 1 for the rest of the 800 items.. Is there a code that does that for me?

[mangesh.mehendale]

hii welcome to forum.... Instead of inserting 800 buttons just select desired row and press Alt+F8 and run following code..


If this works for you then mark this thread as Soved(see at top right "Thread Tools"

Also "Add reputation" to answer...

Please Login or Register  to view this content.

[paz1987]

Thanx Mangesh.

That is much easier. Also if it possible, i want to have a button in sheet2 (Arbetsmall) that copies all the newly inserted data into new outlook mail.

Thanx in advance.

This is what i come up with:

Please Login or Register  to view this content.

It works but it then takes blank cells into the outlook mail. How do i code so it ignores blank spaces if there are any?

[mangesh.mehendale]

hey this is another question you please mark this as solved and start new thread with suitable title..