Transfer data code

Hi,

I have data in a tab called "Change Summary" and i want to transfer it to a tab called "Log", both tabs have headings so, il need it from "A2-end of rows" transferred to "Log" But in log it must append, so paste to next available row

Thanks
Seamus2626Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Rgonzo1971Commented:
Hi,

pls try

Sub macro()

Sheets("Change Summary").Range(Range("A2"), Range("A" & Rows.Count).End(xlUp)).Copy _
    Sheets("Log").Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub
' Or

Sub macro()

Sheets("Change Summary").Range(Range("A2"), Range("A" & Rows.Count).End(xlUp)).Cut _
    Sheets("Log").Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub

Regards
0
Seamus2626Author Commented:
Thanks Rgonzo, the code only transfers column A, can you get it to transfer A:L from Change Summary

Thanks
0
Rgonzo1971Commented:
then try

Sub macro()

Sheets("Change Summary").Range(Range("A2"), Range("L" & Rows.Count).End(xlUp)).Copy _
    Sheets("Log").Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub
' Or

Sub macro()

Sheets("Change Summary").Range(Range("A2"), Range("L" & Rows.Count).End(xlUp)).Cut _
    Sheets("Log").Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

Seamus2626Author Commented:
Thanks!
0
Seamus2626Author Commented:
Rgonzo, im getting an application defined error when attempting to use this code now,

my entire sub is below, do you know what the error is?

Thanks

Sub ClearChangeSummary()

'When the targets have been uploaded to CV, the admin will use this button to clear out uploaded amendments/additions




Application.ScreenUpdating = False
Sheets("Change Summary").Select

Dim Lastrow As Integer


Sheets("Change Summary").Select
If Range("A2").Value <> "" Then

    Sheets("Log").Select
    ActiveWorkbook.Unprotect Password:="football"
    Sheets("Change Summary").Range(Range("A2"), Range("L" & Rows.Count).End(xlUp)).Cut _
    Sheets("Log").Range("A" & Rows.Count).End(xlUp).Offset(1)

    
End If




Lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Range("A2:L2" & Lastrow).ClearContents

    Sheets("Log").Select
    ActiveSheet.Protect Password:="football"


Sheets("Admin").Select


Application.ScreenUpdating = True

End Sub

Open in new window

0
Seamus2626Author Commented:
All sorted, just needed to jump onto the sheet!
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.

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.