Macros to copy the data from multiple sheet

[Suresh Manriaj]

Hi,

I have excel with multiple tabs, but I need the data from J4 to S4 from each tab by creating new tab in the same excel file (consolidated).

Plese help me.

Regards,
Suresh

 

[My Aswer Is This]

So you want to create a new Worksheet named "New" and then:

I need the data from J4 to S4 of every sheet in the workbook and put it where on sheet named New?


​

 

[Michael M]

So, assuming the main sheet is called "Master"
AND
you want the data pasted in col J to S in the "master"...try this

Sub MM1()
Dim sh As Worksheet
    For Each sh In Worksheets
        If sh.Name <> "Master" Then
            sh.Range("J4:S4").Copy Sheets("Master").Range("J" & Cells(Rows.Count, "J").End(xlUp).Row + 1)
        End If
    Next
End Sub

 

[Suresh Manriaj]

Hi Michale,


Thank you for your quick reply.

Let me explain from the start.
Help 1.
I have folder with multiple excel files like (mentionedbelow). These file I need to combine into one excel file called as"Consolidated".
900491_IU_KFZ-H-XL_1981(002).xlsx
900491_IU_KFZ-H-XL_1982.xlsx
900491_IU_KFZ-H-XL_1991.xlsx and many

Help 2.
Once all the files tabs been into single"Consolidated" excel sheet. From that "Consolidated" fileeach tab J4 to S4 specific data need to pulled into new tab in the same"Consolidated" excel file.