Příspěvky uživatele
< návrat zpět
Nakonec jsem zjednodušil vba code pro filtr na: buňka A1 se rovná buňce AG1 atd. + time obnova spolu s refreshpivottable.... 
Ale děkuji za pomoc
Tak to testuji a vyskočilo hlášení: ByRef argument type mismatch...
Zdravím,
Mám několik kontingenčních tabulek (data z ext.zdroje), které filtruji pomocí hodnoty v buňkách přes vba.
Rád bych dané macro zjednodušil hlavně kvůli rychlosti provedení. Tedy níže uvedený code/příklad zakomponoval do SELECT CASE.
Sub PivotFilter()
Application.ScreenUpdating = False
If Sheets("List1").Range("AG1").Value > 0 Then
'Nastaveni proměnných
Dim pt As PivotTable
Dim pt1 As PivotTable
Dim pt2 As PivotTable
Dim pt3 As PivotTable
Dim Field As PivotField
Dim Field1 As PivotField
Dim Field2 As PivotField
Dim Field3 As PivotField
Dim NewCat As String
Dim NewCatP As String
'Nastavení kontingenční tabulky
Set pt = Worksheets("List1").PivotTables("Data") 'Nastavení názvů kontingenční tabulky
Set pt1 = Worksheets("List1").PivotTables("Hodnota")
Set pt2 = Worksheets("List1").PivotTables("Pozice")
Set pt3 = Worksheets("List1").PivotTables("Souhrn")
Set Field = pt.PivotFields("ID_smart") 'Nastavení FILTRU/hodnoty, která se má měnit v kontingenční tabulce
Set Field1 = pt1.PivotFields("ID_smart")
Set Field2 = pt2.PivotFields("ID_lost")
Set Field3 = pt3.PivotFields("ID_lost")
NewCat = Worksheets("List1").Range("AG1").Value ' Hodnota bunky určující co se má zobrazovat v kontingenční tabulce - FILTR
NewCatP = Worksheets("List1").Range("AG4").Value
'Update dat
With pt
Field.ClearAllFilters
Field.CurrentPage = NewCat
pt.RefreshTable
End With
With pt1
pt1.RefreshTable
End With
With pt2
Field2.ClearAllFilters
Field2.CurrentPage = NewCatP
pt2.RefreshTable
End With
With pt3
Field3.ClearAllFilters
Field3.CurrentPage = NewCatP
pt3.RefreshTable
End With
End If
Application.ScreenUpdating = True
End Sub
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články