Loop to create Multiple Tabs from 2 Master Tabs

Hello Experts,

Within my excel workbook, I've 2 tabs i.e. Master and Raw.

My requirement is to create 8 different tabs based on Master and Raw tabs.

For instance: Initially when we run the macro, a duplicate tabs should get created of other said 2 tabs, then the tabs should get renamed to 1.0 and 1.0.

Again on second loop, new duplicate tabs should get created of Master and Raw tab, and it should get renamed to 2.0 and 2.1.

And so on till 8.0 - 8.1

See attached for your reference. I've added only 6 tabs i.e. till 3.1.

Appreciate your help in advance. Thanks!

According to the attachment a VBA demonstration for starters :

PHP Code: 

Sub Demo1()
         Dim P%, S%
    With Application
        .ScreenUpdating = False
    If Sheet1.Index > 1 Then
        .DisplayAlerts = False
         Sheets(Evaluate("TRANSPOSE(ROW(1:" & Sheet1.Index - 1 & "))")).Delete
        .DisplayAlerts = True
    End If
    For P = 1 To 8
    For S = 0 To 1
        Sheets(Sheet1.Index + S).Copy Sheet1
        ActiveSheet.Name = P & "." & S
    Next S, P
        .ScreenUpdating = True
    End With
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon ? ★ Add Reputation ? ! ◄ ◄

Thanks!

Both the above code did worked for me.

As there are still more loops to add to my actual excel worksheets, I'll try from my end.

Thank you, so much for for quick response. Cheers

Oh! I got a change in my requirement. My Apologize!

As we have 2 tabs i.e. Master and Raw - on 1st loop - we should get a duplicate tabs of Master and Raw and they should get renamed

Master tab should get renamed to M4908 and Raw tab should get renamed to M4908-P1

on Second Loop

Master tab should get renamed to M7023 and Raw tab should get renamed to M7023-P1

There will be overall 16 tabs to be created after each loop i.e. 8 tabs of Master and 8 tabs of Raw

As I can't code any guessing challenge ...

According to your post #5 my VBA demonstration revised in order to create both first iterations
as a beginner starter you can easily amend for what you forgot / misexplained :

PHP Code: 

Sub Demo1r()
        Dim V, S%
    With Application
        .ScreenUpdating = False
    If Sheet1.Index > 1 Then
        .DisplayAlerts = False
         Sheets(Evaluate("TRANSPOSE(ROW(1:" & Sheet1.Index - 1 & "))")).Delete
        .DisplayAlerts = True
    End If
    For Each V In [{"M4908","M7023"}]
    For S = 0 To 1
        Sheets(Sheet1.Index + S).Copy Sheet1
        ActiveSheet.Name = V & IIf(S, "-P1", "")
    Next S, V
        .ScreenUpdating = True
    End With
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon ? ★ Add Reputation ? ! ◄ ◄

Hi Marc,

Your code works, but only when I have 2 active sheets in the workbook.

In my actual Excel, I have multiple other tabs as well. When I run this code, all the other tabs are getting deleted, except the Master and Raw tab.

How can we add a line of code, to create a duplicate tabs for specific tabs. Something as below:

PHP Code: 

Worksheets("Master").Copy After:=Worksheets(Sheets.Count) 


Hi Marc,

I amended the code as per my requirement and was able to achieve what I was looking for.

Thank you once again. Well Appreciated.