Need to create sheet in work book after every 2 miniutes

[amittheexcel]

Hi There,

I need to create excel tab after every 2 minutes as per sheet1 in workbook and rename them as per SR.no provided in sheet1 like below.

	SR.NO
	1
	2
	3
	4
	5
	6
	7
	8
	9
	10
	11
	12
	13
	14

<colgroup><col width="64" style="width:48pt"> </colgroup><tbody>
</tbody>

Regards,
Amit

 

[jim may]

With YOur Sheet NAMED -->> MAIN as follows: There should not be ANY OTHER SHEETS IN THE Workbook, only this one - MAIN

Opps -- Sorry After posting I just realized I forgot about the "Every 2 Minutes part" -- I'll get back to you later (on that revision).

Jim

Excel 2010

	A
1	SR.NO
2	1
3	2
4	3
5	4
6	5
7	6
8	7
9	8
10	9
11	10
12	11
13	12
14	13
15	14

<tbody>
</tbody>

Main​

Copy this Macro into a Standard Module. And then run Macro.

Sub CreateWorksheets()
Dim CurrSht As Worksheet
Range("A2").Select
i = 2
Application.ScreenUpdating = False
Do Until ActiveCell = ""
    Set CurrSht = Worksheets.Add(After:=Worksheets(Worksheets.Count))
    ActiveSheet.Name = "SR.NO " & Worksheets("Main").Cells(i, 1)
    Worksheets("Main").Activate
    ActiveCell.Offset(1).Select
    i = i + 1
Loop
Application.ScreenUpdating = True
End Sub

 

[jim may]

Here's the Line which should be inserted AFTER the existing line i = i + 1 and Before the line Loop.

Application.Wait Now + TimeValue("00:02:00")

ALSO, you might want to comment out (Using the " ' " (apostrophe)) the 2 lines dealing with Screenupdating -- "SO YOU CAN SEE THE PROGRESS BEING MADE".

Not 100% positive, but that should work.. We'll See LOL,,,,

Jim

 

[Yongle]

To test this
- create a NEW workbook with ONLY one sheet (Sheet1)
- place typical values in Sheet1

Put this in a STANDARD module and run the macro

Sub CreateSheet()
    Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = Sheets.Count - 1
    Application.OnTime Now + TimeValue("00:02:00"), "CreateSheet"
End Sub