Macro that will create summary sheet

postjo

New Member
Joined
Dec 4, 2009
Messages
37
I have multiple sheets that are formatted exactly the same way. I need a macro that will take the range G1:L34 from each sheet and put them one on top of the other in a summary sheet. Thanks!
 

Some videos you may like

Excel Facts

Difference between two dates
Secret function! Use =DATEDIF(A2,B2,"Y")&" years"&=DATEDIF(A2,B2,"YM")&" months"&=DATEDIF(A2,B2,"MD")&" days"

VoG

Legend
Joined
Jun 19, 2002
Messages
63,650
This assumes that the summary sheet exists and is called Summary

Code:
Sub concat()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Summary" Then
        ws.Range("G1:L34").Copy Destination:=Sheets("Summary").Range("A" & Rows.Count).End(xlUp).Offset(1)
    End If
Next ws
End Sub
 

postjo

New Member
Joined
Dec 4, 2009
Messages
37
I inserted a sheet called "Summary" and ran the macro but nothing happens.
 

postjo

New Member
Joined
Dec 4, 2009
Messages
37
Hi the Macro almost works. However, since it copying formulas when its pastes the links are broken and it pastes as reference errors. Is there a way to modify the macro so that the links are not broken. Or, less ideally, to paste as values.

Thanks!
 

VoG

Legend
Joined
Jun 19, 2002
Messages
63,650
Try

Code:
Sub concat()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Summary" Then
        ws.Range("G1:L34").Copy
        Sheets("Summary").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
    End If
Next ws
End Sub
 

Watch MrExcel Video

Forum statistics

Threads
1,123,281
Messages
5,600,720
Members
414,401
Latest member
grenona2020

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