Stacking Data/Combining Sheets

Prometheus_au

New Member
Joined
Jan 26, 2005
Messages
12
G'day all,

New to all this so go easy on me!
I have an Excel Workbook with 50 sheets. I'd like to "stack" (I think thats the right term) data from each sheet into one. Luckily the data is always in the same place on each sheet (B6:F30).

Is there a way to achieve this?

Thanks all....
 

Excel Facts

How to create a cell-sized chart?
Tiny charts, called Sparklines, were added to Excel 2010. Look for Sparklines on the Insert tab.

parry

MrExcel MVP
Joined
Aug 20, 2002
Messages
3,355
Presuming your wanting to copy to a new sheet pasting into cell A1 downwards then this is hopefully what you want.

Code:
Sub CopyData()
Dim NewSh As Worksheet, Sh As Worksheet, NxtRow As Long

'Create a new sheet to store the combined details
Set NewSh = ThisWorkbook.Sheets.Add
NewSh.Name = "CombinedData_" & Format(Date, "DDMMYYYY")

For Each Sh In ThisWorkbook.Sheets
If Sh.Name <> NewSh.Name Then
    If NxtRow < 1 Then
        NxtRow = 1
    Else
        NxtRow = NewSh.Range("A65536").End(xlUp).Row + 1
    End If
    Sh.Range("B6:F30").Copy NewSh.Cells(NxtRow, 1)
End If
Next Sh

End Sub
 

Forum statistics

Threads
1,181,813
Messages
5,932,198
Members
436,823
Latest member
kailose

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top