Slicer twee meest recente weeknummers laten zien

[LennartRoest]

Hoi allen,

Ik heb een bestand waarin ik wekelijks nieuwe regels toevoeg. Nu heb ik daar een draaitabel van gemaakt met een slicer waarin ik de meest twee recente weken wil laten zien.

Nu zoek ik naar een macro die ik kan gebruiken die alle slicers in het gehele bestand filtert op de 2 meest recente weken, in het voorbeeld week 14 en 15.

Zelf kan ik alleen macro's maken met de 'opname' methode, maar kan ze niet zelf schrijven. Ik vermoed dat je hiervoor zelf code moet schrijven.. kan iemand me hierbij helpen?

Alvast bedankt!

 

[Piet Bom]

Ik heb van de bron een tabel (Table1) gemaakt.
Omdat het ook moet werken bij jaarwisselingen heb ik het weekformaat verandert naar 2017,52 en 2018,01
De hulpkolommen kun je zichtbaar maken door op het + teken te klikken boven kolom G

 

[VenA]

Voor alle slicers

Sub VenA()
For Each sc In ThisWorkbook.SlicerCaches
  With sc
    .ClearManualFilter
    For Each it In .SlicerItems
      it.Selected = Val(it.Value) >= Application.Max(Sheets("Blad1").Columns(1)) - 1
    Next
  End With
Next sc
End Sub