Copy data from another workbook

[militambe3171]

Hi,

I want to create simple excel report for that data will be copied from different workbook, but i want to copy specific columns from each workbook. data will be match based on column names and will be pasted accordingly

For ex.

Report file column names are
A:Name
B:DOB
C:Last Name
D:Department
E:DOJ

Data contains in file 1
(Copy below columns from file 1)

A:Name
B:Last Name
C:Department

Data contains in file 2
(Copy below columns from file 2)

A:DOB
B:DOJ


file located at different locations


Please let me know if you need more details

Thanks in advance

 

[dmartin35]

This will do it,but you need to be sure that the data in each row from file 1 will match the data in each row from file 2. I assume you are copying to and from Sheet1. You will need to change the sheet names.

Sub CopyData()
Dim wbkFile1 As Workbook
Dim wbkFile2 As Workbook
Dim sFile1 As String
Dim sFile2 As String


sFile1 = Application.GetOpenFilename
Set wbkFile1 = Workbooks.Open(sFile1)
wbkFile1.Sheets("Sheet1").Range("A:C").Copy _
    Destintion:=ThisWorkbook.Sheets("Sheet1").Range("A1")
wbkFile1.Close savechanges:=False


sFile2 = Application.GetOpenFilename
Set wbkFile2 = Workbooks.Open(sFile2)
wbkFile2.Sheets("Sheet1").Range("A:B").Copy _
    Destintion:=ThisWorkbook.Sheets("Sheet1").Range("D1")
wbkFile2.Close SaveChanges:=False


End Sub

Hope this helps,
David

 

[militambe3171]

Thank you David

 

[dmartin35]

Glad it helped.

 

[militambe3171]

I want more help on same are you available online??