Toggle button om te filteren op inhoud / datum

[jelle87]

Goedenmiddag,

Ik lees uit onze data base een aantal factuur gegevens uit, waaronder ook de magazijnstatus. Hierin staan verschillende dingen, waaronder de datum waarop het pakket verzonden wordt.

Met behulp van een toggle button zou ik graag willen filteren in de tabel, waarbij alleen de resultaten worden weergeven waar de datum van vandaag staat.

bijvoorbeeld:
Factuur 1 heeft als status: 5 FA 04-03-22 12:46 DPD=1
Factuur 2 heeft als status: 5 DM 23-02-22 15:54 DPD=1
factuur 3 heeft als status: 5 RR 01-03-22 12:14 DPD=5

Factuur 1 uit het bovenstaande voorbeeld bevat de datum van vandaag (04-03-22), factuur 2 niet. Dus als de knop ingedrukt wordt, dan moet alleen factuur 1 getoond worden.

Is dit mogelijk ?

 

[edmoor]

Dit voor je knop:

Private Sub ToggleButton1_Click()
    If ToggleButton1 Then
        ActiveSheet.ListObjects("Tabel1").Range.AutoFilter Field:=2, Criteria1:="=*" & Format(Date, "dd-mm-yy") & "*"
    Else
        ActiveSheet.ListObjects("Tabel1").Range.AutoFilter Field:=2
    End If
End Sub

 

[jelle87]

Perfect, dat is hem. De vraag kan meteen op opgelost, bedankt!