VBA to copy line from one sheet into specific cells on another sheet?

[Carterland]

Hi all,

New to the site so thanks for having me, I'm also new to VBA so be gentle lol

Basically I'm trying to speed up a process for something at work which involves trying to creat a macro button that would allow me to highlight a row, press a button and the data from specific cells in that row copied and pasted (values only) into another worksheet in specific cells as I've set up a template.

Firstly, is it possibly? And secondly how lol

The data would need to be as follows

From selected row on sheet names 'Log' copy cells to sheet named 'Feedback Template'

G - C6
L - C8
M - C10
K - C12
Q - C14
R - C17

Where I've specified the column on the above for the copy part, that would need to look in the highlighted tow for the correct number of the line.

If anyone could help I'd be so grateful.

Thanks in advance

Shaun

 

[Carterland]

Well it need some modification
But I have to go right now
Tomorrow I'll have a look at it
Sorry

Hi,

That's absolutely fine, just if/when you get chance, no pressure.

Thanks again

 

[mohadin]

Morning
Try this in Feedback Template
Let me know if this what you want
Thank you

 

[Carterland]

Morning
Try this in Feedback Template
Let me know if this what you want
Thank you

Hi,

Not sure if it just hasn't come through or there's an issue with my site but I can't see to see any code.

 

[mohadin]

OPs
Sorry
Here you are

Sub test()
    Application.ScreenUpdating = False
    Sheets("Log").Select
    With Worksheets("Feedback Template")
        .Range("C6") = Worksheets("Log").Range("G" & Selection.Row)
        .Range("C8") = Worksheets("Log").Range("L" & Selection.Row)
        .Range("C10") = Worksheets("Log").Range("M" & Selection.Row)
        .Range("C12") = Worksheets("Log").Range("K" & Selection.Row)
        .Range("C14") = Worksheets("Log").Range("Q" & Selection.Row)
        .Range("C17") = Worksheets("Log").Range("R" & Selection.Row)
    End With
    Sheets("Feedback Template").select
    Application.ScreenUpdating = True
End Sub

 

[Carterland]

OPs
Sorry
Here you are

Sub test()
    Application.ScreenUpdating = False
    Sheets("Log").Select
    With Worksheets("Feedback Template")
        .Range("C6") = Worksheets("Log").Range("G" & Selection.Row)
        .Range("C8") = Worksheets("Log").Range("L" & Selection.Row)
        .Range("C10") = Worksheets("Log").Range("M" & Selection.Row)
        .Range("C12") = Worksheets("Log").Range("K" & Selection.Row)
        .Range("C14") = Worksheets("Log").Range("Q" & Selection.Row)
        .Range("C17") = Worksheets("Log").Range("R" & Selection.Row)
    End With
    Sheets("Feedback Template").select
    Application.ScreenUpdating = True
End Sub

Absolute superstar. Thanks

 

[mohadin]

welcome