Thank You Daniel. I really appreciate it. On Sun, Jul 31, 2011 at 10:52 AM, Daniel <dcolarde...@free.fr> wrote:
> Open the workbook where the results are to be copied in. The macro adds > maps and shipment sheets so there should be no such sheets in the workbook. > Press the Alt+F11 keys, this opens the VB Editor window. Now, keep in mind > that I use a French version of Excel, so the words I use may not be Exactly > those of an English version. In the left part of the window, look for a > project that has the same name as your workbook. Click on it; click on the > “Insert” menu, then click on “Module”. Paste the below macro in the right > part of the screen and you are done !**** > > Now, running the macro depends of your version of Excel; the simplest way > to do it is to click into the macro and press the F5 key. Please, tell which > version you use and I tell you how to run it from the Excel window.**** > > ** ** > > Sub Consolidate()**** > > 'this macro should be placed in the result workbook**** > > Dim inCalculationMode As Integer**** > > Application.ScreenUpdating = False**** > > inCalculationMode = Application.Calculation**** > > Application.Calculation = xlCalculationManual**** > > Const strPath As String = _**** > > "C:\Users\Daniel\Documents\Donnees\Daniel\mpfe\" 'change the path* > *** > > Dim strFile As String, shMaps As Worksheet, shShipment As Worksheet*** > * > > Dim arrSheets**** > > arrSheets = Array("maps", "shipment")**** > > Sheets.Add.Name = "maps"**** > > Sheets.Add.Name = "shipment"**** > > 'guess headers are in row 1**** > > 'guess all columns are equal length**** > > 'guess there is data in column A**** > > strFile = Dir(strPath & "*.xls*")**** > > Do While strFile <> ""**** > > Workbooks.Open strPath & strFile**** > > For Each sh In arrSheets**** > > With Sheets(sh)**** > > If ThisWorkbook.Sheets(sh).Range("A1") = "" Then**** > > .Range(.[A1], .Cells(Rows.Count, > 1).End(xlUp)).EntireRow.Copy**** > > **** > > ThisWorkbook.Sheets(sh).Range("A1").PasteSpecial > xlPasteValues**** > > Else**** > > .Range(.[A2], .Cells(Rows.Count, > 1).End(xlUp)).EntireRow.Copy**** > > ThisWorkbook.Sheets(sh).Cells(Rows.Count, > 1).End(xlUp).Offset(1).PasteSpecial xlPasteValues**** > > End If**** > > End With**** > > Next sh**** > > ActiveWorkbook.Close False**** > > strFile = Dir**** > > Loop**** > > Application.Calculation = inCalculationMode**** > > Application.ScreenUpdating = True**** > > End Sub**** > > ** ** > > Regards.**** > > ** ** > > Daniel**** > > ** ** > > *De :* excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] > *De la part de* Sara Lee > *Envoyé :* dimanche 31 juillet 2011 14:03 > *À :* excel-macros@googlegroups.com > *Objet :* Re: $$Excel-Macros$$ urgent macro required pls**** > > ** ** > > i would like to add rows of respective sheets to be added below one > another. i have never run a macro. Can you please give step by step > instruction.**** > > On Sun, Jul 31, 2011 at 5:27 AM, Daniel <dcolarde...@free.fr> wrote:**** > > Hi, > > Do you want to add the rows of each sheet below the preceding ones, or do > you intend to consolidate the sheets like you'll do it with Data, > Consolidate menus ? > > Regards. > > Daniel > > -----Message d'origine----- > De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] > De > la part de lee > Envoyé : samedi 30 juillet 2011 19:56 > À : MS EXCEL AND VBA MACROS > Objet : $$Excel-Macros$$ urgent macro required pls**** > > > hello > > i have 15 files in one folder. i need to combine two sheets called as maps > and shipment of all the 15 files into one consolidated file with > 2 sheets( with respective data). Structure and columns are same in sheets > for all the files. > > Can you pls give a macro.. also can you please let m e know on how to run > the macro.... i never ran it.. like do i have to open the first spreadsheet > while running macro > > thanks > > -- > > ---------------------------------------------------------------------------- > ------ > Some important links for excel users: > 1. Follow us on TWITTER for tips tricks and links : > http://twitter.com/exceldailytip 2. Join our LinkedIN group @ > http://www.linkedin.com/groups?gid=1871310 > 3. Excel tutorials at http://www.excel-macros.blogspot.com > 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and > Tricks at http://exceldailytip.blogspot.com > > To post to this group, send email to excel-macros@googlegroups.com > > <><><><><><><><><><><><><><><><><><><><><><> > Like our page on facebook , Just follow below link > http://www.facebook.com/discussexcel > > -- > > ---------------------------------------------------------------------------------- > Some important links for excel users: > 1. Follow us on TWITTER for tips tricks and links : > http://twitter.com/exceldailytip > 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 > 3. Excel tutorials at http://www.excel-macros.blogspot.com > 4. Learn VBA Macros at http://www.quickvba.blogspot.com > 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com > > To post to this group, send email to excel-macros@googlegroups.com > > <><><><><><><><><><><><><><><><><><><><><><> > Like our page on facebook , Just follow below link > http://www.facebook.com/discussexcel**** > > ** ** > > -- > > ---------------------------------------------------------------------------------- > > Some important links for excel users: > 1. Follow us on TWITTER for tips tricks and links : > http://twitter.com/exceldailytip > 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 > 3. Excel tutorials at http://www.excel-macros.blogspot.com > 4. Learn VBA Macros at http://www.quickvba.blogspot.com > 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com > > To post to this group, send email to excel-macros@googlegroups.com > > <><><><><><><><><><><><><><><><><><><><><><> > Like our page on facebook , Just follow below link > http://www.facebook.com/discussexcel**** > > -- > > ---------------------------------------------------------------------------------- > Some important links for excel users: > 1. Follow us on TWITTER for tips tricks and links : > http://twitter.com/exceldailytip > 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 > 3. Excel tutorials at http://www.excel-macros.blogspot.com > 4. Learn VBA Macros at http://www.quickvba.blogspot.com > 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com > > To post to this group, send email to excel-macros@googlegroups.com > > <><><><><><><><><><><><><><><><><><><><><><> > Like our page on facebook , Just follow below link > http://www.facebook.com/discussexcel > -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel