Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/макрос фильтр "Разделение таблицы по листам" - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
макрос фильтр "Разделение таблицы по листам"
udjin Дата: Четверг, 28.09.2023, 15:16 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 40% ±

2016
Доброго времени суток. Имеется табель сотрудников с макросом от Николая Павлова "Разделение таблицы по листам", подскажите как привязать столбец к сегодняшней дате, чтобы макрос отрабатовал только столбец с сегодняшней датой и еще в итоговых листах выводилась информация только этого столбца а не всех дат. Пример во вложении.
К сообщению приложен файл: Tabl.xlsm (31.9 Kb)


udjin
 
Ответить
СообщениеДоброго времени суток. Имеется табель сотрудников с макросом от Николая Павлова "Разделение таблицы по листам", подскажите как привязать столбец к сегодняшней дате, чтобы макрос отрабатовал только столбец с сегодняшней датой и еще в итоговых листах выводилась информация только этого столбца а не всех дат. Пример во вложении.

Автор - udjin
Дата добавления - 28.09.2023 в 15:16
Nic70y Дата: Пятница, 29.09.2023, 08:21 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8801
Репутация: 2295 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
    For Each cell In Range("tip")
        Sheets.Add
        ActiveSheet.Name = cell.Value
        x = Day(Date) + 1
        Range("Tabl").AutoFilter Field:=x, Criteria1:=cell.Value
        Range("tabl[[#All],[ФИО]]").Copy Sheets(cell.Value).Range("a1")
        Range("tabl[[#All],[" & x - 1 & "]]").Copy Sheets(cell.Value).Range("b1")
    Next cell
[/vba]


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 29.09.2023, 08:21
 
Ответить
Сообщение[vba]
Код
    For Each cell In Range("tip")
        Sheets.Add
        ActiveSheet.Name = cell.Value
        x = Day(Date) + 1
        Range("Tabl").AutoFilter Field:=x, Criteria1:=cell.Value
        Range("tabl[[#All],[ФИО]]").Copy Sheets(cell.Value).Range("a1")
        Range("tabl[[#All],[" & x - 1 & "]]").Copy Sheets(cell.Value).Range("b1")
    Next cell
[/vba]

Автор - Nic70y
Дата добавления - 29.09.2023 в 08:21
udjin Дата: Пятница, 29.09.2023, 16:14 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 40% ±

2016
Благодарю. hands respect first


udjin
 
Ответить
СообщениеБлагодарю. hands respect first

Автор - udjin
Дата добавления - 29.09.2023 в 16:14
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!