Copy data and count list number

[brad999]

Evening,

Basically, I have a list of data in columns B,C,D, and an ascending number in column A. Three cells in G10,H10 and I10 can now be copied over to B,C,D no matter long the list (see post underneath) however I need it to simultaneous add an ascending number to column A once the macro is run.

Attached workbook shows two example situations in sheet 1 and 2, and a completed form in sheet 3(based on sheet 2 example).

Thanks in advance!

[daffodil11]

You want to paste to:

Range("A" & Rows.Count).End(xlUp).Offset(1)

This is the first blank cell below the last occupied cell in column A.

[brad999]

Excellent daffodil! One more thing I forgot to take account of...column A actually has an ascending number for each list, and when new data is pasted under it I need it too add 1 to the number in column A. Attached sheet updated... Is this possible?

[brad999]

Anyone know how to add an ascending number to the list? Attached sheet above has the part working macro I'm using

[JOHN H. DAVIS]

Maybe:

Please Login or Register  to view this content.

[brad999]

Thanks John! One more thing..id like to paste the data as values...and I cant see a 'paste' in that code, to add in

Please Login or Register  to view this content.

perhaps?

[JOHN H. DAVIS]

Try:

Please Login or Register  to view this content.

[brad999]

Thanks john, however I am modifying this slightly for my purpose,I'm copying data from sheet 2, b50:y50 and trying to paste into the data list in sheet 1, with the ascending number in column A. However adding activatesheet(1) in between the 2 lines of code doesn't allow the data to be pasted to sheet 1.


However I modified the first solution you had and it worked fine, not sure if anything with the paste as values code doesn't work across sheets?

[brad999]

Nevermind, I've sorted it! Just have activatesheets2 at the first like of code and activatesheets1 before the range to be copied! Thanks very much john !

[JOHN H. DAVIS]

You're welcome. Glad to help out and thanks for the feedback. Don't forget to mark this thread as solved.