Ребята, помогите пожалуйста!
Не могу разобраться в макросе для сводной таблицы предложенной на этом сайте
Такое ощущение, что данный макрос написан для сбора с четырех листов: Альфа, Бета, Гамма и Дельта.
Пытаюсь переименовать - макрос выдает ошибку, добавляю лист - опять ошибка.
Облазил все что можно, уже думал нашел как обойти, но опять ... ошибка.
Заменил
на:
Объясните, что не так я делаю и как мне расширить охват на 8 листов?
Заранее спасибо.
Не могу разобраться в макросе для сводной таблицы предложенной на этом сайте
Такое ощущение, что данный макрос написан для сбора с четырех листов: Альфа, Бета, Гамма и Дельта.
Пытаюсь переименовать - макрос выдает ошибку, добавляю лист - опять ошибка.
Облазил все что можно, уже думал нашел как обойти, но опять ... ошибка.
Заменил
| Код |
|---|
'массив имен листов с исходными таблицами
SheetsNames = Array("a1", "a2", "a3", "a4") |
на:
| Код |
|---|
Dim s As String
'Ввод массива имен листов с исходными таблицами
s = InputBox("Имена листов через запятую")
s = Replace(s, ", ", ",") 'Удаляем возможные пробелы после запятой
SheetsNames = Split(s, ",") |
Заранее спасибо.
Изменено: - 04.05.2016 16:24:54
