Страницы: 1
RSS
Вставить лист между скрытыми листами (макрос)
 
Доброго времени суток. Возник следующий вопрос:
Есть сводный файл, по умолчанию в нем 5 лист (лист обработки, свод, лист1, лист2, ошибки)
на листе свод формулы вида:
=СУММ(Лист1:Лист2!D15)
Соответсвенно после обработки лист копируется между лист1 и лист2, и в своде считается сумма по всем листам. Хочется скрыть скрыть ненужные лист (лист1 и лист2). Формулы в своде считают при этом нормально.
Но вот в макросе строка
Код
Sheets(1).Copy Before:=Sheets("Лист2")

копирует лист  в случайное место. СОбственно сабж:
Как скопировать лист между скрытыми листами?

P.s.
Возможно есть другой способ считать сумму по ячейке со всех листов для свода, чтобы избежать пустых листов вначале и вконце?
 
нет никаких вариантов?
 
листы отобразить,
вставить лист в нужной позиции
скрыть обратно
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Есть. Только не нужно через 2 часа поднимать тему.
Код
    With Sheets("Лист1")
        .Visible = -1
        .Copy Before:=Sheets(2)
        .Visible = 0
    End With
 
Цитата
Крекер написал:
=СУММ(Лист1:Лист2!D15)
Мне всегда - интересно, кому нужен такой: "заумный" Алгоритм?!  :D
В придачу - с Макросом!!!
У Вас тривиальнейшие формулы Консолидации однотипных таблиц на листах!
Листы - Скрывать / Отображать: Сколько Геморроя!  
Короче, "Без бутылки" - не разобраться!  ;)  :D
 
Цитата
Юрий М написал:
Есть. Только не нужно через 2 часа поднимать тему.
Спасибо. Не очень знаю для чего используется With, но сделал по аналогии тоже самое наверно
Код
Sheets("Лист2").Visible = True
Sheets(1).Select
Sheets(1).Copy Before:=Sheets("Лист2")
Sheets("Лист2").Visible = False
Цитата
Мотя написал:
Мне всегда - интересно, кому нужен такой: "заумный" Алгоритм?!   В придачу - с Макросом!!!У Вас тривиальнейшие формулы Консолидации однотипных таблиц на листах!Листы - Скрывать / Отображать: Сколько Геморроя!  Короче, "Без бутылки" - не разобраться!    
Не очень понял суть вопроса.
Можно как то проще посчитать сумму ячейки по всем листам? Таже справка https://www.planetaexcel.ru/techniques/2/138/ советует тот же самый способ.
Просто т.к. нет начальных листов, приходится создать пусть Лист1 вначале, и Лист2 в конце для подсчета суммы между этими листами. Эти листы раздражают и поэтому решил их скрыть, как оказалось формула со скрытым листом так же работает.
А по поводу макроса: это ведь только один этап. Вначале добавляется лист в свод, затем обрабатывается на ошибки, затем добавляется в нужную часть свода и т.д. Теоретически это можно делать и руками (как раньше и было) каждый месяц, но если есть возможность автоматизировать процесс, то почему бы и нет  
 
Цитата
Крекер написал:
Просто т.к. нет начальных листов, приходится создать пусть Лист1 вначале, и Лист2 в конце для подсчета суммы между этими листами.
Вы каждый Месяц добавляете в файл - Лист-Начало и Лист-Конец?!  :D  
 
Цитата
Мотя написал:
Вы каждый Месяц добавляете в файл - Лист-Начало и Лист-Конец?!    
А раньше ничего и не было. Я пока только формирую автоматизированный свод и делаю по аналогии с тем, что делал для других целей ранее
 
Цитата
Крекер написал:
как оказалось формула со скрытым листом так же работает
Это - Тривиально!  :D  
 
Цитата
Крекер написал:
обрабатывается на ошибки
Это - о ЧЁМ?
 
Цитата
Крекер написал:
Не очень знаю для чего используется With
Цитата
Крекер написал:
но если есть возможность автоматизировать процесс, то почему бы и нет
Может что бы выполнить второе, стоит почитать про первое да и в целом изучить VBA,
а то мне кажется путь к автоматизации будет очень тяжелый.
"Все гениальное просто, а все простое гениально!!!"
 
Цитата
Мотя написал:
Это - о ЧЁМ?
о листе, который в дальнейшем будет добавлен в свод
Изменено: Крекер - 14.05.2019 14:52:43
 
Цитата
Крекер написал:
но сделал по аналогии тоже самое наверно
ключевое слово "наверно", но по сути совсем не то же самое.
"Все гениальное просто, а все простое гениально!!!"
 
Однако, странно - Вы о каком-то коде автоматизации "печётесь"...
А файла: не было / нет / не будет?!  :D
 
Цитата
Nordheim написал:
ключевое слово "наверно", но по сути совсем не то же самое.
делает то что мне надо

Цитата
Мотя написал:
Однако, странно - Вы о каком-то коде автоматизации "печётесь"...
по-моему это уже оффтоп
Страницы: 1
Наверх