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