Create the sheets with cells range then after paste the "Template" sheet in New created Sheets

[santoshloka]

Hello Evreyone

I need little help to create macro.

Create sheets with cells range
copy the template sheet
paste in cells range

"Please see the Highlighted Red Color"


'Name macro
Sub CreateSheets()

'Dimension variables and declare data types
Dim rng As Range
Dim cell As Range

'Enable error handling
On Error GoTo Errorhandling

'Show inputbox to user and prompt for a cell range
Set rng = Application.InputBox(Prompt:="Select cell range:", _
Title:="Create sheets", _
Default:=Selection.Address, Type:=8)

'Iterate through cells in selected cell range
For Each cell In rng

'Check if cell is not empty
If cell <> "" Then

'Insert worksheet and name the worksheet based on cell value
Sheets.Add.Name = cell
Sheets("Template").Copy After:=Sheets("cell").Paste
End If

'Continue with next cell in cell range
Next cell


'Go here if an error occurs
Errorhandling:

'Stop macro
End Sub

 

[santoshloka]

can i get little help with this macro please

 

[santoshloka]

Can I get help please. By doing manually it's taking long time

 

[RobVos]

Try this:

'Insert worksheet and name the worksheet based on cell value
Sheets("Template").Copy After:=Sheets("Template")
Sheets("Template (2)").Name = cell

 

[santoshloka]

Try this:

'Insert worksheet and name the worksheet based on cell value
Sheets("Template").Copy After:=Sheets("Template")
Sheets("Template (2)").Name = cell

Thanks for your reply

it is creating new "Template" sheet instead of range sheets

rng=Tab1,Tab2
i want Template sheet to paste in Tab1 and Tab2

'Name macro
Sub CreateSheets()
 
'Dimension variables and declare data types
Dim rng As Range
Dim cell As Range

'Enable error handling
On Error GoTo Errorhandling
 
'Show inputbox to user and prompt for a cell range
Set rng = Application.InputBox(Prompt:="Select cell range:", _
Title:="Create sheets", _
Default:=Selection.Address, Type:=8)
 
'Iterate through cells in selected cell range
For Each cell In rng
 
    'Check if cell is not empty
    If cell <> "" Then
 
        'Insert worksheet and name the worksheet based on cell value
        Sheets.Add.Name = cell
       Sheets("Template").Copy After:=Sheets("Template")
        Sheets("Template (2)").Name = cell
    End If
 
'Continue with next cell in cell range
Next cell

 
'Go here if an error occurs
Errorhandling:
 
'Stop macro
End Sub

 

[RobVos]

I guess I misunderstood - or perhaps I was unclear. I thought you wanted to make copies of the template sheet and name each based on the select range.

Comment out the following line and try again and I think it will do what you want:

Sheets.Add.Name = cell

 

[RobVos]

 

[santoshloka]

Template sheet have some data.(better to copy whole Template sheet in Tab1,Tb2...etc)

The data should copy in all tabs like you shown in picture

 

[RobVos]

It does that. In my example, I just have "My Template" in A1 as the data. It is in each new tab.

 

[santoshloka]

can you please try this

iam not getting it

Dropbox - File Deleted - Simplify your life

www.dropbox.com

in Box Dim sheet have Chainages.Those are around 85 cells..85 sheets to create with copy of template sheet