ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   Making a Sheet copy (https://www.excelbanter.com/excel-worksheet-functions/450033-making-sheet-copy.html)

[email protected]

Making a Sheet copy
 
Excel 2010. I have a sheet of data. I need to make 15 copies of this sheet.
Do I have to make one copy at a time, or is there a shortcut? Thanks

GS[_2_]

Making a Sheet copy
 
Excel 2010. I have a sheet of data. I need to make 15 copies of
this sheet. Do I have to make one copy at a time, or is there a
shortcut? Thanks


What do you mean? Copy to active workbook? New workbook? New workbook
for each copy?

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion



[email protected]

Making a Sheet copy
 
On Friday, April 25, 2014 5:22:31 PM UTC-4, wrote:
Excel 2010. I have a sheet of data. I need to make 15 copies of this sheet.

Do I have to make one copy at a time, or is there a shortcut? Thanks


In the same workbook, I need 15 copies of the original sheet. So when I an done, I have 16 sheets of the same data.

GS[_2_]

Making a Sheet copy
 
Put this macro in a standard module and Alt+F8 to run it.

Sub CopySheets()
Dim n&, wksSource As Worksheet
Const lCopies& = 15
Set wksSource = ActiveSheet
For n = 1 To lCopies
wksSource.Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
Next 'n
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion




All times are GMT +1. The time now is 11:57 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com