How can I make copy worksheet from template worksheet?

[blckwolf]

Hello,
I explained my problem in detail in the attached file. To summarize briefly, there are two pages I used: "Sevk Listesi" and "Sablon". When I wrote new number in A column at "Sevk Listesi" worksheet, create a new worksheet from template worksheet "Sablon" and rename worksheet according to the numbers. For example the numbers 1, 2, 3 and worksheet names 1, 2, 3 etc. I hope explained my problem detailly.

Thank you in advance that will help my friends.

[blckwolf]

Could you help me somebody please?

[arlu1201]

I have a question - will only 1 number be added at a time in column A? Do you want the user to enter the number and then click on a button so that a tab is created?

[blckwolf]

the system work as follows:
1- The user fill the numbers in the column A at the page "Sevk Listesi" (main page). For example 1,2,3 etc.
2- Run the macro by user with button, macro copied new pages from "Sablon" page and renamed all copied pages. Page names same as column A at the page "Sevk Listesi". Like 1,2,3 etc.

Hopefully i can explain. Sorry my bad english :D .

[blckwolf]

Could you help me somebody please?

the system work as follows:
1- The user fill the numbers in the column A at the page "Sevk Listesi" (main page). For example 1,2,3 etc.
2- Run the macro by user with button, macro copied new pages from "Sablon" page and renamed all copied pages. Page names same as column A at the page "Sevk Listesi". Like 1,2,3 etc.

Hopefully i can explain. Sorry my bad english :D .

[arlu1201]

I have another question. Suppose today the user enters numbers 1, 2 and 3, so 3 sheets will be added and the sheets renamed.

However, tomorrow once the user again enters numbers 4, 5 and 6, should the macro be checking if the sheets of the previous day have already been added? Can a column be inserted which will have a tick mark that the sheet has already been copied?

[blckwolf]

Yes, you are right, if the new pages does not exist on the list => macro will be run. If the pages exist, macro can not run. So, macro to be control the entered page numbers already been copied.

I have another question. Suppose today the user enters numbers 1, 2 and 3, so 3 sheets will be added and the sheets renamed.

However, tomorrow once the user again enters numbers 4, 5 and 6, should the macro be checking if the sheets of the previous day have already been added? Can a column be inserted which will have a tick mark that the sheet has already been copied?

[arlu1201]

Try this out -

Please Login or Register  to view this content.

[snb]

Please do not quote (see the forum rules)

Please Login or Register  to view this content.

[blckwolf]

Dear arlu1201

Thank you very much for your interesting.

Dear snb

Sorry for if i do quote. Thank you for understanding.

[blckwolf]

Dear arlu1201

I thank you before for your below code. The code is good working until 60th page, macro does not open more than 60 pages. How can i correct it? Is the 60 pages upper limit?

Try this out -

Please Login or Register  to view this content.

[blckwolf]

Could you help me somebody please?

Dear arlu1201

I thank you before for your below code. The code is good working until 60th page, macro does not open more than 60 pages. How can i correct it? Is the 60 pages upper limit?

[blckwolf]

I do not want to quote, but i can not solve the problem. I can not copy more than 60 pages with this code. Could you help me somebody for solve the problem?

Sub create_sheet()

Dim blnfound As Boolean
Dim i As Integer
Dim ws As Object
Dim strListSheet As String: strListSheet = "Sevk Listesi" 'The name of the sheet that has the list.

For i = 2 To Sheets(strListSheet).Cells(Rows.Count, 1).End(xlUp).Row
blnfound = False
For Each ws In ThisWorkbook.Worksheets
If UCase(ws.Name) = UCase(CStr(Sheets(strListSheet).Cells(i, 1).Value)) Then blnfound = True
Next ws
If blnfound = False Then
Sheets("Sablon").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = Sheets(strListSheet).Cells(i, 1).Value
End If
Next i

End Sub