Datum meeschuiven in filter

[VenA]

Welke kant wil je eigenlijk op? Je hebt diverse suggesties gekregen maar reageert zeer selectief. Het geavanceerde filter? Het autofilter? Of filteren dmv een Userform? komen de orders 24/7 binnen anders krijg je op maandag geen gegevens te zien. Zoals je kan zien kunnen we van alles in elkaar knutselen maar als jij niet helder bent in de vraagstelling dan gaat dit een lang draadje worden.

 

[jelle87]

Daar heb je wel gelijk in, ik krijg telkens nieuwe inzichten dankzij de verschillende suggesties haha.

Ik heb nu een combinatie gemaakt voor jouw voorstel met de Togglebutton, en de code van AD1957 (zie bijlage).

Echter, daar zijn nog 2 open eindjes;
- Het liefst zou ik zien dat de filter niet verwijderd wordt met de knop, maar dat hij gereset wordt.
- En je hebt gelijk over die orders, die komen van maandag t/m vrijdag binnen, wat op maandag dus zou betekenen dat de orders van vrijdag niet zichtbaar zijn middels de Togglebutton.

Heeft iemand hier nog een idee over?

 

[AD1957]

Je zou eens kunnen beginnen met de vraag als "Niet opgelost" te zetten.

 

[AD1957]

Voor de maandag zul je het in deze richting moeten zoeken.

If Weekday(Date) = 2 Then [COLOR="#008000"]'als het een maandag is[/COLOR]
[COLOR="#008000"] 'code[/COLOR]
else
[COLOR="#008000"] 'code[/COLOR]
End if

 

[AD1957]

1e vraag over het hoofd gezien.

Het liefst zou ik zien dat de filter niet verwijderd wordt met de knop, maar dat hij gereset wordt.

Wat bedoel je hiermee/wat is het probleem.?

 

[jelle87]

1e vraag over het hoofd gezien.

Wat bedoel je hiermee/wat is het probleem.?

Ik heb nu deze code er in staan, zodra de Toggleknop 'uit' geklikt wordt:

ListObjects(1).Range.AutoFilter

Maar daarmee wordt de hele filter van de tabel verwijderd. Het liefst zou ik willen zien dat het resultaat uit de filter gewist wordt, zodat het filter nog wel op de tabel blijft staan (om eventueel handmatig nog te kunnen filteren). Ik ben zelf aan het puzzelen geweest en heb dat nu opgelost door de code aan te vullen:

ListObjects(1).Range.AutoFilter
ActiveSheet.ListObjects("Tabel1").Range.AutoFilter

Zie ook bijlage, dus dat werkt nu. Nu moet ik alleen nog proberen uit te vogelen hoe ik het weekend ertussen uit haal qua orderdatum, maar bedankt voor die suggestie!

 

[jelle87]

Voor de maandag zul je het in deze richting moeten zoeken.

If Weekday(Date) = 2 Then [COLOR="#008000"]'als het een maandag is[/COLOR]
[COLOR="#008000"] 'code[/COLOR]
else
[COLOR="#008000"] 'code[/COLOR]
End if

Ik ben al een poosje aan het knooien, maar kom er niet uit helaas. Zou je me wellicht nog een beetje in de juiste richting willen helpen?

 

[AD1957]

probeer dit eens.

Private Sub ToggleButton1_Click()

 With ToggleButton1
    If .Value And Weekday(Date) = 2 Then     [COLOR="#008000"] 'als het een maandag is dan vrijdag t/m maandag[/COLOR]
        ListObjects(1).Range.AutoFilter 3, 5
        ListObjects(1).Range.AutoFilter 4, ">=" & 1 * Date -[COLOR="#FF0000"][SIZE=4][B] 3[/B][/SIZE][/COLOR]
        .Caption = "Filter uitzetten"
    ElseIf .Value Then
        ListObjects(1).Range.AutoFilter 3, 5
        ListObjects(1).Range.AutoFilter 4, ">=" & 1 * Date - 1
        .Caption = "Filter uitzetten"
    Else
        ListObjects(1).AutoFilter.ShowAllData
        .Caption = "Klik hier om te filteren"
    End If
       .BackColor = IIf(.Value, vbRed, vbGreen)
 End With
 
End Sub

 

[AD1957]

code in #28 aangepast, telfoutje:d

 

[VenA]

Of

Private Sub ToggleButton1_Click()
  With ToggleButton1
    If .Value Then
      ListObjects(1).Range.AutoFilter 4, ">=" & CDbl(Date - 1) - (4 * Weekday(Date, 2) = 1) - (3 * Weekday(Date, 2) = 2)
      .Caption = "Filter uitzetten"
     Else
      ListObjects(1).Range.AutoFilter
      .Caption = "Klik hier om te filteren"
    End If
    .BackColor = IIf(.Value, vbRed, vbGreen)
  End With
End Sub

 

[jelle87]

Beide werken, super ! Dan zet ik hem nu echt op opgelost, bedankt!!

 

[AD1957]

Uitgaande van de openingsvraag kan de code van VenA niet goed werken.:d

 

[jelle87]

haha, ik ben van links naar rechts geswitcht qua toepassing, dus de originele vraag is al niet helemaal juist meer. Maar ik gebruik nu inderdaad jouw stukje(s) code