Автофильтр: Применение и изменение условия автофильтра!

[SMShrek]

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

Пример во вложении...

[vikttur]

Не фильтр, но... фильтр

[R Dmitry]

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

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

Пример во вложении...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.AddressLocal <> "$E$1" Then Exit Sub
If [e1] <> "" Then
ActiveSheet.ListObjects("Таблица11").Range.AutoFilter Field:=1, Criteria1:=[e1]
Else
ActiveSheet.ListObjects("Таблица11").Range.AutoFilter Field:=1
End If
End Sub

в модуль листа

[SMShrek]

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

Не фильтр, но... фильтр

Спасибо! Ваш вариант, очень даже интересен и применим в других задачах...

(но тут мне нужен именно фильтр)...

[SMShrek]

Сообщение от R Dmitry

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.AddressLocal <> "$E$1" Then Exit Sub
If [e1] <> "" Then
ActiveSheet.ListObjects("Таблица11").Range.AutoFilter Field:=1, Criteria1:=[e1]
Else
ActiveSheet.ListObjects("Таблица11").Range.AutoFilter Field:=1
End If
End Sub

в модуль листа

Что-то не получается, в модуле листа скопированная строчка подсвеченна красным...

[R Dmitry]

Смотрите Ваш файл

[SMShrek]

Сообщение от R Dmitry

...

в модуль листа

выдает ошибку?...

[R Dmitry]

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

выдает ошибку?...

конечно, если так код будет выглядеть.

Наверно решили сэкономить на строках редактора VBA

ps.... да и сохраняйте файл с поддержкой макросов

[SMShrek]

Сообщение от R Dmitry

Смотрите Ваш файл

Вот теперь работает... именно то что нужно...


СПАСИБО ОГРОМНОЕ!


__________________
P.S.: "Может спасибо и мало, ну хоть что-то"