Temat: Tabela przestawna - kryteria filtru głównego na podstawie...

Witam

Ma tabelę przestawną ktora ma założony filtr główny na dwóch polach

DATA oraz ZMIANA

W jaki sposób uzależnić wybór tych filtrów od wartości w komórkach

DATA odpowiada komórce A1
ZMIANA odpowiada komórce B1

Ma to działać tak że jak wpisze do komórki A1 jakąś datę ę ( lub do B1 nr zmiany 1-2-3 ) winno odpalić się marto i zmienić filtry w tabeli

Może ktoś sie juz z takim dziwnym problemem borykał, dodam ze wybieranie z listy filtra nie wchodzi w grę.

Z góry dziki za pomoc

Temat: Tabela przestawna - kryteria filtru głównego na podstawie...

Łukasz W.:
Witam

Ma tabelę przestawną ktora ma założony filtr główny na dwóch polach

DATA oraz ZMIANA

W jaki sposób uzależnić wybór tych filtrów od wartości w komórkach

DATA odpowiada komórce A1
ZMIANA odpowiada komórce B1

Ma to działać tak że jak wpisze do komórki A1 jakąś datę ę ( lub do B1 nr zmiany 1-2-3 ) winno odpalić się marto i zmienić filtry w tabeli

Może ktoś sie juz z takim dziwnym problemem borykał, dodam ze wybieranie z listy filtra nie wchodzi w grę.

Z góry dziki za pomoc

Private Sub Worksheet_SelectionChange(ByVal Target As Range)



Set ark_pvt = Worksheets("ark_pvt")

Set ark_set = Worksheets("ark_ustaw")



pvt_name = "tab1"



dane1 = "DATA ' nazwa pola 1

dane2 = "ZMIANA" ' nazwa pola 2



zmienna1 = ark_set.Range("A1")

zmienna2 = ark_set.Range("B1")



If zmienna1 = "" Or zmienna2 = "" Then

    ' do nothing

ElseIf zmienna1 = "" And zmienna2 <> "" Then

    'ark_pvt.PivotTables(pvt_name).PivotFields(dane1).CurrentPage = zmienna1

    ark_pvt.PivotTables(pvt_name).PivotFields(dane2).CurrentPage = zmienna2

ElseIf zmienna1 <> "" And zmienna2 = "" Then

    ark_pvt.PivotTables(pvt_name).PivotFields(dane1).CurrentPage = zmienna1

    'ark_pvt.PivotTables(pvt_name).PivotFields(dane2).CurrentPage = zmienna2

Else

    ark_pvt.PivotTables(pvt_name).PivotFields(dane1).CurrentPage = zmienna1

    ark_pvt.PivotTables(pvt_name).PivotFields(dane2).CurrentPage = zmienna2

End If



End Sub

pewnie dla poprawności kodu należałoby zadeklarować używane zmienne, ale i bez tego działaTen post został edytowany przez Autora dnia 14.09.13 o godzinie 10:26