Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Pagina 2 van 2 EersteEerste 1 2
Weergeven resultaten 21 tot 33 van 33

Onderwerp: Datum meeschuiven in filter

  1. #21
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    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.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  2. #22
    Senior Member
    Geregistreerd
    13 november 2013
    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?
    Bijgevoegde bestanden Bijgevoegde bestanden

  3. #23
    Mega Senior
    Verenigingslid

    Geregistreerd
    27 februari 2016
    Je zou eens kunnen beginnen met de vraag als "Niet opgelost" te zetten.
    Met vriendelijke groet,
    Albert

  4. #24
    Mega Senior
    Verenigingslid

    Geregistreerd
    27 februari 2016
    Voor de maandag zul je het in deze richting moeten zoeken.
    Code:
    If Weekday(Date) = 2 Then 'als het een maandag is
     'code
    else
     'code
    End if
    Met vriendelijke groet,
    Albert

  5. #25
    Mega Senior
    Verenigingslid

    Geregistreerd
    27 februari 2016
    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.?
    Laatst aangepast door AD1957 : 24 september 2021 om 10:56
    Met vriendelijke groet,
    Albert

  6. #26
    Senior Member
    Geregistreerd
    13 november 2013
    Quote Origineel gepost door AD1957 Bekijk Bericht
    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!
    Bijgevoegde bestanden Bijgevoegde bestanden

  7. #27
    Senior Member
    Geregistreerd
    13 november 2013
    Quote Origineel gepost door AD1957 Bekijk Bericht
    Voor de maandag zul je het in deze richting moeten zoeken.
    Code:
    If Weekday(Date) = 2 Then 'als het een maandag is
     'code
    else
     'code
    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?

  8. #28
    Mega Senior
    Verenigingslid

    Geregistreerd
    27 februari 2016
    probeer dit eens.
    Code:
    Private Sub ToggleButton1_Click()
    
     With ToggleButton1
        If .Value And Weekday(Date) = 2 Then      'als het een maandag is dan vrijdag t/m maandag
            ListObjects(1).Range.AutoFilter 3, 5
            ListObjects(1).Range.AutoFilter 4, ">=" & 1 * Date - 3
            .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
    Laatst aangepast door AD1957 : 28 september 2021 om 12:34
    Met vriendelijke groet,
    Albert

  9. #29
    Mega Senior
    Verenigingslid

    Geregistreerd
    27 februari 2016
    code in #28 aangepast, telfoutje
    Met vriendelijke groet,
    Albert

  10. #30
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Of

    Code:
    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
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  11. #31
    Senior Member
    Geregistreerd
    13 november 2013
    Beide werken, super :-)! Dan zet ik hem nu echt op opgelost, bedankt!!

  12. #32
    Mega Senior
    Verenigingslid

    Geregistreerd
    27 februari 2016
    Uitgaande van de openingsvraag kan de code van VenA niet goed werken.
    Met vriendelijke groet,
    Albert

  13. #33
    Senior Member
    Geregistreerd
    13 november 2013
    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

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren