Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 10
Default Create a copy - Worksheet

Dear All,

I want to create more than 25 copy of the worksheet along with same data.
Most of the time i used (Right click) the sheet--Move or copy--create copy.
do the same 25 times.
Is there any possible to cretae that much sheets in a single program..?

Thanks in advance for your reply.

Have a Nice day..!
Regards,
Vadhimoo.
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 11,501
Default Create a copy - Worksheet

You could try this way:-

Sub copysheets()
For copies = 1 To 25
Sheets("Sheet1").Copy After:=Sheets(1)
Next
End Sub

Alter the sheet name to suit

Mike

"Vadhimoo" wrote:

Dear All,

I want to create more than 25 copy of the worksheet along with same data.
Most of the time i used (Right click) the sheet--Move or copy--create copy.
do the same 25 times.
Is there any possible to cretae that much sheets in a single program..?

Thanks in advance for your reply.

Have a Nice day..!
Regards,
Vadhimoo.

  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 857
Default Create a copy - Worksheet

Hi Vadhimoo,

Here's one way:

Sub test()
Dim i As Integer

For i = 1 To 25
Sheets("Sheet1").Copy after:=Sheets(Sheets.Count)
Next

End Sub


--
Hope that helps.

Vergel Adriano


"Vadhimoo" wrote:

Dear All,

I want to create more than 25 copy of the worksheet along with same data.
Most of the time i used (Right click) the sheet--Move or copy--create copy.
do the same 25 times.
Is there any possible to cretae that much sheets in a single program..?

Thanks in advance for your reply.

Have a Nice day..!
Regards,
Vadhimoo.

  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 10
Default Create a copy - Worksheet

Dear Mike,Vergel

Thanks for your help, its working well.

"Mike H" wrote:

You could try this way:-

Sub copysheets()
For copies = 1 To 25
Sheets("Sheet1").Copy After:=Sheets(1)
Next
End Sub

Alter the sheet name to suit

Mike

"Vadhimoo" wrote:

Dear All,

I want to create more than 25 copy of the worksheet along with same data.
Most of the time i used (Right click) the sheet--Move or copy--create copy.
do the same 25 times.
Is there any possible to cretae that much sheets in a single program..?

Thanks in advance for your reply.

Have a Nice day..!
Regards,
Vadhimoo.

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Copy a cell from another worksheet and create a line wrap Vic Excel Discussion (Misc queries) 1 April 9th 09 01:55 PM
Dynamicaly create/copy a new row in another worksheet phocused Excel Worksheet Functions 0 January 5th 07 03:43 PM
create a macro to copy a worksheet into another Sean Excel Discussion (Misc queries) 7 October 18th 06 10:19 PM
Why does excel create a copy of the worksheet i open Renee Excel Discussion (Misc queries) 4 March 2nd 05 06:17 PM
Create Copy of Current Worksheet Birdy92 Excel Programming 1 January 14th 04 03:36 AM


All times are GMT +1. The time now is 07:42 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"