Работа с автофилтром

[marsel]

день добрый подскажите как сделать что бы при выборе в автофилтре в таблице определеных условий выводились на другом листе эти данные?

[pashulka]

Подобное действо можно осуществить используя макросы, т.е. после получения нужных результатов фильтрации, можно просто кликнуть нужную кнопку и скопировать данные в нужный рабочий лист. Если подобный вариант устраивает и нужен готовый код, то тему всегда можно продолжить.

[marsel]

можно с поподробне плиз? или же посмори что не так в макросе:
Function AFilter(Header As Range) As String
Dim strCri1 As String, strCri2 As String
Application.Volatile

With Header.Parent.AutoFilter
With .Filters(Header.Column - .Range.Column + 1)

If Not .On Then Exit Function

strCri1 = .Criteria1
If .Operator = xlAnd Then
strCri2 = " AND " & .Criteria2
ElseIf .Operator = xlOr Then
strCri2 = " OR " & .Criteria2
End If

End With
End With

AFilter = UCase(Header) & " " & strCri1 & strCri2
End Function

[pashulka]

С пользовательской функцией всё в порядке, но она предназначена не для копирования данных, полученных в результате применения автофильтра, а для вывода в ячейке(ах) условий фильтрации, так сказать для наглядности. Во всяком случае, у меня подобную функцию просили именно для этого. Что касается именно копирования, то здесь можно скачать нужный пример.

[eda]

Скажите, пожалуйста, как в цикле for сделать обращение только к фильтрованным ячейкам?

[pashulka]

Как перебрать только отфильтрованные ячейки в автофильтре ?