колонки автофильтра

[Рудзфельд]

Насчет команды Application.DisplayAlerts=False навряд ли бы догадалсь.
Спасибо большое :-)

[SAS888]

Опять же, для этой цели вовсе не обязательно использовать автофильтр. Можно и так:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False: Application.ScreenUpdating = False
    Dim x As Range: Set x = [A:A].Find(3, , , xlWhole)
    If x Is Nothing Then Exit Sub Else On Error Resume Next
    [A:A].ColumnDifferences(x).EntireRow.Hidden = True
    Cells.SpecialCells(xlCellTypeVisible).Delete: Rows.Hidden = False
    Application.EnableEvents = True: Application.ScreenUpdating = True
End Sub

[Рудзфельд]

В этом коде

Range("A2:A65536").AutoFilter Field:=1, Criteria1:="3"

сортируются только "тройки". А если я хочу отсортировать, допустим, 2, 3, 5, 9, как это сделать?
Пробовала так:

Range("A2:A65536").AutoFilter Field:=1, Criteria1:="2,3,5,9"

и так:

Range("A2:A65536").AutoFilter Field:=1, Criteria1:="2;3;5;9"

Все равно не получается.

[SAS888]

Автофильтр может работать только с двумя условиями. Например

.AutoFilter Field:=1, Criteria1:="=2", Operator:=xlOr, Criteria2:="=3"

Для решения Вашей задачи (скрыть требуемые строки), предлагаю не использовать автофильтр. Следующий код скроет все строки, кроме тех, которые в столбце "A" содержат критерии, содержащиеся в массиве a (неограниченное количество).

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False: Application.ScreenUpdating = False
    Dim x As Range, y As Range, z As Range, a(), crit
    a = Array(2, 3, 5, 9) 'Критерии фильтра
    For Each crit In a
        Set x = [A:A].Find(crit, , , xlWhole)
        If Not x Is Nothing Then
            Set y = [A:A].ColumnDifferences(x)
            If z Is Nothing Then Set z = y Else Set z = Intersect(z, y)
    End If: Next
    If Not z Is Nothing Then z.EntireRow.Hidden = True
    Application.EnableEvents = True: Application.ScreenUpdating = True
End Sub

P.S. А Вам точно требуется применять фильтр при каждом изменении любой ячейки листа? Может быть достаточно контролировать изменение значений ячеек какого-то конкретного диапазона?

[Рудзфельд]

Задача в общем такая: в Лист1 делаются какие-то изменения, а в Лист2 эти изменения должны отображаться (НЕ сводные таблицы! Без их использования!). В Лист2 в обяз должны присутствовать автофильтры.
Конечно, увидев эти фильтры, я не сразу подумала, что нужно кодировать с использованием только автофильтров. Нет конечно. Просто я думала, что если использовать автофильтр, то программа будет работать намного быстрее, потому что отфильтрованных значений все равно намного меньше.
Можно работать и без автофильтров.

Вот сейчас мне нужно было вот что. Допустим, в Лист1 содержится столбец из чисел (1, 2, 3, 4, 5, 6 и т. д.). В Лист2 в каком-нибудь столбце также от руки вводятся числа. Если в Лист1 удалить любую строку с числом, например 2, то эта "двойка" должна исчезнуть в Лист2 (если ее вводили). Это у меня всё работает.
Но если пользователь захочет удалять строки диапазоном (а он имеет на это право), то в Лист2 удаляются только те числа, которые находились в выбранном диапазоне в первой строке этого диапазона.
Так вот, как сделать так чтобы в Лист2 удалялись все те числа, которые находились в выбранном диапазоне Лист1?

Я сначала решила отфильтровать все те значения, которые находятся в выбранном диапазоне, а затем разом их все удалить.
Кстати, пользователь может также выборочно выделять строки для удаления. Т. е. например A2, A5, A8, A10, A15, A36 и т. д. И вот эти значения должны исчезнуть в Лист2 (и то если какие-то из них были ввдены в Лист2).

[SAS888]

Не уверен, что правильно Вас понял. Посмотрите вложение. При удалении значений из столбца "A" листа "Лист1", эти же значения будут удалены из столбца "D" листа "Лист2", не зависимо от их количества. Допускается работа как с одиночной ячейкой, так и с произвольным диапазоном.

[Рудзфельд]

Все правильно, только заданные значения нужно было не заменять на пустые, а удалять динамически. Вместо Replace я пробовала просто написать Delete без всяких параметров, но эта команда удаляет вообще весь столбец D. Как сделать?

[SAS888]

только заданные значения нужно было не заменять на пустые, а удалять динамически

Это чуть сложнее. Посмотрите вложение.

[Рудзфельд]

Ну-у если для Вас кажется сложнее, то для меня это вообще... :-) А автофильтры мне не помеха.
Именно так и надо. Сейчас буду разбираться с кодом. Спасибо Вам большое, SAS888. Помогли :-)