VBA Create worksheets base on selction

ziad alsayed

Well-known Member
Joined
Jul 17, 2010
Messages
665
dear all

i have a sheet named "Sales" and another sheet named "Data", in the data sheet i have names in column A .

i need to create sheets base on selection in the data sheet, new worksheets that have the same format of the "sales" sheet and name it this sheet base on the selection.
in summary if i select 2 cells in need to create two sheets lile the sales sheet and name them base on the selection

appreciate any help.
 

Excel Facts

Enter current date or time
Ctrl+: enters current time. Ctrl+; enters current date. Use Ctrl+: Ctrl+; Enter for current date & time.

VoG

Legend
Joined
Jun 19, 2002
Messages
63,650
Hi. Try this

Code:
Sub CopySheets()
Dim c As Range
For Each c In Selection
    Sheets("Sales").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = c.Value
Next c
End Sub
 
Upvote 0

ziad alsayed

Well-known Member
Joined
Jul 17, 2010
Messages
665
dear Vog

it seems i missed to mention one point.

i the data sheet and in columns B i have the position , i still need to move them to cell A3 in each sheet i copy with the below macro

i hope it is clear
 
Upvote 0

VoG

Legend
Joined
Jun 19, 2002
Messages
63,650
Try

Code:
Sub CopySheets()
Dim c As Range
For Each c In Selection
    Sheets("Sales").Copy after:=Sheets(Sheets.Count)
    With ActiveSheet
        .Name = c.Value
        .Range("A3").Value = c.Offset(, 1).Value
    End With
Next c
End Sub
 
Upvote 0

Forum statistics

Threads
1,190,633
Messages
5,982,040
Members
439,751
Latest member
sohamkhatri

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top