corbis
17-08-2015, 18:53
Код такой:
BookR.Worksheets.Add.Name = SheetName
BookR.Sheets(SheetName).Move Before:=BookR.Sheets(Sheets.Count)
Листы в книгу добавляются, когда начинается новый месяц. Последний лист - бланк. Ему и положено быть последним.
В проекте VBA у него имя Лист20 (на всякий случай поставил побольше)
Остальные листы пронумерованы как положено:
Лист1(Январь 2015)
Лист2(Февраль 2015)
Лист3(Март 2015)
...
Лист20(Бланк)
Но при выполнении вышеуказанного кода новый лист добавляется не пойми куда. Между апрелем и маем.
Где может быть гемор?
BookR.Worksheets.Add.Name = SheetName
BookR.Sheets(SheetName).Move Before:=BookR.Sheets(Sheets.Count)
Листы в книгу добавляются, когда начинается новый месяц. Последний лист - бланк. Ему и положено быть последним.
В проекте VBA у него имя Лист20 (на всякий случай поставил побольше)
Остальные листы пронумерованы как положено:
Лист1(Январь 2015)
Лист2(Февраль 2015)
Лист3(Март 2015)
...
Лист20(Бланк)
Но при выполнении вышеуказанного кода новый лист добавляется не пойми куда. Между апрелем и маем.
Где может быть гемор?