If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
HOW DO I DUPLICATE ONE SHEET MULTIPLE TIMES
How do i copy data from one sheet to another, to include the footer and
header. I created a log for work. I need 20 of them to be able to fit everyones name on it. I would like to have 20 separate sheets. Am I able to have 20 sheets in excel? Thank you. |
#2
|
|||
|
|||
HOW DO I DUPLICATE ONE SHEET MULTIPLE TIMES
Sub makeshts()
For i = 1 To 21 Sheets("Template").Copy After:=Sheets(i) Next i End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "LC" wrote in message ... How do i copy data from one sheet to another, to include the footer and header. I created a log for work. I need 20 of them to be able to fit everyones name on it. I would like to have 20 separate sheets. Am I able to have 20 sheets in excel? Thank you. |
#3
|
|||
|
|||
HOW DO I DUPLICATE ONE SHEET MULTIPLE TIMES
One method is to right click on the Tab of the worksheet you want to copy,
then select Move or Copy. When the Move or Copy box opens, check the "Create a Copy" box. You now have a new tab (that you should probably rename) and the worksheet has the same headers, footers, print area and data as the copied tab. You can easily put 20 tabs in a workbook. Good luck. "LC" wrote: How do i copy data from one sheet to another, to include the footer and header. I created a log for work. I need 20 of them to be able to fit everyones name on it. I would like to have 20 separate sheets. Am I able to have 20 sheets in excel? Thank you. |
#4
|
|||
|
|||
HOW DO I DUPLICATE ONE SHEET MULTIPLE TIMES
Easily done with a macro.
Sub CreateNameSheets() ' by Dave Peterson ' List your 20 names required in col A in a sheet: List ' Sub will copy sheets based on the sheet named as: Template ' and name the sheets accordingly Dim TemplateWks As Worksheet Dim ListWks As Worksheet Dim ListRng As Range Dim mycell As Range Set TemplateWks = Worksheets("Template") Set ListWks = Worksheets("list") With ListWks Set ListRng = .Range("a1", .Cells(.Rows.Count, "A").End(xlUp)) End With For Each mycell In ListRng.Cells TemplateWks.Copy After:=Worksheets(Worksheets.Count) On Error Resume Next ActiveSheet.Name = mycell.Value If Err.Number 0 Then MsgBox "Please fix: " & ActiveSheet.Name Err.Clear End If On Error GoTo 0 Next mycell End Sub Gord Dibben MS Excel MVP On Thu, 3 Jun 2010 14:46:37 -0700, LC wrote: How do i copy data from one sheet to another, to include the footer and header. I created a log for work. I need 20 of them to be able to fit everyones name on it. I would like to have 20 separate sheets. Am I able to have 20 sheets in excel? Thank you. |
Thread Tools | |
Display Modes | |
|
|