Здрастыуйте всем!!! у меня стоит задача содзать макрос который должен каждый раз добавлять новые страницы по существуещему темплэйту. имена этих страниц берутся из отдельного столбца. то есть 1, 2, 3 и так далее по мере добавления информации в активном листе.
Здрастыуйте всем!!! у меня стоит задача содзать макрос который должен каждый раз добавлять новые страницы по существуещему темплэйту. имена этих страниц берутся из отдельного столбца. то есть 1, 2, 3 и так далее по мере добавления информации в активном листе.AndreiB
Я написал простой код, создаёт новую страницу, но не могу привязать темплэйт, и каждый раз выводит ошибку что имя уже существует, можете помочь с кодом?
Я написал простой код, создаёт новую страницу, но не могу привязать темплэйт, и каждый раз выводит ошибку что имя уже существует, можете помочь с кодом?AndreiB
Сообщение отредактировал AndreiB - Четверг, 30.09.2021, 13:00
Простите за безпокойство, разобрался сам. Нужно было на активном листе поставить формулу, что бы в макросе указать откуда брать название новой страницы. Всем спасибо за участие. Ниже строки скрипта.
[vba]
Код
Sub NewSheet()
' ' NewSheet Macro '
ActiveWindow.SmallScroll ToRight:=5 ActiveWindow.ScrollWorkbookTabs Sheets:=1 Sheets("Template").Select Sheets("Template").Copy After:=Sheets("Template") ActiveSheet.Name = Sheets("DataBaseContains").Range("a3").Value End Sub
[/vba]
Простите за безпокойство, разобрался сам. Нужно было на активном листе поставить формулу, что бы в макросе указать откуда брать название новой страницы. Всем спасибо за участие. Ниже строки скрипта.
[vba]
Код
Sub NewSheet()
' ' NewSheet Macro '
ActiveWindow.SmallScroll ToRight:=5 ActiveWindow.ScrollWorkbookTabs Sheets:=1 Sheets("Template").Select Sheets("Template").Copy After:=Sheets("Template") ActiveSheet.Name = Sheets("DataBaseContains").Range("a3").Value End Sub