MS Excel

Téma: Filtrování grafu

Zaslal/a Nomi 31.5.2023 14:55

Zdravím, neporadíte jak upravit kód na filtrování grafu dle datumu.
Mám v Buňce B1 datum do kdy a v B3 datum od kdy bych chtěl Graf zobrazit.

Sub Datum()
With Worksheets("Mail")
DoData = Format(.Range("B1").Value, "dd.mm.yyyy")
OdData = Format(.Range("B3").Value, "dd.mm.yyyy")
End With
ActiveSheet.ChartObjects("Graf 2").Activate
ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
ActiveSheet.ChartObjects("Graf 2").Activate
AtiveChart.PivotLayout.PivotTable.PivotFields("Datum").ClearAllFilters
ActiveSheet.ChartObjects("Graf 2").Activate
ActiveChart.PivotLayout.PivotTable.PivotFields("Datum").PivotFilters.Add2 Type:=xlAfter, Value1:=OdData
ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh

End Sub

Ale prostě se mi nedaří, makro si načte datumy dobře, jsou ve formátu datum krátký dd.mm.yyyy - tak jsou i ve zdrojovém listu ze kterého je graf dělán.
(25.05.2023
xx.xx.xxxx
30.05.2023)
, poté graf vymaže původní zafiltrování, ale zastavuje se to filtraci dle mích představ
ActiveChart.PivotLayout.PivotTable.PivotFields("Datum").PivotFilters.Add2 Type:=xlAfter, Value1:=OdData
Případně v bunce B2 je kolik dní chci filtrovat jestli je to jednoduší pro makro.

Zaslat odpověď >

Anonym(31.5.2023 15:55)#054978

za zkoušku by stálo
https://wall.cz/excel-navod/funkce-posun-a-dynamicky-grafcitovat

Uživatelské menu

Nejste přihlášen(a)

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.