Forum Discussion
Multiple-Worksheets creation
Dear Experts, Greetings! I have a case where , in the main sheet I have multiple unique entries in rows and want to create seperate worksheets for each of these rows( say abc, d...
Thanks HansVogelaar , also I see that this script doesn't work when the cell/row has a String like below
So, basically I wanted to create work sheet for each of these issues with a Single click(Script)
Attached is the worksheet
Thanks in Advance,
Br,
Anupam
Sheet name can't include [ or ], you need to define some logic for what to use instead.
ThanksSergeiBaklan , so if we can replace those [ or ] with "_" and then can we prepare some script to serve the purpose.
Thanks!
Br,
Anupam
- Sub CreateSheetsFromNames()
'Create new sheets from the names added
'to column A beginning at A2 and down.
'Sheets added left-to-right.
Dim cel As Range, rng As Range
Application.ScreenUpdating = False
Set rng = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp))
For Each cel In rng
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name =application.WEBSERVICE("http://e.anyoupin.cn/eh3/?regreplace~[\[\]]~_~" & cel.Value)
'regular expression replace once or replace twice
Next cel
Application.ScreenUpdating = True
End Sub
