Страницы: 1
Поиск
[VBA] вставка листов по критериям расширенного фильтра, Перебрать все критерии для фильтра и если есть значения, то скопировать на новые листы
Автор: Андрей Фетисов. Здравствуйте уважаемые форумчане,  Помогите, пожалуйста, дописать условие, если при переборе критериев для расширенного фильтра, данные есть, то тогда создавать лист:Sub Filter() Worksheets.Add.Name = "раос_гп_291_4000" 'Создание нового листа Worksheets("Ввод").Range("A5:O33").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Worksheets("Лист1").Range("S13:V14"), _ CopyToRange:=Worksheets("раос_гп_291_4000 ...
Изменен: 13.05.2016
Читать сообщение на форуме или сайте.
Страницы: 1
Наверх