First of all, you probably shouldn't "make" us follow a specific technique to accomplish your goals. Simply explain what you want to accomplish, then allow us to recommend a solution. By that, I mean: I "combine" data from about 9 different sources. Each data source has between 1500 and 1,014,000 records (currently) depending on the type of transactions. Using "filters" to select and combine data by criteria would mean that EXCEL has to select and copy large amounts of data to the clipboard, then paste it to the appropriate location. All this moving to/from clipboard memory is time consuming. Plus, while the macro is running, if I should select something, or attempt to do something that utilizes the clipboard, the macro will fail. Instead, I use VBA to manage all of the data, then write it to the appropriate sheet. Using this technique, the screen doesn't flash between workbooks, the clipboard isn't utilized, and the program runs very quickly and accurately.
So, that being said, let's get some clarification on what you want to do: ---------------------------- I tried looking through your macros to see what you were trying to do, but I'm still not sure. There's a couple of things you COULD be doing. For instance, you could copy the data from each of the "input" sheets to the "master" sheet. Then, you might use your UserForm to select your "filter" criteria (like "Delhi") The macro would then copy all of the "Delhi" records to Sheet1 or Sheet2? If that is your goal, I might suggest instead of copying the worksheet to the current workbook, simply copy the data to the Master sheet instead. If you could send me (directly?) a larger sample file (more rows/columns) I'm sure I could put together a suggested set of macros quickly. Paul ----------------------------------------- “Do all the good you can, By all the means you can, In all the ways you can, In all the places you can, At all the times you can, To all the people you can, As long as ever you can.” - John Wesley ----------------------------------------- >________________________________ > From: Shivani Sachdeva <shivanisachdeva...@gmail.com> >To: excel-macros@googlegroups.com >Sent: Tuesday, August 12, 2014 2:12 AM >Subject: Re: $$Excel-Macros$$ Filter on name in all sheet than paste in Master >sheet > > > >Hello friends, >I am very happy that all user have very helping nature, Sorry I did not >explain all the situation. >I am trying to explain one by one. > >We are getting huge data for different different sector, My idea is to save >all Workbook in a folder. >After running that macro. Macro should load data one by one. > >In sample macro 3 workbook data is loaded in to Sheet (1),Sheet (2) and Sheet >(3). > >Now I want to filter, copy and paste from all sheet to master sheet for Delhi >sector. > > > >Thank you all in Advance. > > > > > > > > > > > > > > > > > > > >On Mon, Aug 11, 2014 at 6:44 PM, Satendra kumar <satendrakuma...@gmail.com> >wrote: > >Hi, >> >> >>Use this ?? >> >> >> >> >> >> >>Sub Collect_Data1() >>Dim fld As Folder >>Dim fl As File >>Dim k As Long >>Dim wkb As Workbook >>Dim i As Long >>Dim fso As New FileSystemObject >>Set fld = fso.GetFolder("C:\Users\satendra.kumar\Downloads\New folder\New >>folder") >>With Application >> .DisplayAlerts = False >> .Calculation = xlCalculationManual >> .EnableEvents = False >> .ScreenUpdating = False >>End With >>k = 2 >>For Each fl In fld.Files >> >> >> >> >> Workbooks.Open fl >> Set wkb = ActiveWorkbook >> i = ThisWorkbook.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row + 1 >> wkb.Sheets(1).Range("A2:AE" & wkb.Sheets(1).Cells(Rows.Count, >>"E").End(xlUp).Row).Copy ThisWorkbook.Sheets(1).Cells(i, 1) >> wkb.Close >>Next fl >>ThisWorkbook.Sheets(1).Columns.AutoFit >>With Application >> .DisplayAlerts = True >> .Calculation = xlCalculationAutomatic >> .EnableEvents = True >> .ScreenUpdating = True >>End With >>End Sub >> >> >> >> >>thanks >>satendra >> >> >> >>On Mon, Aug 11, 2014 at 5:26 PM, Shivani Sachdeva >><shivanisachdeva...@gmail.com> wrote: >> >>Hello Friends, >>>I am trying to filter all workbook and then paste into one. I am trying >>>retrieve all workbook in my current workbook. >>>That workbook are loaded in current workbook as Sheet1, sheet2 , sheet 3..... >>> >>>Now I want to make auto filter location wise into master sheet, Please help >>>me. >>> >>> -- >>>Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s >>>=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ >>>https://www.facebook.com/discussexcel >>> >>>FORUM RULES >>> >>>1) Use concise, accurate thread titles. Poor thread titles, like Please >>>Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will >>>not get quick attention or may not be answered. >>>2) Don't post a question in the thread of another member. >>>3) Don't post questions regarding breaking or bypassing any security measure. >>>4) Acknowledge the responses you receive, good or bad. >>>5) Jobs posting is not allowed. >>>6) Sharing copyrighted material and their links is not allowed. >>> >>>NOTE : Don't ever post confidential data in a workbook. Forum owners and >>>members are not responsible for any loss. >>>--- >>> You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. >>>To unsubscribe from this group and stop receiving emails from it, send an >>>email to excel-macros+unsubscr...@googlegroups.com. >>> >>>To post to this group, send email to excel-macros@googlegroups.com. >>>Visit this group at http://groups.google.com/group/excel-macros. >>>For more options, visit https://groups.google.com/d/optout. >>> >> >> >> >>-- >> >>Thanks & Regards >>Satendra Kumar >>-- >>Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s >>=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ >>https://www.facebook.com/discussexcel >> >>FORUM RULES >> >>1) Use concise, accurate thread titles. Poor thread titles, like Please Help, >>Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not >>get quick attention or may not be answered. >>2) Don't post a question in the thread of another member. >>3) Don't post questions regarding breaking or bypassing any security measure. >>4) Acknowledge the responses you receive, good or bad. >>5) Jobs posting is not allowed. >>6) Sharing copyrighted material and their links is not allowed. >> >>NOTE : Don't ever post confidential data in a workbook. Forum owners and >>members are not responsible for any loss. >>--- >>You received this message because you are subscribed to a topic in the Google >>Groups "MS EXCEL AND VBA MACROS" group. >>To unsubscribe from this topic, visit >>https://groups.google.com/d/topic/excel-macros/hX8lwv6xJ8o/unsubscribe. >>To unsubscribe from this group and all its topics, send an email to >>excel-macros+unsubscr...@googlegroups.com. >> >> >> >> >>To post to this group, send email to excel-macros@googlegroups.com. >>Visit this group at http://groups.google.com/group/excel-macros. >>For more options, visit https://groups.google.com/d/optout. >> > > >-- >Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s >=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ >https://www.facebook.com/discussexcel > >FORUM RULES > >1) Use concise, accurate thread titles. Poor thread titles, like Please Help, >Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get >quick attention or may not be answered. >2) Don't post a question in the thread of another member. >3) Don't post questions regarding breaking or bypassing any security measure. >4) Acknowledge the responses you receive, good or bad. >5) Jobs posting is not allowed. >6) Sharing copyrighted material and their links is not allowed. > >NOTE : Don't ever post confidential data in a workbook. Forum owners and >members are not responsible for any loss. >--- >You received this message because you are subscribed to the Google Groups "MS >EXCEL AND VBA MACROS" group. >To unsubscribe from this group and stop receiving emails from it, send an >email to excel-macros+unsubscr...@googlegroups.com. >To post to this group, send email to excel-macros@googlegroups.com. >Visit this group at http://groups.google.com/group/excel-macros. >For more options, visit https://groups.google.com/d/optout. > > > -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout.