Здравствуйте! Подскажите, пожалуйста макрос, который бы сортировал по листам данные из первого листа таким образом: допустим в третьем столбце номер отдела, к которому принадлежит срока. Если по адресу С2 цифра 02, то вся строка копируется в лист с названием "Бакалея", если 03 - лист "Напитки" итд. до последней строки таблицы. Секций примерно 10, листы заранее готовы и названы.Помогите, очень надо... Желательно, чтобы копировался начиная со второй строки, чтобы сверху была шапка с названиями столбцов. Пример во вложении.
Здравствуйте! Подскажите, пожалуйста макрос, который бы сортировал по листам данные из первого листа таким образом: допустим в третьем столбце номер отдела, к которому принадлежит срока. Если по адресу С2 цифра 02, то вся строка копируется в лист с названием "Бакалея", если 03 - лист "Напитки" итд. до последней строки таблицы. Секций примерно 10, листы заранее готовы и названы.Помогите, очень надо... Желательно, чтобы копировался начиная со второй строки, чтобы сверху была шапка с названиями столбцов. Пример во вложении.resettt
Здравствуйте resettt, может вот это подойдет надо только изменить номер столбца, по которому происходит фильтрация, - в вашем случае это ст. F "Отдел" (ст. № 6) [vba]
Код
For Each r In .Offset(1).Resize(.Rows.Count - 1).Columns(4).Value .AutoFilter 4, r
[/vba] в этих строках вместо 4 пишем 6
Здравствуйте resettt, может вот это подойдет надо только изменить номер столбца, по которому происходит фильтрация, - в вашем случае это ст. F "Отдел" (ст. № 6) [vba]
Код
For Each r In .Offset(1).Resize(.Rows.Count - 1).Columns(4).Value .AutoFilter 4, r
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
