Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 64159 Skopiuj do schowka Jeden fragmentator do tabeli i do tabeli przestawnej.
Autor Wiadomość
biju 
Starszy Forumowicz


Posty: 28
Wysłany: 17-02-2019, 21:00   Jeden fragmentator do tabeli i do tabeli przestawnej.

Witam,

Jak manipulować jednym fragmentatorem tabelą (tbDane) i tabelą przestawną jednocześnie ?

Źródłem tabeli przestawnej jest tabela tbDane.
ID posta: 362781 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Pomógł: 252 razy
Posty: 1372
Wysłany: 18-02-2019, 03:12   

Chcesz konkretnej odpowiedzi > zadaj konkretne pytanie.
(Pokaż plik z danymi i spodziewanym rezultatem).
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
I dbajmy - proszę - o poprawną polszczyznę.
ID posta: 362786 Skopiuj do schowka
 
 
biju 
Starszy Forumowicz


Posty: 28
Wysłany: 18-02-2019, 08:38   

Załączam przykładowy plik do mojego problemu.

chce jednym fragmentatorem manipulować tabelą i tabelą przestawną

do_neta_fragmentator.xlsx
Pobierz Plik ściągnięto 14 raz(y) 15.83 KB

ID posta: 362795 Skopiuj do schowka
 
 
Cezary Czajka 
Excel Expert


Pomógł: 135 razy
Posty: 649
Wysłany: 18-02-2019, 18:48   

Powinno wystarczyć makro z tej strony: https://stackoverflow.com/questions/49617400/how-to-link-a-table-and-a-pivot-table-using-slicers-in-excel
O dostosowanie trzeba poprosić mądrzejszych ode mnie - próbowałem, ale poległem.
_________________
W sumie - jest git
ID posta: 362848 Skopiuj do schowka
 
 
DwaNiedźwiedzie 
Excel Expert



Pomógł: 213 razy
Posty: 549
Wysłany: 19-02-2019, 13:58   

Wrzuć makro do modułu arkusza, w którym są obie tabele:
Kod:
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim slcr As SlicerCache, tbl As ListObject, s As SlicerItem, arr(), a%

Set slcr = ThisWorkbook.SlicerCaches("Fragmentator_Grupa")
Set tbl = ActiveSheet.ListObjects("tbDane")

For Each s In slcr.SlicerItems
   If s.Selected Then
      ReDim Preserve arr(a)
      arr(a) = s.Caption
      a = a + 1
   End If
Next

tbl.Range.AutoFilter Field:=4, Criteria1:=arr, Operator:=xlFilterValues

Set slcr = Nothing
Set tbl = Nothing

End Sub
ID posta: 362896 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe