[VBA] вставка листов по критериям расширенного фильтра, Перебрать все критерии для фильтра и если есть значения, то скопировать на новые листы
Андрей Фетисов
Гость
13.05.2016 15:13:25
Здравствуйте уважаемые форумчане, Помогите, пожалуйста, дописать условие, если при переборе критериев для расширенного фильтра, данные есть, то тогда создавать лист:
Код
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
Взял это макрос из темы от уважаемого и думал сделать как то так, но так нельзя (ошибку выдает), а как сделать не пойму:
Код
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
Пример приложил. Может кто то видел похожую задачу, я пока не нашел.
