Import data from one spreadsheet to another using a button

[heather_1983]

Hi

I want to put some code behind a button that when pressed will copy the rows that i have highlighted and transfer them into a new worksheet.

The spreadsheet I have set up will calculate the average hours worked using start and finish times. I just need to work out how to import data from a report which is generated by a bespoke system and put the data into another worksheet.

I am self taught, so could any explanations be idiot proof? lol

Thanks in advance.

 

[Tuelor]

Hiya - welcome to the forum!

If you attach the following to a button - adding a few tweaks - it should do it.

The code opens a target file, and copies a fixed row to a row in your application. Hope that helps.

Dim sApp As String
Dim sTarget As String
sApp = ActiveWorkbook.Name
Workbooks.Open Filename:="C/...."
sTarget = ActiveWorkbook.Name
Workbooks(sApp).Sheets(1).Range("C:D").Value = Workbooks(sTarget).Sheets(1).Range("C:D").Value
Workbooks(sTarget).Close
Workbooks(sApp).Activate

D