VBA filter aan de hand van datum

[Evertblokdijk]

Goede dag allemaal

Ik ben opzoek naar een VBA (liefst eentje die je activeert met een knop)
die aan de hand van een datum, orders filtert uit het order blad .. en deze vervolgens onder elkaar in een overzicht zet

Zie bijlage
Blad 1 is waar onder de data van maandag t/m Zondag de ordernummers zouden moeten komen te staan
Blad orders .. is het blad waar de orders zich bevinden die ik dan graag op blad 1 tevoorschijn zie komen, gefiltered aan de hand van de datum

Ik heb de gewenste resultaten voor 03-02-20 alvast (Handmatig) ingevuld

Zou iemand zo vriendelijk kunnen zijn, mij hierbij te helpen ?

Alvast vriendelijk bedankt voor jullie feedback

Evert

 

[Evertblokdijk]

Sorry .. Bijgaan bestand met ingevulde resultaten op 03-02-20

 

[VenA]

De opzet van het blad 'orders' is niet echt handig. Gebruik in iig kolomkoppen.

Sub VenA()
ar = Sheets("Blad1").Range("A5:AB5")
  With Sheets("Orders").Cells(1, 2).CurrentRegion
    For j = 4 To UBound(ar, 2) Step 4
      .AutoFilter 8, Format(ar(1, j), "d-mm-yy")
      .Columns(1).Offset(1).Copy Sheets("Blad1").Cells(6, j)
    Next j
    .AutoFilter
  End With
End Sub

 

[Haije]

Evert,

zie bijlage

 

[Evertblokdijk]

Ik heb een knop gemaakt, Jouw macro er aangekoppeld.. Maar krijg een VBA 400 fout

 

[Evertblokdijk]

HAIJE .. dit werkt perfect !!!
Dank je !!!

 

[Haije]

Fijn, graag gedaan!

Markeer je de vraag dan nog even als "opgelost"?

 

[VenA]

Fout 400 kan ik niet reproduceren. Hier werkt het gewoon.