Aktywne Wpisy
RyanWolf +369
Jeśli ktoś broni Biedronki tekstem "wystarczy czytać, co napisane", choruje na wybitne upośledzenie. Patrzę już dwa razy zawsze, żeby sie nie naciąć i co? Taki wał. Te #!$%@? wymyślają co rusz nowe myki, żeby naciąć klienta. Miałem mozarelle galbani po promocji, myślę - wezmę. Miała być po 2.5. Podchodzę, upewniam się, że to TA SAMA galbani, do koszyka. Przy kasie - nie ma promocji. Ki czort. A nie ma promocji, bo w
SebastianDosiadlgo +181
JESTEM p0lką
SILNĄ, MĄDRĄ, KOBIECĄ
PEWNĄ,
SIEBIE NIEZALEŻNĄ
TROSKLIWĄ ZABAWNĄ, BEZPOŚREDNIĄ
DO BÓLU SZCZEHĄ
#p0lka #bambusowylas #polska
SILNĄ, MĄDRĄ, KOBIECĄ
PEWNĄ,
SIEBIE NIEZALEŻNĄ
TROSKLIWĄ ZABAWNĄ, BEZPOŚREDNIĄ
DO BÓLU SZCZEHĄ
#p0lka #bambusowylas #polska
źródło: temp_file1935241049495976357
Pobierz
Chcę zrobić makro, w którym podczas robienia tabeli przestawnej automatycznie odfiltruje się jedna rzecz. Znalazłem kod w internecie i działa.
Problem pojawia się wtedy kiedy w zestawieniu, z którego chcę zrobić tabelę przestawną nie ma tej rzeczy, którą normalnie chce odfiltrować. Wtedy w tabeli przestawnej pojawia się dodatkowa kolumna "Puste".
Mam nadzieję, że w miarę jasno opisałem swój problem xd
Kod wygląda tak:
Dim pt As PivotTable, pivotitem As PivotItem
For Each pt In ActiveSheet.PivotTables
If pt.Name = "Tabela przestawna1" Then 'check that pivot name exists
For Each pivotitem In pt.PivotFields("ODDOS").PivotItems
If pivotitem.Name = "0" Then 'check that item name exists
pivotitem.Visible = False: Exit For
End If
Next pivot_item: Exit For
End If
Next pt
#excel #vba