Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 104
  • Last Modified:

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
0
Seamus2626
Asked:
Seamus2626
2 Solutions
 
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

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now