Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » tigor
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Перебор всех листов всех открытых книг
 
#
03.03.2021 02:00:59
Цитата
New написал:
просто добавьте проверку на скрытый лист

Проще тогда открыть все скрытые листы
Код
Sub MakeHiddenSheetsVisible()     

     For Each Sheet In ActiveWorkbook.Sheets
         If Sheet.Visible > -1 Then
             Sheet.Visible = -1
         End If
     Next Sheet
 End Sub

Изменено: tigor - 03.03.2021 02:02:16
 
Перейти    
Перебор всех листов всех открытых книг
 
#
02.03.2021 03:42:53
Заметил причину сбоев - в некоторых книгах были скрытые листы. Возможно, у автора поста было тоже самое, на этих книгах макрос и затыкался.

Позже выложу файл примера с макросом. Может кому и ссгодится.
 
Перейти    
Перебор всех листов всех открытых книг
 
#
01.03.2021 15:31:57
Евгений Смирнов, спасибо, попробуем
 
Перейти    
Перебор всех листов всех открытых книг
 
#
01.03.2021 02:04:36
Mershik, Спасибо большое, но возникла такая же проблема проблема, что и у автора ветки. После прохода 3-4 файлов (всего их 13) эксель вылетает.  Некоторые файлы получились с ошибками.

Прийдется вызывать файлы по очереди через DIR

Cпасибо вам большое за помощь.

З.Ы. Может есть какой-то  tmp, который переполняется? И его надо почистить?  
Изменено: tigor - 01.03.2021 02:11:22
 
Перейти    
Перебор всех листов всех открытых книг
 
#
28.02.2021 17:36:29
Цитата
Mershik написал:
создать свою тему, описать задачу  показать желаемый результат
не хочу засорять форум копеечными темами. Может когда припрет... Спасибо.
 
Перейти    
Перебор всех листов всех открытых книг
 
#
28.02.2021 17:22:41
Так чем сердце успокоилось?

У меня похожая задача - нужно, чтоб макрос выполнялся во всех листах, во всех открытых книгах, кроме файла с макросом (thisworkbook???)
Предварительный план такой - Пересчитать открытые книги, организовать цикл через IF. Я хз...
 
Перейти    
Макрос - отбор по фильтру и перенос в новый файл
 
#
17.02.2021 22:12:23
Ура! Сделал сам.

Вот такой код:
Код
Application.Workbooks("dop.xlsx").Worksheets("январь").Range("A1:AM15").Copy
    Selection.End(xlDown).Select
    Selection.End(xlToLeft).Select
    ActiveCell.Offset(1, 0).Range("A1").Select

        ActiveSheet.Paste
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
         
        Range("A1").Select
 
Перейти    
Макрос - отбор по фильтру и перенос в новый файл
 
#
17.02.2021 19:43:28
Еще добавили задачу. К каждому файлу внизу нужно добавить 15 строк из прилагаемого файла.

Как перейти и их скопировать я понял (наверное))))
Код
Application.Workbooks("dop.xlsx").Worksheets("январь").Range("A1:AM15").Copy

, но как вернуться  обратно и вставить в самый низ создаваемой таблицы?
Так не работает:
Код
Selection.End(xlDown).Select
        ActiveCell.Offset(1, 0).Paste
 
Перейти    
Макрос - отбор по фильтру и перенос в новый файл
 
#
11.02.2021 16:44:48
Цитата
New написал:
В файле находится макрос "Разделить_по_книгам"
Спасибо большое!!!
 
Перейти    
Макрос - отбор по фильтру и перенос в новый файл
 
#
11.02.2021 16:32:41
Исправил 1-й пост - прикрепил файл.
 
Перейти    
Макрос - отбор по фильтру и перенос в новый файл
 
#
11.02.2021 15:57:13
Добрый день. Макрос в хату.

Помогите, пожалуйста, нужно сделать макрос - один сводный файл поделить на файлы, в каждом отдельная территория. Название этих файлов - название территории.

Спасибо.

Файл большой, поэтому даю ссылку га гугл-диск (надеюсь это разрешено правилами) - https://drive.google.com/file/d/1H4ZVYxuDKWiO2iU9hHFWjD1A2IFYSLyz/view?usp=sharing

UPD - прикрепленный файлик малая версия  
Изменено: tigor - 11.02.2021 16:32:16
 
Перейти    
Создание листов по фильтру со сводной таблицы и их переименование, Макрос
 
#
26.09.2019 10:02:41
Kuzmich,

Спасибо большое! Все работает отлично.
 
Перейти    
Создание листов по фильтру со сводной таблицы и их переименование, Макрос
 
#
25.09.2019 12:43:32
Kuzmich,  Большое вам спасибо!!! Бомба! Все как надо.

Осталось только в конечные таблицы форматирование добавить (внешний вид).  
Изменено: tigor - 25.09.2019 12:56:31
 
Перейти    
Создание листов по фильтру со сводной таблицы и их переименование, Макрос
 
#
25.09.2019 09:25:04
Цитата
_Igor_61 написал: Вариант: сделать отдельно список всех менеджеров и пробежаться по нему циклом.
Спасибо. Как раз думал над таким вариантом.
БОЖЕСТВЕННО! Большое спасибо.

Попробуем.
Цитата
А что обязательно нужно макросом, встроенные возможности Excel не устраивают?
Да, работает. Спасибо. Но прелесть макроса в том, что можно в него вставить доп.операции. Например, скопировать и вставить как значение (каждая закладка будет отдельным файлом и оправляться по почте каждому).
Изменено: tigor - 25.09.2019 10:42:10
 
Перейти    
Создание листов по фильтру со сводной таблицы и их переименование, Макрос
 
#
24.09.2019 17:16:34
Задачу с переименованием решил подстановкой вот этой строки:
Код
ActiveSheet.Name = [B1].Value

Осталось только наладить создание листов со сводной на каждый брик (в реальности их будет >50).  
Изменено: tigor - 25.09.2019 10:41:33
 
Перейти    
Создание листов по фильтру со сводной таблицы и их переименование, Макрос
 
#
24.09.2019 15:55:10
Добрый день.

Помогите новичку, плиз.
Задача - сделать макросом для каждого менеджера (брика) свой отдельный лист с одной сводной таблицы. И переименовать каждый лист именем брика (ячейка B1)

Проблема - в том, что для троих менеджеров в тестовом режиме я макросы создал (см. вложенный файл), но в реальности их больше пятидесяти и каждый месяц
некоторые их них будут менять название. Ручками, конечно, каждый раз править можно, но - не спортивно.
(поиском некоторые примеры похожего решения находил, но что-то никак не подправлю под свои реалии).

Спасибо, за помощь.
Изменено: tigor - 25.09.2019 10:40:52 (обновил файл)
 
Перейти    
Изменение даты в ячейке с автоматическим переименованием названия листа
 
#
24.09.2019 12:39:52
А если требуется переименовать лист в текстовое значение? В имя менеджера, например. Модуль с датой в данном случае не работает.
Изменено: tigor - 24.09.2019 12:40:17
 
Перейти    
Страницы: 1
Наверх