Append data to a sheet's next row

  • Thread starter Thread starter Turbo
  • Start date Start date
T

Turbo

Hello, This is probably really easy. I need to take data from one
sheet on one line and input it onto a second sheet but in a fashion
such as in an access table as a new record. Example:

Sheet 1

A B C
1 red blue green

I'd like to then push a button that ports the info on the next
available line on Sheet 2 like this:

----------------
button such as CLICK here to add record to Sheet 2
----------------
The result would be...

Sheet 2

A B C
50078 old data here
50079 red blue green <--- added in from Sheet 1 via the button
push.



Then the next time I do this, I'd like it to add another row like
this:

Sheet 1

A B C
1 purp yell blue

----------------
button such as CLICK here to add record to Sheet 2
----------------

The result would be...

Sheet 2

A B C
50078 old data here
50079 red blue green
50080 purp yell blue <--- added in from Sheet 1 via the button
push.
 
put code in regular module
assign Formulars-button to this code

Sub copyColor()
Sheets("Sheet1").Range("A1:C1").Copy Sheets("Sheet2").Range("A" &
Cells(65535, 1).End(xlUp).Row + 1)
End Sub



"Turbo" skrev:
 
Back
Top