Autofiltr z zewn.kryteriami - modyfikacja

Witam
W temacie filtrowanie na podstawie zawartości innej komórki Tkuchta1 tu podał następujące makro


Option Explicit
Dim przelacznik As Boolean

Sub Makro1()
    Dim Ark As Worksheet, wzor As Range

    Set Ark = ThisWorkbook.Worksheets("Arkusz1")
    If Not przelacznik Then
        przelacznik = True
        With Ark
            If .AutoFilterMode Then
                On Error Resume Next
                .ShowAllData
                On Error GoTo 0
            Else
                .Rows(1).AutoFilter
            End If

            Set wzor = .[K2]
            With .AutoFilter.Range
                Select Case wzor.Value
                    Case "": .AutoFilter Field:=1, Criteria1:="="
                    Case "+": .AutoFilter Field:=1, Criteria1:="<>"
                   
                End Select
            End With
            Set wzor = Nothing
        End With
    Else
        przelacznik = False
        On Error Resume Next
        Ark.ShowAllData
        On Error GoTo 0
    End If
    Set Ark = Nothing
End Sub

Rzecz dotyczy pobierania wartości filtrowania /kryteria?/ z komórki w arkuszu dosłownie K2
Mam pytanie co należało by zmodyfikować w tym makrze aby przełączniki filtrów powodowały filtrowanie gdy w K2 jest funkcja =K4 /że K2 pobiera z z K4 / ?

Przy okazji drugie pytanie czy robiąc makro wgrywalne gdzie K4 zatem i K2 będzie się zmieniało Klikanie w klawisz pn. PRZYCISK9 również uzyskam efekt przełączania??

Pozdrawiam
zen

[ Dodano: 2009-08-24, 10:14 ]

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

katkaras.opx.pl