как в коде обраться к отфильтрованным данным?

[starkee]

Помогите, пожалуйста!
Никак не могу понять, что делать. Мне нужно выбрать строки, 1ый столбец которых содержит слово.... ну допустим "мама"... делаю я это так

Код: Выделить всё

    Rows("9:9").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="=*мама*"


Вопрос:
как теперь мне перенести отфильтрованные данные в другую книгу?
Не знаю, правильно ли сформулировала вопрос.... Просто я никак не пойму, могу ли я после применения метода AutoFilter, получить, например, номера строк, которые попали под критерий фильтрации.... А то получается, что данные отфильтровались, а взять я их не могу... Может быть у ячейки или строки появляется какая-нибудь метка, что строка отфильтрована.... Помогите, пожалуйста!
А то такая простая операция, как отобрать данные по критерию, стала для меня неразрешимой

[starkee]

В поиске на форуме нашла кучу похожим тем..... извиняюсь за неактуальность темы

Код: Выделить всё

    Set myFiltered = ActiveSheet.AutoFilter.Range.Offset(1, 0).Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 1, _
       ActiveSheet.AutoFilter.Range.Columns.Count).SpecialCells(xlCellTypeVisible)
    myFiltered.Select

[oleg]

В поиске на форуме нашла кучу похожим тем..... извиняюсь за неактуальность темы

Код: Выделить всё

    Set myFiltered = ActiveSheet.AutoFilter.Range.Offset(1, 0).Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 1, _
       ActiveSheet.AutoFilter.Range.Columns.Count).SpecialCells(xlCellTypeVisible)
    myFiltered.Select

а где здесь критерий фильтрации? нельзя ли рабочий код посмотреть?

[KL]

В поиске на форуме нашла кучу похожим тем..... извиняюсь за неактуальность темы

Код: Выделить всё

    Set myFiltered = ActiveSheet.AutoFilter.Range.Offset(1, 0).Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 1, _
       ActiveSheet.AutoFilter.Range.Columns.Count).SpecialCells(xlCellTypeVisible)
    myFiltered.Select

1) Это можно записать несколько короче:

Код: Выделить всё

    With ActiveSheet.AutoFilter.Range
        Set myFiltered = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
   End With

2) Метод .Select - это зло с точки зрения быстродействия и в VBA из под Excel очень редко бывает нужен.

3) У проперти .SpecialCells есть серьезное ограничение: если результирующий диапазон состоит из более чем 8.170 несмежных областей, то .SpecialCells молча вернет исходный диапазон

[VBA_Student]

У проперти .SpecialCells есть серьезное ограничение: если результирующий диапазон состоит из более чем 8.170 несмежных областей, то .SpecialCells молча вернет исходный диапазон

А 8.170=8170?
если да, то каким образом можно скопировать отфильрованные данные? Просто дело в том, что я тупо копирую весь непустой диапазон. Есть ли способ поделикатнее?

[KL]

А 8.170=8170?

Да. Правда, тут поправка - 8.192

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

Не вижу связи между первым и вторым вопросом. К тому же способ, найденный тобой и впоследствии сокращенный мной выше, и есть наиболее быстрый и наименее ресурсоемкий.

Код: Выделить всё

   With ActiveSheet.AutoFilter.Range
        .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy Range("A1")
   End With

Для того, чтобы результирующий диапазон превысил 8.192 несмежных областей, нужно как минимум, чтобы исходный диапазон имел 16.385 строк и при этом каждая вторая строка была бы видимой. Это твой случай?