| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combining Data from Multiple Worksheets into 1
Hello, I need some help. I have a survey that has one spreadsheet for each
customer. I also have a master excel spreadsheet that these need to roll up to. Does anyone have suggestions of how I can roll up just the data from these spreadsheets to the master spreadsheet. I am not sure that I want all the spreadsheets to actually roll into the master spreadsheet or just the data. I would love to be able to do this with a macro as this will be a frequent survey. Thanks in advance for your help. |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Combining Data from Multiple Worksheets into 1
Start here
http://www.rondebruin.nl/copy3.htm Try the add-in -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Mike Lewis" wrote in message ... Hello, I need some help. I have a survey that has one spreadsheet for each customer. I also have a master excel spreadsheet that these need to roll up to. Does anyone have suggestions of how I can roll up just the data from these spreadsheets to the master spreadsheet. I am not sure that I want all the spreadsheets to actually roll into the master spreadsheet or just the data. I would love to be able to do this with a macro as this will be a frequent survey. Thanks in advance for your help. |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Combining Data from Multiple Worksheets into 1
Hello,
I tried cutting and pasting, and I get an error that takes me back to the top with yellow. Here is what I cut and paste. Sub RDB_Merge_Data() turned yellow and Get_File_Names highlighted blue. Thoughts? Sub RDB_Merge_Data() Dim myFiles As Variant Dim myCountOfFiles As Long myCountOfFiles = Get_File_Names( _ MyPath:="C:\Documents and Settings\lewism11\Desktop\Survey Subfile", _ Subfolders:=False, _ ExtStr:="*.xls", _ myReturnedFiles:=myFiles) If myCountOfFiles = 0 Then MsgBox "No files that match the ExtStr in this folder" Exit Sub End If Get_Data _ FileNameInA:=True, _ PasteAsValues:=True, _ SourceShName:="", _ SourceShIndex:=1, _ SourceRng:="A1:G1", _ StartCell:="", _ myReturnedFiles:=myFiles End Sub "Ron de Bruin" wrote: Start here http://www.rondebruin.nl/copy3.htm Try the add-in -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Mike Lewis" wrote in message ... Hello, I need some help. I have a survey that has one spreadsheet for each customer. I also have a master excel spreadsheet that these need to roll up to. Does anyone have suggestions of how I can roll up just the data from these spreadsheets to the master spreadsheet. I am not sure that I want all the spreadsheets to actually roll into the master spreadsheet or just the data. I would love to be able to do this with a macro as this will be a frequent survey. Thanks in advance for your help. |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Combining Data from Multiple Worksheets into 1
Download the example workbook
-- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Mike Lewis" wrote in message ... Hello, I tried cutting and pasting, and I get an error that takes me back to the top with yellow. Here is what I cut and paste. Sub RDB_Merge_Data() turned yellow and Get_File_Names highlighted blue. Thoughts? Sub RDB_Merge_Data() Dim myFiles As Variant Dim myCountOfFiles As Long myCountOfFiles = Get_File_Names( _ MyPath:="C:\Documents and Settings\lewism11\Desktop\Survey Subfile", _ Subfolders:=False, _ ExtStr:="*.xls", _ myReturnedFiles:=myFiles) If myCountOfFiles = 0 Then MsgBox "No files that match the ExtStr in this folder" Exit Sub End If Get_Data _ FileNameInA:=True, _ PasteAsValues:=True, _ SourceShName:="", _ SourceShIndex:=1, _ SourceRng:="A1:G1", _ StartCell:="", _ myReturnedFiles:=myFiles End Sub "Ron de Bruin" wrote: Start here http://www.rondebruin.nl/copy3.htm Try the add-in -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Mike Lewis" wrote in message ... Hello, I need some help. I have a survey that has one spreadsheet for each customer. I also have a master excel spreadsheet that these need to roll up to. Does anyone have suggestions of how I can roll up just the data from these spreadsheets to the master spreadsheet. I am not sure that I want all the spreadsheets to actually roll into the master spreadsheet or just the data. I would love to be able to do this with a macro as this will be a frequent survey. Thanks in advance for your help. |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Combining Data from Multiple Worksheets into 1
Got it.....Now, one last question. The section below....
'Add a new workbook with one sheet Set BaseWks = Workbooks.Add(xlWBATWorksheet).Worksheets(1) Cnum = 1 Can you add the sheet to an existing workbook instead of a new workbook? "Ron de Bruin" wrote: Download the example workbook -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Mike Lewis" wrote in message ... Hello, I tried cutting and pasting, and I get an error that takes me back to the top with yellow. Here is what I cut and paste. Sub RDB_Merge_Data() turned yellow and Get_File_Names highlighted blue. Thoughts? Sub RDB_Merge_Data() Dim myFiles As Variant Dim myCountOfFiles As Long myCountOfFiles = Get_File_Names( _ MyPath:="C:\Documents and Settings\lewism11\Desktop\Survey Subfile", _ Subfolders:=False, _ ExtStr:="*.xls", _ myReturnedFiles:=myFiles) If myCountOfFiles = 0 Then MsgBox "No files that match the ExtStr in this folder" Exit Sub End If Get_Data _ FileNameInA:=True, _ PasteAsValues:=True, _ SourceShName:="", _ SourceShIndex:=1, _ SourceRng:="A1:G1", _ StartCell:="", _ myReturnedFiles:=myFiles End Sub "Ron de Bruin" wrote: Start here http://www.rondebruin.nl/copy3.htm Try the add-in -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Mike Lewis" wrote in message ... Hello, I need some help. I have a survey that has one spreadsheet for each customer. I also have a master excel spreadsheet that these need to roll up to. Does anyone have suggestions of how I can roll up just the data from these spreadsheets to the master spreadsheet. I am not sure that I want all the spreadsheets to actually roll into the master spreadsheet or just the data. I would love to be able to do this with a macro as this will be a frequent survey. Thanks in advance for your help. |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Combining Data from Multiple Worksheets into 1
Can you add the sheet to an existing workbook instead of a new workbook?
Yes Set BaseWks = Thisworkbook.Worksheets("Yourworksheet") -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Mike Lewis" wrote in message ... Got it.....Now, one last question. The section below.... 'Add a new workbook with one sheet Set BaseWks = Workbooks.Add(xlWBATWorksheet).Worksheets(1) Cnum = 1 Can you add the sheet to an existing workbook instead of a new workbook? "Ron de Bruin" wrote: Download the example workbook -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Mike Lewis" wrote in message ... Hello, I tried cutting and pasting, and I get an error that takes me back to the top with yellow. Here is what I cut and paste. Sub RDB_Merge_Data() turned yellow and Get_File_Names highlighted blue. Thoughts? Sub RDB_Merge_Data() Dim myFiles As Variant Dim myCountOfFiles As Long myCountOfFiles = Get_File_Names( _ MyPath:="C:\Documents and Settings\lewism11\Desktop\Survey Subfile", _ Subfolders:=False, _ ExtStr:="*.xls", _ myReturnedFiles:=myFiles) If myCountOfFiles = 0 Then MsgBox "No files that match the ExtStr in this folder" Exit Sub End If Get_Data _ FileNameInA:=True, _ PasteAsValues:=True, _ SourceShName:="", _ SourceShIndex:=1, _ SourceRng:="A1:G1", _ StartCell:="", _ myReturnedFiles:=myFiles End Sub "Ron de Bruin" wrote: Start here http://www.rondebruin.nl/copy3.htm Try the add-in -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Mike Lewis" wrote in message ... Hello, I need some help. I have a survey that has one spreadsheet for each customer. I also have a master excel spreadsheet that these need to roll up to. Does anyone have suggestions of how I can roll up just the data from these spreadsheets to the master spreadsheet. I am not sure that I want all the spreadsheets to actually roll into the master spreadsheet or just the data. I would love to be able to do this with a macro as this will be a frequent survey. Thanks in advance for your help. |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Combining Data from Multiple Worksheets into 1
If I use the add-in and want to sell the template then what? Does the add in
follow the template if someone else uses it? "Ron de Bruin" wrote: Start here http://www.rondebruin.nl/copy3.htm Try the add-in -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Mike Lewis" wrote in message ... Hello, I need some help. I have a survey that has one spreadsheet for each customer. I also have a master excel spreadsheet that these need to roll up to. Does anyone have suggestions of how I can roll up just the data from these spreadsheets to the master spreadsheet. I am not sure that I want all the spreadsheets to actually roll into the master spreadsheet or just the data. I would love to be able to do this with a macro as this will be a frequent survey. Thanks in advance for your help. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Combining data from multiple worksheets into one | Excel Discussion (Misc queries) | |||
| combining data from multiple worksheets into one | Excel Worksheet Functions | |||
| combining data multiple worksheets into one? | Excel Discussion (Misc queries) | |||
| Combining data from multiple worksheets. | Excel Discussion (Misc queries) | |||
| Combining data from multiple worksheets and separate spreadsheets | Excel Discussion (Misc queries) | |||
Hybrid Mode
