Расширенный фильтр через макрос

[tim_oha]

Здравствуйте!

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

Sub Флажок1_Щелчок()
If (ActiveSheet.CheckBoxes(1).Value = 1) Then
Range("A10:AF5000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A1:AF2"), Unique:=False
Else: ActiveSheet.ShowAllData
End If
End Sub

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

[tim_oha]

Ну в общем сам решил вопрос:
вот может кому пригодиться

Sub Флажок3_Щелчок()
If (ActiveSheet.CheckBoxes(1).Value = 1) Then
Sheets("ТСЗП-11").Range("A10:AF5000").AdvancedFi lter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("ТСЗП-11").Range("A1:AF2"), Unique:=False
Else: Sheets("ТСЗП-11").ShowAllData
End If
End Sub

Правда, теперь проблема с тем, чтобы состыковать два и более листов....

[Raikhman]

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

Ну в общем сам решил вопрос:
...

Молодец tim_oha!
Так держать.

[Severny]

А как реализовать что бы фильтровались значения в связи с вводом значений в критерий (не после активации Чекбокса). Фильтровались сразу во время ввода или после выхода с ячейки?

[Severny]

Вот мой нерабочий вариант.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iCell As Range
Set Target = Range("B3:D4")
For Each iCell In Target
If iCell.Value <> "" Then
Range("B5:D10400").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Target, Unique:=False
Else
On Error Resume Next
ActiveSheet.ShowAllData
End If
Next
End Sub

Видно что-то фильтрует, но потом всеравно отображает все записи.

[Казанский]

Наверно так

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B4:D4")) Is Nothing Then 'B4:D4 - диапазон параметров
    Range("B5:D10400").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("B3:D4"), Unique:=False
End If
End Sub

[Severny]

Не работает у меня.

[Severny]

Касательно моего примера.
Как в расширенном фильтре установить критерий что бы фильтровало записи "начинающиеся с..."?
И фильтровало по-порядку ввода в диапазон критериев. Тоесть отф. сначала первый столбец, а потом я мог отф. второй.?