paste - offset

Hi,

I have an copy/paste
Sheets("Add Delete Team Members").Range("N37").Copy
Sheets("Change Summary").Range("A" & lastTransferRow + 1).PasteSpecial Paste:=xlPasteValues

Open in new window


I want to stamp the next column with username and the next column with date

So the above will drop data into columns A:L, then in:

K: Environ("username")
L: Date

I have the code for username and date, i just need to work it into the paste above

Thanks
Seamus2626Asked:
Who is Participating?
 
Rgonzo1971Commented:
Hi,

pls try

Sheets("Add Delete Team Members").Range("N37").Copy
Sheets("Change Summary").Range("A" & lastTransferRow + 1).PasteSpecial Paste:=xlPasteValues
Sheets("Change Summary").Range("K" & lastTransferRow + 1) = Environ("username")
Sheets("Change Summary").Range("L" & lastTransferRow + 1) = Date

Regards
0
 
KimputerCommented:
Sheets("Change Summary").Range("K" & lastTransferRow + 1).Value = "username" '(or code to get the username or another variable)
Sheets("Change Summary").Range("L" & lastTransferRow + 1).Value = NOW() '(or code to get the date or another variable)
0
 
Seamus2626Author Commented:
Thanks guys
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.