Thank you for wonderful video! But how we can process if we want collated file from specific sheet from all active workbook. Can you please assist?

Hi - What adjustment can be made if I want to transfer only specific sheets from various workbooks. Example I have 5 workbooks and I want to combine all sheets named "2" in those workbooks to one file. Thank you

Thank you for this! My code finally worked! 😭

Hi Anand sir, When the macro is completed the macro updating shee1 2, 3 and so on. How it can be made as file names as sheet name. The same question some one had asked long back, the reason is, in the video the file name has been updated in the sheet name. When we perform the same process the sheet name is not updating. Please help us to correct it.

Thanks again

Thank you

Nice

Very informative and clearly explained. Thank you very much..🙂 How can we consolidate that entire data into single sheet ?

How to arrange the sheets in consolidated sheet the way we want?

What if I dont want it to appear in multiple sheets? I need a data in 1 sheet combined from all sheets, this isnt useful then.

Hi Ajay, Thanks for the video its useful. Could you please tell - How we can change the name of all copied sheets as the name of file or workbook name i.e. "Sheet (1)" "Sheet(2)" etc. to Co. A, Co. B .....

Hi Ajay Anand. Thanks for this upload. I am just starting out with VBA and this macro is beyond anything I could have done myself. However, I noticed in the line "Sheet.Copy After:=ThisWorkbook.Sheets(1)", this adds each sheet after the first, and so the sheet order is reversed. To maintain the order of sheets, I have altered the above code to: "Sheet.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)".

Nice sir

Hi . I want all the data to copy in one sheet it self. For instance: i have 10 workbook and each workbook has data in two sheets. So macro should copy the sheet 1 and past in sheet 1 and the data which is in sheet 2 should copy past in sheet 2. This has to been done for all the 10 work books. Request you to respond. Thanks in advance

Hello, hello ! Who is the CHAMP again !!😊😊😊😘😘😘

Your video it is good, but very fast to watch! Please explain slowly! Thanks a lot for your ideas!

If you give the code on description it will use to us

I have done everything and no error showing.. stil it's not working

Somehow its not working for me here is code which I copied Error is - Can't Execute Code In Break Mode , What Mistake I made here Sub CombineWorkBooks2() Dim FName As String, FPath As String Dim Sheet As Worksheet Dim FDialog As FileDialog Set FDialog = Application.FileDialog(msoFileDialogFilePicker) If FDialog.Show = -1 Then Worksheets("Combine Sheets").Cells(2, 2).Value = FDialog.SelectedItems(1) End If Application.ScreenUpdating = False FPath = Worksheets("Combine Sheets").Cells(2, 2).Value FName = Dir(FPath & "\*.xls*") Do While Name "" Workbooks.Open Filename:=FPath & "\" & Name, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Next Sheet Workbooks(FName).Close FName = Dir() Loop Application.ScreenUpdating = True End Sub