Opgelost zoeken

[corania17]

Na meerdere vragen te hebben gesteld aan AI die steeds met hetzelfde antwoord komt probeer ik het hier weer eens.
Ik zoek een methode om uit gegevens, mensen te tonen die in een bepaalde leeftijdcategorie zitten.
Op het eerste blad staat hoe ik het wil hebben.
Op het tweede was ik bezig met Vert.Zoeken echter zie ik dan maar één resultaat.
Hoe kan ik toch meerdere resultaten zien die voldoen aan de criteria.
Ik gebruik MsOffice 2013, waar nog geen X.Zoeken wordt gebruikt.
Heeft iemand een idee om dat te realiseren?

Met vriendelike groet, corania

 

[jverkerk]

Zoiets

 

[HSV]

Voor 2013 invoeren als matrix Ctrl+Shift+Enter.

=ALS.FOUT(INDEX($B$2:$B$13;KLEINSTE(ALS($A$2:$A$13=D$1;RIJ($A$1:$A$12));RIJ($A1)));"")

 

[jverkerk]

Met de varianten van HSV en mij bij elkaar.

 

[peter59]

Nog maar eentje.
Zonder matrix formule maar met hulpkolom.

 

[corania17]

jverkerk en HSV hartelijk dank voor de oplossing alleen snap ik er geen hout van.
Is dit ook te doen met een macro?
Elke maand worden de kolommen A en B verwisseld met nieuwe gegevens.
Als ik nu dus iets wijzig is de uitwerking weg.
Daarom denk ik dat een macro een betere oplossing is, als dat mogelijk is?

Met vriendelijke groet, corania

 

[jverkerk]

Ongeveer?
Zal ongetwijfeld beter kunnen.

 

[emields]

of zo? het is natuurlijk gokken als je er niet bij verteld wat de criteria zijn om tot welke categorie te behoren.

 

[corania17]

Hallo jverkerk,
Dank u dit is veel beter en het werkt prima.
Nu nog in het gehele programma verwerken, maar dat gaat wel lukken.
Nogmaals bedankt.

Met vriendelijke groet, corania

 

[HSV]

Mosterd na de maaltijd:
In je voorbeeldbestand, die alleen ingewikkeld is voor @emields.

Sub hsv()
Dim sv, i As Long, k
sv = Cells(2, 1).CurrentRegion
Range("d1").CurrentRegion.Offset(1).ClearContents
 For i = 1 To UBound(sv)
   k = Application.Match(sv(i, 1), Range("d1:h1"), 0)
   If IsNumeric(k) Then Cells(Rows.Count, k + 3).End(xlUp).Offset(1) = sv(i, 2)
 Next i
End Sub