Hi,
I'm not that great with VBA but trying to piece together from learning on utube etc
I have a worksheet called "Pay" and and another worksheet called "Trend"
I want to copy figures and formats from "Pay" range J2:12 and then copy paste special them in the next available blank rows in "Trend" in columns D:N, but also transpose the column data in "pay" to rows in "Trend"
I've tried the following but I need to find the next blank row in "trend" and hoping this makes sense to someone.
Using O365
What I have tried but not gluing together nor fully understanding as Im not sure how to code the next available row into this
sub CopyData()
Worksheets("Pay").Range("J2:J12")
Selection.copy
Worksheets("Trend").Range(D29:N29.Select)
Selection.PasteSpecialPaste:=xlPasteValues,Transpose:=True
Application.CutCopyMode=False
End Sub
Can someone please give me a nudge in the right direction as I want to attach this to a button and just click to have updated automatically each week when the pay figures change
I'm not that great with VBA but trying to piece together from learning on utube etc
I have a worksheet called "Pay" and and another worksheet called "Trend"
I want to copy figures and formats from "Pay" range J2:12 and then copy paste special them in the next available blank rows in "Trend" in columns D:N, but also transpose the column data in "pay" to rows in "Trend"
I've tried the following but I need to find the next blank row in "trend" and hoping this makes sense to someone.
Using O365
What I have tried but not gluing together nor fully understanding as Im not sure how to code the next available row into this
sub CopyData()
Worksheets("Pay").Range("J2:J12")
Selection.copy
Worksheets("Trend").Range(D29:N29.Select)
Selection.PasteSpecialPaste:=xlPasteValues,Transpose:=True
Application.CutCopyMode=False
End Sub
Can someone please give me a nudge in the right direction as I want to attach this to a button and just click to have updated automatically each week when the pay figures change