Opgelost vba draaitabel naar datum vandaag en lijst van niet ingedeelde personen

[Friend]

Beste forummers,

Als het mag 2 vraagjes voor hetzelfde bestandje.

- Graag zou ik met door op de button (datum vandaag) te klikken de draaitabel willen vernieuwen alleen naar de datum van vandaag. Is dat mogelijk? Of is dat een probleem als op de datum van vandaag geen invoer waarde is?

- Hoe is het te verwezenlijken dat door op de button (vernieuwen nog niet ingedeeld) te klikken er in kolom L de namen komen te staan van de personen die nog niet zijn ingedeeld?

Heel veel dank.

Friend

 

[Friend]

Beste forummers,

Wat vraag 1 betreft heb ik het kunnen oplossen met de volgende code :

Sub naardatumvandaag()
'
'  Macro
'

Dim sDate As String

sDate = Format(Now(), "dd-mm-yyyy")


    ActiveSheet.PivotTables("Draaitabel1").PivotFields("Datum").ClearAllFilters
   
    ActiveSheet.PivotTables("Draaitabel1").PivotFields("Datum").PivotFilters.Add2 _
        Type:=xlSpecificDate, Value1:=sDate
End Sub

Vraag 2 heb ik kunnen oplossen door 2 kolommen te gebruiken in de eerste x.zoeken en in de tweede kolom =Filter.

Friend