Zoekfunctie

[terbeest]

Hallo Helpmijers,

Ik zit met een probleempje waar ik niet helemaal uitkom.

Ik heb een lijst van Problemen met apparatuur in excel gezet en dmv wat knoppen gebruikersvriendelijk gemaakt. Nu wilde ik alleen een tabblad Zoeken opnemen in de excel sheet waarmee je op verschillende manieren (lees: in verschillende kolommen van de lijst) kunt zoeken. Dus zoeken op trefwoord in kolom A, zoeken op data die in kolom B staan en zoeken op Naam in kolom C)

Ik heb daarom 3 verschillende invoervelden gemaakt en dus ook 3 verschillende command-buttons. Maar ik krijg de zoekfunctie niet goed. Hij moet als ik bijv op datum zoek een lijstje geven (op een ander blad genaamd resultaten) van alle datums die in de lijst voorkomen met daarachter de andere kolommen die erbij horen.

Hopelijk kan iemand mij hiermee (op weg) helpen!

Groeten,

 

[jzeedijk]

Hoi Bert,

Sub Commandbutton1_Click()
Range("A5:K99").Select
Selection.Sort Key1:=Range("a5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Vervang a5 voor b5 of c5 bij andere knoppen. Let op dat je je sorteerbereik goed invoert (daar ging het bij jou waarschijnlijk fout)!

Jeroen

 

[terbeest]

Jeroen,

Bedankt voor je reactie, maar ik geloof dat je het niet helemaal goed begrepen hebt.

Jou formule sorteerd mijn lijst. Daar heb ik niet zoveel aan, ik wil dat ik met een ZOEKFUNCTIE data uit een lijst kan halen en kan weergeven in een ander tabblad. Hierbij moet hij wel alle regels die aan de zoekcriteria voldoen weergeven.

Hopelijk is het zo wat duidelijker.

Groeten,

 

[jzeedijk]

Hoi Bert,

Misverstandje.

Je kunt een extra kolom toevoegen waarin je de formule zet:
Blad1!K11: =Als(isfout(vind.spec($B$5;A11));"";Rij())
Je krijgt nu alle rijnummers van teksten in kolom A die de tekst uit veld B5 bevatten.

Deze resultaten kun je weer eenvoudig onder elkaar zetten met de formule:
Blad2!K11: =als(aantal(blad1!K:K)<Rijen(K$11:K11);"";kleinste(blad1!K:K;rijen(K$11:K11)))
Blad2!A11: =als($K11="";"";verschuiving(Blad1!A$1;$K11-1;0))

Het bovenstaande is uitgewerkt voor kolom A, maar in de eerste formule kun je natuurlijk ook kolom B en kolom C opnemen in een OF-functie.

Niks geen knoppen of ingewikkelde VBA, gewoon direct in Excel.

Jeroen

 

[terbeest]

Hey jeroen,

Hardstikke bedankt... Ik ga het gelijk proberen, even wat knoppen en ingewillkelde VBA aan koppelen en klaar

Groeten,