Hi,
I have the following code. I have worksheets in almost same format except for a month where a new column is added.
- I am using the following macro to copy each column of data from each worksheet in the workbook starting at column D into a newly created summary worksheet
- I have just tried it for couple of columns in the code but not getting the columns copied over for all the worksheets. Can you please help me to tweak this so this copy same column from all worksheets in the workbook and stack these beside each other so column D from sheet1 should be pasted beside column D from Sheet2
Sub Create_Summary()
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Summary").Delete
Application.DisplayAlerts = True
n = Application.Worksheets.Count
Sheets.Add.Name = "Summary"
Sheets("Summary").Move after:=Worksheets(Worksheets.Count)
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
If sh.Name <> "Summary" And sh.Name <> Sheets(n).Name Then
Set col = Columns(Columns.Count).End(xlToLeft)
sh.Range("D:D").Copy Destination:=Sheets("Summary").Range(col, col).Offset(0, 1)
End If
Next sh
Range("A:B").Insert Shift:=xlToRight
Sheets(n).Select
Range("F:F").Copy Destination:=Sheets("Summary").Range("A:A")
End SubI have also attached a sample worksheet containing just two months data:
Many thanks !!
Sophia