copy and pasting from sheet to sheet

  • Thread starter Thread starter chunky
  • Start date Start date
C

chunky

hello folks :)

new to excel but getting into it slowly.

have a list of data consisting of an id number, surname, address and
notes/comments columns. this is a master database consisting of 400
entries. I have to compile a work rota daily and i must CTRL-F to find
an individual by id number. then select the row these details are
contained within. then i CTRL-C, CTRL-TAB, select last empty row and
CTRL-V. both sheets have identical formats in order to avoid format
problems.

so as you can see, im only copying a row from one sheet to another but
i was wondering if there isnt an easier way to do this.

like maybe select the row i wish to copy then press a toolbar button to
send it to next available row on other sheet without going to that
sheet. a confirmation of successful copying would be cool. any ideas
how to do this please? would be very gratefully received as it would
save a lot of time and possible error.

thanks all :)

Chunky
 
try this assigned to a button or shape.

Sub copyactiverow()
x = Sheets("Sheet8").Cells(Rows.Count, "a").End(xlUp).Row + 1
ActiveCell.EntireRow.Copy Sheets("Sheet8").Cells(x, "a")
'msgbox "Copied" 'if desired
End Sub
 
thanks for the help :)

cant seem to get it to work tho. falls down on the second line.

ty for any more help you can offer
 
forgot to mention.....

the workbook has 5 sheets but i will only need the macro to copy from
sheet 1 to sheet 3. (the tabs are named, will that make a difference?)
 
Back
Top