Copying Data from one Execl to another Matching Headers.

lostlonelydude · Jan 26th 2019

Hello Everyone,

I am new to VBA and hoping I can find help for my question here:

I have a few excel which has 23 columns and another few with 7 columns with headers which I get daily with new data. I have another excel which is my master excel where I have all the data updated from the daily excel I receive. My master excel has only 12 headers and columns. The header names are not the same on the master excel and the daily excel that I receive but it is fixed headers on both the excels. On a daily basis I:

1. Save all the new excel I received to the same folder as my master excel. Open my master excel, Open all the new excel I receive, manually match the header and copy data from the new Excel to the master excel, under correct headers, under the existing data on the master excel.
2. Save my master Excel and close all the excel.
3. Delete the new excels I received.
4. Go one folder up and Open a new folder with today's date.
5. Put a coy of my master excel with the updated data inside the new folder.

I want to create a macro that can do all these with a click of a button and I want a macro that will open all my new excel one by one automatically and I want a macro that can match the headers on the master excel and the new excels I get daily and copy all the data from the daily excel go to my master excel find the next available cell on the master excel and paste the data under the correct header. Data in My master excel is in a table but the daily excel is not in a table. Also on my master excel, the first column is a reference number which is a running number, so every time a data is pasted the number filled with a reference. I want a macro that I can do all this with a click of a button as this is something I do everyday. However, the number of files I get daily is not fixed. Sometimes I get five sometimes seven, sometimes two. The headers on the files I receive is fixed and the header on my master excel is also fixed but they don;t have the same headers.

Hoping for some help from you all please.

Thank you

Mumps · Jan 26th 2019

I can't promise a solution but it would be easier to help if you could attach a copy of your Master file and copies of one or two of your new files?

Mumps · Jan 26th 2019

It looks like you have asked the same question at this link: https://www.mrexcel.com/forum/…her-matching-headers.html
According to Forum rules, if you post the same question in a different Forum, you should post a link to that thread. This saves people from spending time coming up with a solution which may already have been solved in another Forum.

lostlonelydude · Jan 27th 2019

Hi All,

Sorry I have forgotten to mention, I have posted this question on the following pages:

Page 1: https://www.ozgrid.com/forum/f…-another-matching-headers
Page 2: https://www.mrexcel.com/forum/…-headers.html#post5214873

Trying to find help from wherever I can.

Thank you

lostlonelydude · Jan 27th 2019

Hi [USER="138669"]Mumps[/USER] , Thank you for your reply. I am unable to attach the file in here. Can I have your mail ID, i'll post it to you?

lostlonelydude · Jan 27th 2019

Hi All,

To make it easy my column headers on my master Excel will be
Reference, Name, ID, Date of Bith, Place of work, School, Education Level, Year Leaving School, Highest Education, Education expecting complete next, Martial Status, Ambition

And the Heaaders of my daily excel that match my master excel will be
Excel 1:

Reference =

Name = First Namr
ID = Identificaiton
Date of Bith = DOB
Place of work = Work
School = Edu
Education Level = Qualification
Year Leaving School = School Year
Highest Education = Education Level
Education expecting complete next = What you want to do
Martial Status = Status
Ambition = Vision

Excel 2:

Reference =
Name = Full Name
ID = Identificaiton
Date of Bith = DOB
Place of work = Work Plc
Highest Education = Education Stats
Ambition = What next

PLease help me find a macro that can copy matching status and paste below existing data on my master file.

Thank you

Mumps · Jan 27th 2019

Are the headers in Excel 1 and Excel 2 the only possible headers that you will ever have in the source files? Perhaps you could upload a copy of your files to a free site such as http://www.box.com or http://www.dropbox.com. Once you do that, mark each for 'Sharing' and you will be given a link to each file that you can post here. If the workbook contains confidential information, you could replace it with generic data.

lostlonelydude · Jan 27th 2019

Hi,

I have found how to attach files. I am attaching sample master file and my source files and yes. I receive multiple source files but the format is the same either source file 1 format or two.

I hope this helps.

Thank yu

lostlonelydude · Jan 27th 2019

I am attaching the second format now.

Mumps · Jan 27th 2019

Are the source files named in such a way that can distinguish a source file 1 format from a source file 2 format?

lostlonelydude · Jan 27th 2019

Hi,

Yes the source files will have a number at the end either 1 or a 3 which will indicate which format it is.

lostlonelydude · Jan 27th 2019

For example a few source files would be ExcelSource3 which will have format 2 and ExcelSource2 and ExcelLedger2 will have format 1

Mumps · Jan 27th 2019

OK, so the file will have a 3 or a 2 at the end, not a 3 or a 1. I'll proceed on that basis.

lostlonelydude · Jan 28th 2019

