Příspěvky uživatele


< návrat zpět

Konting. tabulky Filtr podle hodnoty v buňce (10.2.2017 17:07)

Nakonec jsem zjednodušil vba code pro filtr na: buňka A1 se rovná buňce AG1 atd. + time obnova spolu s refreshpivottable.... 1

Ale děkuji za pomoc

Konting. tabulky Filtr podle hodnoty v buňce (6.2.2017 16:12)

Tak to testuji a vyskočilo hlášení: ByRef argument type mismatch...

Konting. tabulky Filtr podle hodnoty v buňce (6.2.2017 13:38)

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

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje