Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sort data from every workbook in a folder into sheets in another?
I have a workbook named RetailClientTemplate which contains sheets named by
locale abbreviation (EN, ES, DE, IT, etc.). I have workbooks named RetailProjectLog_DATE generated each day that are saved into a specific folder location. Each row in each RPL workbook has a locale in column A that matches the name of one of the sheets in the RCT workbook. What I need to do is make a macro that will copy & paste the rest of the data from each row in each of the RPL books (sheet1, range B4:Q200, and col P data separately) in the specified folder into the corresponding sheet for each locale in the RCT workbook (row by row, starting at A12:P12, and data from col P in RPL into col Y in RCT). How can this be done? And is it possible to do it without visibly opening each of the RPL workbooks top copy the data from them? Please help. The boss is really breathing down my neck on this one and I can't figure it out! Thank you! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sort data from every workbook in a folder into sheets in another?
Yo ucan get data out of a workbook without opening each workbook but that is much harder to write that code and since you boss is breathinhg down your neck I would recommend the code below. Changge the folder name in the Code below. The code is taking every file in the Folder named "RetailProjectLog*.xls" and ignoring the date. I would have to mdofiy the code if you are looking for a particular date. Sub UpdateRCTBks() Folder = "c:\temp\" FName = Dir(Folder & "RetailProjectLog*.xls") Do While FName < "" Set RPLbk = Workbooks.Open(Filename:=Folder & FName) Set RPLSht = RPLbk.Sheets("Sheet1") LastRow = RPLSht.Range("A" & Rows.Count).End(xlUp).Row For RowCount = 4 To LastRow Locale = RPLSht.Range("A" & RowCount) Set DestSht = ThisWorkbook.Sheets(Locale) With DestSht LastRow = .Range("A" & Rows.Count).End(xlUp).Row NewRow = LastRow + 1 If NewRow < 12 Then NewRow = 12 End If End With RPLSht.Range("B" & RowCount & ":Q" & RowCount).Copy DestSht.Range("A" & NewRow).PasteSpeial _ Paste:=xlPasteValues RPLSht.Range("P" & RowCount).Copy DestSht.Range("Y" & NewRow).PasteSpeial _ Paste:=xlPasteValues Next RowCount RPLbk.Close savechanges:=True FName = Dir() Loop End Sub -- joel ------------------------------------------------------------------------ joel's Profile: 229 View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=190719 http://www.thecodecage.com/forumz |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can you create a folder in Excel workbook to hold related sheets? | Excel Discussion (Misc queries) | |||
copy&paste of several sheets in a folder to a workbook with somesh | Excel Programming | |||
Open and copy all workbook sheets in a folder to a master file | Excel Discussion (Misc queries) | |||
how can I sort sheets within a workbook in excel | Excel Worksheet Functions | |||
Sort to Various Sheets in Workbook | Excel Programming |