Yes PLease, that would be great. I have surfed whole of the internet to find a macro that can look up the headers and copy data but i couldn't find a possible match anywhere.

Mumps · Jan 28th 2019

Before we go any further, I would like you to try out what I have so far. Save [SIZE=13px]the attached 2 files [/SIZE]in the same folder. I will attach the Master file in anther post.

Mumps · Jan 28th 2019

[SIZE=13px]Save the attached Master in the same folder before running the macro in Module1. Check the end result and see if it is what you want. Please let me know how it works out and we'll go from there. Please use these 3 files, as the files you posted had several typographical errors which caused a lot of problems trying to match headers.[/SIZE]

lostlonelydude · Jan 29th 2019

I ran the macro but I am getting an error. "Run-time error '1004': Sorry, we couldn't find LeadGen2.xlsx. Is it possible it was moved, renamed or deleted?" But all three files are in the same folder

Mumps · Jan 29th 2019

Try shutting down Excel and re-starting it. Please use the revised macro below. It worked properly for me.

Code

Sub CopyRange()
    Application.ScreenUpdating = False
    Dim wsDest As Worksheet, wkbSource As Workbook, strExtension As String, LastRow As Long, LastRow2 As Long, x As Long: x = 2
    Set wsDest = ThisWorkbook.Sheets("Sheet1")
    Dim arr2 As Variant, arr3 As Variant, i As Long, header1 As Range, header2 As Range
    arr2 = Array("Name", "ID", "Date of Birth", "Place of Work", "School", "Education Level", "Year Leaving School", "Highest Education", _
            "Education Expecting to Complete Next", "Marital Status", "Ambition")
    arr3 = Array("Name", "ID", "Date of Birth", "Place of Work", "Highest Education", "Ambition")
    strExtension = Dir(ThisWorkbook.Path & Application.PathSeparator & "*.xlsx")
    Do While strExtension <> ""
        Set wkbSource = Workbooks.Open(strPath & strExtension)
        If Left(Right(strExtension, 6), 1) = 2 Then
            With Sheets("Sheet1").Rows(1)
                .Replace "First Name", "Name"
                .Replace "Identification", "ID"
                .Replace "DOB", "Date of Birth"
                .Replace "Work", "Place of Work"
                .Replace "Edu", "School"
                .Replace "Education Level", "Highest Education"
                .Replace "Qualification", "Education Level"
                .Replace "School Year", "Year Leaving School"
                .Replace "What do you want to do", "Education Expecting to Complete Next"
                .Replace "Status", "Marital Status"
                .Replace "Vision", "Ambition"
            End With
            With Sheets("Sheet1")
                LastRow = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
                LastRow2 = wsDest.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
                For i = LBound(arr2) To UBound(arr2)
                    Set header1 = .Rows(1).Find(arr2(i), LookIn:=xlValues, lookat:=xlWhole)
                    Set header2 = wsDest.Rows(1).Find(arr2(i), LookIn:=xlValues, lookat:=xlWhole)
                    Range(.Cells(2, header1.Column), .Cells(LastRow, header1.Column)).Copy wsDest.Cells(LastRow2 + 1, header2.Column).End(xlUp).Offset(1, 0)
                Next i
            End With
        ElseIf Left(Right(strExtension, 6), 1) = 3 Then
            With Sheets("Sheet1").Rows(1)
                .Replace "Full Name", "Name"
                .Replace "Identification", "ID"
                .Replace "DOB", "Date of Birth"
                .Replace "Work PLC", "Place of Work"
                .Replace "Education Stats", "Highest Education"
                .Replace "What Next", "Ambition"
            End With
            With Sheets("Sheet1")
                LastRow = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
                LastRow2 = wsDest.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
                For i = LBound(arr3) To UBound(arr3)
                    Set header1 = .Rows(1).Find(arr3(i), LookIn:=xlValues, lookat:=xlWhole)
                    Set header2 = wsDest.Rows(1).Find(arr3(i), LookIn:=xlValues, lookat:=xlWhole)
                    Range(.Cells(2, header1.Column), .Cells(LastRow, header1.Column)).Copy wsDest.Cells(LastRow2 + 1, header2.Column)
                Next i
            End With
        End If
        wkbSource.Close False
        strExtension = Dir
    Loop
    Application.ScreenUpdating = True
End Sub

Display More

lostlonelydude · Jan 30th 2019

I tried, it says the same thing.

I guess its picking up the excel name from the folder and something is not getting picked up right. The excel is there but its not recognize it and i can't figure why. I am so confused

Mumps · Jan 30th 2019

Does the file have an "xlsx" extension? Did you save the Master file to the same folder as well? If it's not in the same folder, you'll get the error.

Copying Data from one Execl to another Matching Headers.

Participate now!

Share