Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
copying full worksheets
How can I copy a worksheets a number of times. User input as to the number
of worksheets to be created and copy sheet1 that number of times. Thanks in advance. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
copying full worksheets
Try the below
Sub Macro1() intCount = 5 For intTemp = 1 To intCount Sheets("asd a").Copy After:=Sheets("asd a") Next End Sub If this post helps click Yes --------------- Jacob Skaria "Jerry" wrote: How can I copy a worksheets a number of times. User input as to the number of worksheets to be created and copy sheet1 that number of times. Thanks in advance. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
copying full worksheets
Hi
Try this: Sub CopySheets() Dim ShToCopy Dim NumOfCopies As Long Set ShToCopy = Worksheets("Sheet1") 'Change sheet name as required NumOfCopies = InputBox("How many copies of the worksheet do you need?") For sh = 1 To NumOfCopies ShToCopy.Copy after:=Worksheets(Worksheets.Count) Next End Sub Regards, Per "Jerry" skrev i meddelelsen ... How can I copy a worksheets a number of times. User input as to the number of worksheets to be created and copy sheet1 that number of times. Thanks in advance. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
copying full worksheets
Note that when copying worksheets you can hit an error as described here...
http://support.microsoft.com/default...84&Product=xlw -- HTH... Jim Thomlinson "Per Jessen" wrote: Hi Try this: Sub CopySheets() Dim ShToCopy Dim NumOfCopies As Long Set ShToCopy = Worksheets("Sheet1") 'Change sheet name as required NumOfCopies = InputBox("How many copies of the worksheet do you need?") For sh = 1 To NumOfCopies ShToCopy.Copy after:=Worksheets(Worksheets.Count) Next End Sub Regards, Per "Jerry" skrev i meddelelsen ... How can I copy a worksheets a number of times. User input as to the number of worksheets to be created and copy sheet1 that number of times. Thanks in advance. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copying worksheets | Excel Discussion (Misc queries) | |||
Copying Full Workbooks | Excel Discussion (Misc queries) | |||
how to auto populate full worksheets | New Users to Excel | |||
Copying worksheets in VBA | Excel Programming | |||
Copying Worksheets | Excel Programming |