макрос фильтр "Разделение таблицы по листам"

Вход

Регистрация

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

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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

макрос фильтр "Разделение таблицы по листам" (Формулы/Formulas)

макрос фильтр "Разделение таблицы по листам"

udjin

Дата: Четверг, 28.09.2023, 15:16 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 40% ±

2016

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

К сообщению приложен файл: Tabl.xlsm (31.9 Kb)

udjin

Ответить

Nic70y

Дата: Пятница, 29.09.2023, 08:21 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 8887

Репутация: 2324 ±

Замечаний: 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]