Страницы: 1
RSS
[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").Range("A1:O33"), Unique:=False

Worksheets.Add.Name = "раос_гп_291_8000" 'Создание нового листа

Worksheets("Ввод").Range("A5:O33").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Worksheets("Лист1").Range("S15:V16"), _
CopyToRange:=Worksheets("раос_гп_291_8000").Range("A1:O33"), Unique:=False

End Sub
Взял это макрос из темы http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=73297&TITLE_SEO=73297-kopirov... от уважаемого SuperCat и думал сделать как то так, но так нельзя (ошибку выдает), а как сделать не пойму:
Код
CriteriaRange:=Worksheets("Лист1").Range("S15:V16"), _
If Worksheets("Ввод").Range("A5:O33") <> "" then
Worksheets.Add.Name = "Раос_гп_291_8000" 'Создание нового листа
Worksheets("Ввод").Range("A5:O33"), CopyToRange:=Worksheets("Раос_гп_291_8000").Range("A1:O33"), Unique:=False
Пример приложил. Может кто то видел похожую задачу, я пока не нашел.
Изменено: Андрей Фетисов - 13.05.2016 15:20:04
Каждое препятствие это новая возможность чему-то научиться.
Страницы: 1
Наверх