Если в автофильтре нет нужного значения, - пропустить и продолжить дальше

[Ogeris]

Добрый день!

Описание процесса: в таблице с множеством столбцов по столбцу "B" фильтруются строки, в которых есть значение "А"; отфильтрованные строки копируются в соседний лист;
затем фильтр сбрасывается, и столбец "B" фильтруется уже по значению "Y" и снова отфильтрованные строки копируются в соседний лист.

Вопрос: скажите, как описать условие, что если в столбце "B" нет значения "A", то не надо копировать строки, а следует перейти к следующему шагу, т.е. отфильтровать по значению "Y"?

[VictorM]

ИМХО, для начала нужно перебрать все отфильтрованные строки на наличие/отсутствие условия.
Как перебрать только отфильтрованные строки в автофильтре ?

[Ogeris]

Не понятно (((((((

[IgorGO]

а почему бы не свести два шага в один и отфильтровать все сразу на наличие "A" или "Y"?

[Ogeris]

Дело в том, что строки, отсортированные по значению "A" надо копировать в ячейку А2000, а строки, отсортированные по значению "Y" - в ячейку A2100

[Ogeris]

Ребят, ну неужели никто не знает?

[nilem]

Для примера:

Sub ertert()
Dim rng As Range, arr(), i&
Application.ScreenUpdating = False
Set rng = Range("A1:B10")
arr = Array("A", "Y")
For i = 0 To 1
    rng.AutoFilter Field:=2, Criteria1:=arr(i)
    ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(12).Copy Cells(20 + i * 10, 1)
Next
rng.AutoFilter: Application.ScreenUpdating = True
End Sub

[Ogeris]

Большое спасибо!

Всё прекрасно работает!