Selecteer cellen in een range op basis van meerdere waarden

[hmwul]

In kolom A staan op diverse plekken dagen vermeld en wel als volgt

(voorbeeld)
Thu 3 Jan 2019
Sat 5 Jan 2019
Sun 6 Jan 2019
Mon 7 Jan 2019
Tue 8 Jan 2019

Vergeefs gezocht naar een 'tool' (een add-in, o.i.d.) waarbij ik cellen kan selecteren op basis van meerdere waarden.
Laten we zeggen, selecteer cellen op: Mon,Tue,Wed of "Mon","Tue","Wed"

Weet iemand hier een oplossing voor?

De geselecteerde cellen moeten daarna gekopieerd worden naar een andere kolom, maar wel met hetzelfde aantal regels ertussen.
Dát is geen probleem, daar heb ik een oplossing voor.
Het gaat alleen om het selecteren dus.

Dank bij voorbaat.

(zie bijgaand bestandje)

 

[JEC.]

Run deze eens

Sub j_v()
For Each cell In Sheets(1).Range("A1", Cells(Rows.Count, 1).End(xlUp))
  For Each it In Array("Mon", "Thu", "Wed")
    If InStr(cell, it) > 0 Then cell.Resize(6).Copy Sheets(1).Cells(cell.Row, 5)
  Next
Next
End Sub

 

[tkint]

Beste Jveer,

Kan je ook via een dialoogvenster aangeven op welke waarden je wil selecteren?

 

[JEC.]

Je zou iets kunnen doen met een Userform.
Of je typt je waarden in een bereik, waarnaar je in de VBA code verwijst.

Edit :Aantal rijen aangepast wanneer je zoekt naar Fri, viel me op dat er minder rijen tussen zitten dan bij de andere dagen.
Bvb:

 

[tkint]

Beste JVeer,

Bedankt voor de snelle reactie. Wat gebruik jij "krachtige" instructies. Mijn kennis van VBA rijkt zover niet

 

[hmwul]

De regels ertussen zijn inderdaad verschillend.
In het bronbestand staan daar opmerkingen, soms geen, soms 2 of 3 regels. Vandaar.

De add-in die ik gebruik kan wel cellen selecteren op basis van 1 waarde, maar niet in 1x op diverse waarden.

Dus 7x dezelfde aktie. Ik hoopte op een eenvoudigere oplossing, vandaar de vraag.
Vooral omdat het wel vaker voorkomt.
(Nu is dit toevallig over dagen van de week, maar ik kan mij voorstellen dat zoiets als 'selecteren op meerdere waarden' wel vaker voorkomt)





iedere keer wanneer ik wat upload is het niet te openen
dus nu een link naar imgur

 

[cow18]

zoiets ?
Je bijlage is niet te openen

 

[hmwul]

Ik kom hierop z.s.m. terug.
Komt wat tussendoor.

Google Sheets -schijnt- wat te kunnen met regex, maar ik werk niet met Google Sheets.
Zoeven gekeken, maar echt cellen selecteren, in 1x, dat is kennelijk toch ingewikkeld.

 

[cow18]

je kan in dit geval ook al heel veel met de autofilter-functie

 

[hmwul]

Opgelost!

Heel hartelijk dank voor alle hulp.