Waarde opzoeken, kopieren, en op juiste locatie

[JansenmeteenJ]

Beste,

Ruim een jaar geleden flink geholpen, waarvoor nog steeds mijn dank.

https://www.helpmij.nl/forum/showthread.php/929943-Waarde-in-Blad1-opzoeken-en-gesorteerd-op-Blad2

Echter wil ik het nu een stapje ingewikkelder maken:
Hij zoekt nu een waarde op, welk zich bevindt in "B14"
"B14" is een naam. Dit zoekt hij in de sheet "input", kolom 3.
Plakt de gevonden waarde in sheet "Extern", beginnend bij B1
Dat gaat prima, alleen wil ik het graag bij de juiste dag krijgen.

Code in mijn DATA sheet

With Sheets("Input").Cells(1).CurrentRegion
      .AutoFilter 3, Criteria1:=Range("B14").Value
      .Copy Sheets("Extern").Range("B1")
      .AutoFilter
    End With

Stel, B14 heeft alleen werk gedaan op di, do en vr. Dan krijg ik nu keurig 3 rijen onder elkaar met di, do en vr.
Echter in de eerste kolom heb ik onder elkaar ma tm zo staan. U raadt het al, bij ma komt di te staan, bij di komt do te staan en bij wo komt dan de vr te staan.

Hij zal op een op andere manier moeten sorteren? Of de dag vergelijken?

Ik kwam op deze:

 With Sheets("Input").Cells(1).CurrentRegion
      .AutoFilter 3, Criteria1:=Range("B14").Value, Criteria2:=Range("A1:A7").Value
      .Copy Sheets("Extern").Range("B1:B7")
      .AutoFilter
    End With

Met een tweede criterium in de range A1 tm A7 (daar staan de dagen in) Met een output naar B1 tm B7

Maar dat werkt niet....

 

[JansenmeteenJ]

Ben al stukje aan het puzzelen, maar kom er nog niet uit.
Idee is om het nu in twee stappen te doen. Eerder code maar zo laten en daaronder een code te plaatsen welk "sorteerd"
Dan wordt eerst alles gekopieerd wat aan de citeria voldoed.
Vervolgens moet hij het nog bij de juiste dag sorteren.


Bekijk bijlage sort.xlsx

 

[Jack Nouws]

Is een formule in cel A1 zoals =Weekdag(B1) geen optie?