Combine Data From Specific Worksheets And Multiple Workbooks In Various Directories?
Feb 22, 2014
I have a master workbook that has been set up to mirror the structure of a single worksheet in various other workbooks saved in different directory locations. I need some VBA code to retreive specific data from a specified worksheet in multiple workbooks which are saved in different directories and then copy the data to the master workbook, listing each data set one after another. I do not want to open any of the source workbooks to acheive this.
I attach two example workbooks to better explain:
The code has to look in various sub directories to find the relevant workbooks, (Source1) then find the specified worksheet, (Stock) and copy only rows that have data from column B to O. The data needs to be copied to the master workbook, (master) from all the source workbooks as a list with no space.
I would like to create a macro which finds data from multiple worksheets and collates them in my Master Worksheet.
I am competent with a lot of functions with Excel, however I have never used Macro's before. I have a little bit of VB knowledge, but only the very basics. I will attempt to explain my situation as clearly as I can.
Please note in your response that I am not familiar with a lot of the programming jargon. I also do not know how to actually create (or is it record?) a macro.
Finally, before I dive into it, I would *prefer* not to have to add code to the closed worksheets, but I can do this if there is no other way!.......
I'm trying to combine data from several worksheets (one sheet per workbook) into a single, consolidated master worksheet for reporting purposes (filters and pivot tables). We do not need to keep formulas for the master worksheet, only values and formats. Individual worksheets are used by different users to capture case data in a Human Services field. Column headings are identical, but rows contain data on individual cases. I'm trying to find a relatively easy way to combine multiple worksheets into a single master. After I establish the worksheets and technique, it will be operated by extremely basic users so I've been reluctant to use extensive macros.
Because of complex reporting needs, the exact combination of worksheets being combined for reporting may vary. For example, one time I may combine Tom, Dick and Harry, another time Tom, Dick and Bob, and yet another time Tom, Dick, Bob and Harry. Obviously, one method is to cut and paste the rows into a single worksheet. Are there more elegant solutions that could easily be handled by very basic users? Worksheets are stored in a single folder along with a separate worksheet used for validation rules (as you can guess, this would ideally be a database application but for various economic and political reasons we are using Excel). One possibility, if straightforward, is to use Access to consolidate data then export it back to Excel for analysis. I've scoured the various threads but have not found a situation mirroring mine. The number of rows for each worksheet is generally less than one hundred, but there will be a few exceeding several hundred. Total numer of rows of the resultant master worksheet will not exceed 10,000.
I am trying to combine several workbooks containing data in multiple sheets into a master workbook. All the workbooks have the same number of worksheets. I would like to combine all data in Sheet1 into a new Sheet1, all data from Sheet2 into a new Sheet2, etc.
I have data in multiple worksheets and I want it all combined in 1 excel sheet. The 1st worksheet is named as A and all the data in column labled "date" as well as column labled "name" should be copied to master sheet. The range is not specific as vary every month. 2nd worksheet is named as B and all the data in column labled "date" as well as column labled "name" should be copied to master sheet. The range is not specific as vary every month. and there are some more worksheets like that. The start point of data will always be same but can end till any row. Can I get a code for collating all together in one sheet,
I have 5 worksheets (all formatted the same) with data inputs from row 19 to 119 and columns A to BA. After row 119 I have several sums based on the data that is being entered on rows 19 to 119, I don't want this data being copied over. In most cases all rows from 19 to 119 will not be used, so I would only like to copy the rows that have data. To complicate matters, there are times when there will be blank rows within rows that have data. For example rows 19 to 25 will have data and 26 will be blank but rows 27 to 38 will have data. The blank rows are identified by column A (Job Number) being blank. This occurs because a job is dropped from the schedule and is no longer necessary.
In the end, I would like to have a button using VBA that will first clear the data in the new sheet (the sheet that is being populated with the information) and then re-populate it with updated data from the 5 worksheets.
I have four worksheets that all contain the same header row in row 1, but different data in the data rows. I would like to combine all the data from each of the 4 worksheets into a new (created by code) worksheet named "WS Combine". The worksheet named "Result I want 01" simulates exactly what I want the "WS Combine" worksheet to look like. Can this be done?
The header row, however, only needs to be brought over once (with all formatting intact; ie header pane frozen, yellow, centered & bold).
The Worksheet named "Result I want 02" simulates the second thing I would like to do. This worksheet basically looks at "Result I want 01" and copies ONLY the rows that are RED and BOLD and pastes these rows (along with the header row). This worksheet could be named "Red Totals"
A couple of nuances...
1. The rows that are RED and BOLD in the four original worksheets are not always in the same position. That's because they don't currently populate that way so I wanted to make this as real as possible. Therefore, ideally, code that says "just copy all data from four worksheets" would not be sufficient.
If it's not possible or too involved to have the worksheet named "Result I want 01" reorder the rows this way when copying them over, then having them in any order is fine.
2. I need to keep the font formatting of ALL the rows intact as future code will not work without this formatting retained on the two new worksheets.
3. It is possible that duplicate rows can be created (two worksheets have the same exact data) when combining these four worksheets into one. If this is the case, then either allow that to happen or simply delete the duplicate row, whichever is easier.
I am trying to combine sorted data from 2 worksheets to a new work sheet to process further. I have one worksheet with order number, part number, order qty but with different delivery dates. On another worksheet, I have the order number too, part number, the qty delivered. The qty delivered is not always the same each delivery.
My aim is to find out how many are already delivered under a certain purchase order and the balance of undelivered parts.
I used pivot tables to sort out the data but I am stuck here not knowing how to extra the sorted data from the pivot tables to the 3rd worksheet. I will need to match the order number and the part number.
I've got a macro that combines multiple worksheets and workbooks. Just a minor problem, the very last row of each worksheet is being deleted, and I can't seem to pinpoint the cause of the problem.
'This will copy data from all sheets of the selected workbooks 'To a sheet named 'Data' in the sheet in which the macro is run from
Dim pasterow As String mainsheetname = ActiveWorkbook.Name MsgBox ("Please select spreadsheets to combine") filestoopen = Application. GetOpenFilename(MultiSelect:=True) responseval = MsgBox("Do you want to leave the combined spreadsheets open?", vbYesNo) Worksheets("Data").Select Range("A1").Select 'open workbooks For Each w In filestoopen...................
I need a macro that would consolidate all data in multiple worksheets of multiple workbooks in one Master file.
All the workbooks will be in one particular folder. The macro should search for data in all the workbooks and consolidate it in one master excel workbook.
I am currently using both excel 2007 and excel 2010. This macro would really reduce manual work as currently consolidating data from 45 to 50 sheets takes an ample amount of time...
I have read all the rules, and the guidelines for writting a thread title, and can only hope that my title meets those criteria (Dave, if they do not please do not ban me). I am fairly new to VBA, I have been able to edit other peoples code, and have created a few macros myself, and although I think I know how to use a loop and arrays, I sometimes lack some of the basics, this may be one such case. That said here is the problem I am facing.
I am creating a database, and as such I am sent several workbooks, with each workbook containning several worksheets. Within these workbooks, the naming convention of the worksheets is consistent, though each workbook may contain different number of worksheets. (the name of the worksheets represents a specific size/format).
What I have is a "Setup sheet" that I would like populated with all the data from specific worksheets in the various workbooks. So I would need to be able to get the macro to check all the workbooks, and if it finds a worksheet entitled "Sheet B" (for example) that it copies all that data into the "Setup sheet", and progresses onto the next workbook. I have the loop working and am fairly confident on this side of things, though where I am struggling is getting the Macro to know what worksheet to look at when going through the workbooks.
I need the macro to be fairly dynamic in which Worksheet it looks at so I don't want to simply hardcode the Worksheet name into the macro, rather I would like to be able to specify the worksheet name based on a cell value in the "Setup sheet". so going back to my earlier example if the cell value in the "Setup sheet" = "Sheet B" then the macro should get data from the worksheets entitled "SheetB" in the workbooks, if the cell value in the "Setup sheet" = "Sheet F" then the macro should get data from the worksheets entitled "Sheet F".
I have a file with a roughly 20 workbooks. I need to split the data in each workbook into two sheets, rename each sheet, then export the data to template with multiple sheets. After splitting the data into the appropriate sheets in the original workbook, Sheet1 in has only 1 row (plus header) and needs to be transferred to "Project Entry" in the template; Sheet2 can have any number of rows (less than 100) and needs to be transferred to "Activity Entry" in the template. I need to save the template based on the value of cell A1 on "Project Entry" sheet of the template. The organization of the columns in the original workbooks is different than that of the template, so this is not a straight copy and paste operation. The cell formatting in the template must be retained.
I have half of this under wraps. I've cobbled together some code that splits the original data where I need it split, copies it to new sheets and saves the files. I now need to figure out out to get it out of this saved file and into the template.
The crosswalk of values between the original data (Sheet1) and the template(Project Entry) needs to look like the below. So, variable 1 exists in column B of the original and needs to populate column B of the template, and column Q in the original needs to populate column G in the template. The variables and column relationships are different for Sheet2/Activity Entry.
I have about 20 workbooks with different file names for different projects all saved in the same folder. Each workbook has about 10 worksheets and each worksheet is named in a similar fashion in each of the 20 workbooks (eg. revenue, cost, variance etc.). I want to pull out a worksheet named ' forecast' from each workbook into a master workbook so that the master workbook would contain the 20 forecast worksheets.
I am trying to combine multiple workbooks together. I have some code that works great except I only want it to combine one sheet from each workbook. The workbooks are identical they just hold different data. Each book contains 8 worksheets and I want to copy only data from "Container Info"
Code: Option Explicit Sub CombineSheetsFromAllFilesInADirectory() Dim Path As String
I need to update my Workbook to do something more. I have a Workbook that contains multiple Worksheets that contain a list of items that need to be inspected with a schedule date. What I want to do is consolidate all the items that have not been inspected and put it on one Worksheet within the same Workbook. Unfortunately I can't attach my Workbook so you can see what I'm talking about. Each Worksheet has these five columns and every inspection still required to be conducted only has the CSEC, Schedule Inspection Date, and Remarks Columns filled out. I would like to scan all Worksheets to copy this data and consolidate it into a seperate Worksheet so I can print only one Worksheet as my report vice over fifty.
CSEC# | Scheduled Inspection Date | Date inspection was performed | Inspection Pass/Fail | Remarks
I have a set of excel files that I need to combine into one worksheet. The files have the same number of rows but the number of column will vary. The combined worksheet needs to have the data from each workbook appended to the last column.
I have this master file with a list of workbook names in column A on a tab called, conveniently, List. I have saved the master file in the same folder as a number of workbooks where their names match the names on the List.
What I want to do is open the files on the List and copy and move the worksheets to a new workboook. The catch for this is the following (I will use an example):
1. I have 2 workbooks called DS-100 Medicine Admin and DS-101 Medicine Wards 2. I want to take the worksheets from DS-100 and add them in a new workbook 3. Then I want to take the worksheets from DS-101 and add them to the same workbook but AFTER the DS-100 worksheets that were added in step 2 4. Then save this workbook to a folder within the original folder where the files are saved
I have the below code thus far, which opens the DS-100 workbook and copies and moves the worksheets to a new workbook. It doesn't open the DS-101 workbook though. It also saves the new workbook in My Documents rather then the SavePath.
Sub CombineMedicine() Dim Path As String 'string variable to hold path to look through Dim FileName As String 'temporary file name variable Dim Master As Workbook 'this workbook Dim rng As Range
I am trying to combine ~300 workbooks into one single workbook. All 300 workbooks have the exact same header. I tried using the code from thread http://www.excelforum.com/showthread.php?p=696435 but nothing is being copied over. The only difference between my example and the other is I only need to take data from the first sheet in each data workbook. All the workbooks are located in following directory .....
I am trying to do is to combine multiple sheets from multiple workbooks if in the created parameters table it has a 'y' next to it. (So you can specify which workbooks to copy from and which worksheets to copy from) - please see example file to get a better understanding.
Example file: Master
What I have is a parameters table which defines which workbook/worksheet to look in (please see attachment) on the 'parameters' worksheet.
I also have a 'raw data' worksheet within the same workbook where I want the combined data to go.
File a.xls/b.xls/c.xls etc
Theses are the workbooks where all the data is held which I want to combine, each workbook is the same, just different 'data'. - they are all in the same path too.
In the first column in the parameters table I have the available workbooks: a.xls b.xls c.xls etc and next to it a 'y' or 'n' - 'y' if I want to copy data from that workbook or a 'n' if I don’t.
In the second column in the parameters table I have the available worksheets: sheet1 sheet2 sheet3 etc and next to it a 'y' or 'n' - 'y' if I want to copy data from that worksheet or a 'n' if I don’t.
In the attached example I have code which loops through each file a,b,c dependent whether it has a y/n next to it but I need some code to get it to copy data from the specified sheets in the second column (if it has a Y next to it) in the parameters table to the raw data worksheet in the master workbook with the filename of where the data came from in column A (eg A.xls).
I am trying to combine data from multiple worksheets and make a chart. I have about 200 keywords in every worksheet (about 50), and some of them repeat themselves through worksheets and some don't. For every keyword, I have an associated value in the next column that I want to portray over time (each worksheet is for a different period).
So what I need to figure out is how to be able to pick any 10 keywords from the worksheets and put them in a line chart where I can see the associated value for each period for every worksheet so I can compare my keywords' efficiency. The tricky part is that some worksheets do not contain the keyword and other worksheets contain the keyword in a different cell than the previous wsheet.
I have three workbooks. Every workbook has 50 persons IT information. Those are CPU list, Monitor list, UPS list. I would like to create another workbook. Where all user's IT information will be available. Like X user's information required, under x information his CPU, monitor and UPS information link will be available. How to create link of the CPU, UPS monitor sheets with new workbook?
I need to transfer a lot of data from many worksheets into one worksheet. The columns are all uniform, but the rows are not. I’d like some VBA code that would look at worksheet A(1) and copy the first entire row where column A is not blank and paste it to the first blank row in another worksheet titled “A(Combined)”. The code would then copy the second blank row in A(1) and paste it into the next blank row of “A(Combined)”. The code would continue until all rows with data in column A are transferred to “A(Combined)” and then proceed to worksheet A(2), etc. and do the same. See the attached workbook
I'm trying to search through multiple worksheets (that are closed) to see if a value in cell B12 (of every worksheet) matches a value in a seperate worksheet (which is in a seperate workbook)
Is it possible too do this if they are on the same computer. Lets say I want all the data on page3 in one workbook, data on page2 in another and have it show up in another workbook. If this can be done can it delete cell entry that match?
I'm currently doing a survey using an excel workbook that contains multiple questions across multiple worksheets using radio buttons linked to certain cells.
I have around 400 workbooks coming back to me, so what i want to do is take specific values from across many worksheets within each workbook and combine them into a large master table in a seperate workbook.
I've tried using VBA, but not being very proficient at it i've hit a brick wall with that, so i'm hoping that there is an easier way to do it than what i'm currently pursuing.
The files are named: File1.xls File2.xls File3.xls
....and so on; the number of files varies. I am trying to write a macro, to combine all *.xls files in one workbook having each file as a separate worksheet.
I have about 30 Excel files, each with multiple tabs. Each file has a tab called "Invoice." I would like to create one workbook with all 30 Invoice tabs. As of not I am manually copying and pasting, which takes a while. There has to be an easier way, and I found this VB script to combine entire workbooks.
Is there any way I can run this and get just that Invoice tab and not all tabs on all files?
Sub GetSheets() Path = "C:UsersdtDesktopdt kte" Filename = Dir(Path & "*.xls") Do While Filename <> "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub
I have one workbook with 6 worksheets, each sheet has a table with the same headings, different data, each sheet is named south, east,erie central south & west, how can i pull them all into one summary sheet? and have it constantly update? using the = and referencing each sheet won't work as they will grow and overlap each other?
I have groups of folders that I need to extract "Sheet2" from each workbook and assemble them into one workbook. Along the way I want to rename the sheets to the file name (-xls). I have assembled this code so far but it is broken
Code:
Sub CombineSheets() Dim sPath As String Dim sFname As String Dim wBk As Workbook Dim wSht As Variant
