Hеализировать алгоритм на VBA

[Automat]

Помогите написать код VBA, алгоритм примерно известен

Нужно анализировать весь столбец B на наличие значения "Руководство", Если нашли "Руководство" то проверить есть ли число > 20 в сторбце Q (рядом напротив найденого), Если есть то проверить существует ли група (заданная в коде VBA), Если существует то скопировать значение из столбца F и АА на другую страницу...... И так перебирать весь столбец B на наличие заданих параметров.
Как написать такой цикл ?

[Hugo121]

Автофильтр, скопировать видимые строки.
Вернее нужные столбцы видимых строк.
И не надо ничего перебирать.

Sub tt()
    Sheets(1).AutoFilterMode = 0
    With Sheets(1).[A1].CurrentRegion
        .AutoFilter 2, "Руководство", 1
        .AutoFilter 17, ">20", 1
        .AutoFilter 18, "gr", 1
        .SpecialCells(12).Columns(6).EntireColumn.Copy Sheets(2).[A1]
        .SpecialCells(12).Columns(27).EntireColumn.Copy Sheets(2).[B1]
    End With
    Sheets(1).AutoFilterMode = False
End Sub

[Automat]

Hugo121, спасибо за оперативную помощь, работает, а можно както на исходной страничке Sheets(1) по окончанию копирования автоматически отключить автофильтр и вернуть прежний вид данных ?

[Hugo121]

А разве не возвращается? Интересно...
Строка Sheets(1).AutoFilterMode = False что делает?

[Automat]

Сообщение от Hugo121

А разве не возвращается? Интересно...
Строка Sheets(1).AutoFilterMode = False что делает?

работает, спасибо

[Automat]

Сообщение от Automat

работает, спасибо

появилась проблема, после выполнения макроса, размер файла из 252 КБ стает 9,75 МБ, как боротся с етим ?

[Hugo121]

Давайте свой файл на 252 кб (зажмите в архив) - посмотрим.
Личные данные удалите, оставьте десяток строк, чтоб было что фильтровать.

[IgorGO]

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

[Automat]

Сообщение от Hugo121

Давайте свой файл на 252 кб (зажмите в архив) - посмотрим.
Личные данные удалите, оставьте десяток строк, чтоб было что фильтровать.

загрузил файл с фрагментом данных:
http://narod.ru/disk/45310905001.cea...5/111.rar.html
заранее спасибо за помощь

[Hugo121]

Нда, что-то мелкомягкие недоделали...
Вроде бы ведь из видимых With Sheets("Звіт").[A1].CurrentRegion выбираем EntireColumn, а выбирается черт те что, аж до 1048523 строки...

Исправил - так лишнего не тянет:

Sub Выборка_вариант1()
    Sheets("Звіт").AutoFilterMode = 0
    With Sheets("Звіт").[A1].CurrentRegion
        .AutoFilter 2, "Дипл.Пр. Керівництво", 1
        .AutoFilter 17, ">20", 1
        .AutoFilter 24, "СІ_51", 1
        Intersect(Sheets("Звіт").[A1].CurrentRegion, .SpecialCells(12).Columns(6).EntireColumn).Copy Sheets("Викладачі").[M3]       '  тем
        Intersect(Sheets("Звіт").[A1].CurrentRegion, .SpecialCells(12).Columns(27).EntireColumn).Copy Sheets("Викладачі").[L3]      '  викладачів
    End With
    Sheets("Звіт").AutoFilterMode = False     ' выкл фильтр на странице
End Sub

Хотя вероятно правильно - EntireColumn и есть весь столбец... Но тогда почему весь столбец не копируется? А иначе не получилось видимые взять.
Можно ещё перебором строк или массива выбрать, но банально