Paste 10 or more worksheets data in a single worksheet

Closed
mahfuz19 Posts 4 Registration date Sunday November 10, 2013 Status Member Last seen February 16, 2014 - Dec 28, 2013 at 12:01 PM
mahfuz19 Posts 4 Registration date Sunday November 10, 2013 Status Member Last seen February 16, 2014 - Dec 31, 2013 at 10:40 AM
I want paste 10 or more worksheets data in a single worksheet by using formula, is it possible??

Thanks in advance

Mahfuz

2 responses

Honey85209 Posts 7 Registration date Thursday December 26, 2013 Status Member Last seen January 5, 2014
Dec 29, 2013 at 09:40 AM
hi,
The below code pulls the data from the all the sheets and it will paste it different sheet called summary which you need to rename to one of the tab

Sub SummurizeSheets()
Dim ws As Worksheet
Application.ScreenUpdating = False
Sheets("Summary").Activate
Sheets("Summary").UsedRange.Clear
For Each ws In Worksheets
If ws.Name <> "Summary" Then
ws.UsedRange.Copy
ActiveSheet.Paste Range("A65536").End(xlUp).Offset(1, 0)
End If
Next ws
End Sub
0
mahfuz19 Posts 4 Registration date Sunday November 10, 2013 Status Member Last seen February 16, 2014
Dec 31, 2013 at 10:40 AM
Thanks a lot Honey85209. Is it possible in excel formula as i m not used to in VBA Macro.

Regards
Mahfuz
0