Zoeken in 3 kolommen

Status
Niet open voor verdere reacties.
Z

zwaanser

Gebruiker
Lid geworden
30 jan 2009
Berichten
34
Beste forumleden

ik kom onderstaand probleem tegen.
Ik heb een lijst met een dossiernummer en 3 kolommen met namen.
Nu zou ik alle dezelfde namen uit deze 3 kolommen willen laten zien in een listbox met het juiste dossiernummer erachter.
is dit uitvoerbaar? Ik kom er niet uit op mijn manier, zie bijgevoegde bijlage.

Alvast bedankt voor enige reactie.
Greatz Bert
 

Bijlagen

  • ZOEKEN IN 3 KOLOMMEN.xlsm
    24,7 KB · Weergaven: 29
Bijvoorbeeld (haal de huidige macro weg):

Code: 
Sub CmdZoek_Click()
 Dim i As Long
 With ListBox1
   .List = Cells(5, 1).CurrentRegion.Value
   For i = .ListCount - 1 To 0 Step -1
      If InStr(.List(i, 1) & "|" & .List(i, 2) & "|" & .List(i, 3), [B3]) = 0 Then .RemoveItem i
     .List(i, 1) = [B3].Value
   Next
 End With
End Sub
 
Laatst bewerkt:
Als je office 365 hebt, kun je het ook af met een dynamische formule

Code: 
=LET(x;FILTER(A6:A15;PRODUCTMAT(N(B6:D15=B3);{1;1;1}));KIEZEN({1\2};x;ALS(x;B3)))
 
Hoi JV, werken beide. super bedankt voor de ZEER snelle reactie.
Je bent een held !
Van dynamische formules heb ik zelfs nog niet gehoord, zal ik zeker ook eens bekijken.

Nogmaals bedankt
Greatz Bert
 
Graag gedaan!
 
Of
Code: 
Sub M_snb()
   sn = Cells(6, 1).CurrentRegion
   
   For j = 1 To UBound(sn)
       c00 = c00 & "|" & Join(Application.Index(sn, j), "|" & sn(j, 1) & " ")
   Next
   
   ListBox1.List = Filter(Split(Mid(c00, 2), "|"), "NAAM 10")
End Sub
 
Eigenlijk exact op dezelfde manier. Maak een listbox en een commandbutton in je userform. De eerder aangereikte code kan dan achter die knop.
 
Dit is gelukt, maar de CurrentRegion werkt enkel op het actieve blad als ik het goed heb.
Kan dit ook met een range in een tabblad?
Bvb sheets("blad2").range("D10:G19")
Zie bijgevoegd voorbeeld in bijlage.
 

Bijlagen

  • ZOEKEN IN 3 KOLOMMEN.xlsm
    24,4 KB · Weergaven: 10
De listbox wordt nu gevuld vanuit blad2
Heb wat dingen versimpeld. Als je begint te typen in de textbox, zie je de lijst steeds kleiner worden.
 

Bijlagen

  • ZOEKEN IN 3 KOLOMMEN (2).xlsm
    29,3 KB · Weergaven: 43
Er zit toch nog een bug in denk ik.
Als ik "Naam 1" zoek krijg ik deze van "Naam 10" ook te zien.
Wat natuurlijk niet de bedoeling is.
 
Klopt, maar naam 1 is natuurlijk een fictieve naam.
 
Dan zou deze variant beter zijn voor jou
 

Bijlagen

  • ZOEKEN IN 3 KOLOMMEN.xlsm
    32 KB · Weergaven: 20
Laatst bewerkt:
Hey JV, bedankt voor de reactie, ik ga dit volgende week eens uitpluizen.
Het ziet er in ieder geval uit zoals ik het bedoelde. Nu moet ik alleen de code nog gaan snappen :d
Ik hou je op de hoogte.
Alvast super bedankt. :thumb:
 
Hey allen, ik heb nog zitten stoeien met het zoeken in 3 kolommen, maar ik kom er toch niet helemaal uit.
Is het ook mogelijk om na het zoeken van de naam en het uitfilteren van de dossiernummer ook nog de 3 namen bij het dossiernummer horend in de listbox te laten zien?
Kan er mij ook iemand uitleggen wat & "|" & in deze macro doet ?
Alvast bedankt.
 

Bijlagen

  • ZOEKEN IN 3 KOLOMMEN.xlsm
    74,1 KB · Weergaven: 16
Zet Columncount in de eigenschap van UF op 4.

Code: 
Private Sub CommandButton1_Click()
 ar = Sheets(2).Range("D9").CurrentRegion.Offset(1).Value
  For i = 1 To UBound(ar)
    If InStr(1, "|" & Join(Application.Index(ar, i), "|") & "|", "|" & TextBox1.Value & "|", 1) Then s0 = s0 & i & "|"
  Next i
 If Len(s0) > 0 Then ListBox1.List = Application.Index(ar, Application.Transpose(Split(s0, "|")), Array(1, 2, 3, 4))
End Sub
 
Hey Harry, dit lijkt mij te werken, ik ga het nu implementeren in mijn Excel projectje en zie hoever ik hiermee kom.
Alvast bedankt voor jou reactie. Super. :thumb:
 
Beste forumhelden, ik ben al ver gekomen met het zoeken in 3 kolommen dankzij jullie fantastische hulp.
Deze kan ik echter nog eens gebruiken.
Momenteel zit ik te stoeien met de methode van Harry. Echter deze laat de gevonden waarde alleen zien als de naam volledig ingetypt is.
Is het ook mogelijk dat de mogelijke namen verschijnen in de listbox en je dan de juiste naam kunt kiezen? Kwestie om typfouten uit te sluiten.
Alvast bedankt voor de hulp.

Greatz Bert
 
Je zoekt een oplossing voor diverse struktuurfouten:

- de gegevens van alle werkbladen horen in 1 tabel op het werkblad Dossiers
- de labels in het usrform zijn overbodig, want de caption van het Userform geeft dit al aan
- de tabvolgorde van de controls in het userform staat verkeer.
- van de gegevesn in werkblad dossiersd is geen dynamische tabel gemaakt, zodat je niet van de ingebouwde filters gebruik kunt maken.
- je maakt onnodig onderscheid tussen hoofd- en kleine letters.
- je geeft geen enkele informatie wat je ontwikkeld hebt en waarom dat niet succesvol was in jouw ogen.
- je maakt geen gebruik van cel A1 in het werkblad.
- het lijkt of caps lock steeds aanstaat.
 

Bijlagen

  • __3KOLOM.xlsb
    65,7 KB · Weergaven: 24
Goeiemorgen snb

Ik was mij niet bewust van deze structuurfouten die jij mij aanreikt.
Ik ben zelf niet zo een specialist maar probeer er natuurlijk wel uit te leren, en daar is deze site een geweldige tool voor, net door de experten in de materie.
Ik ga alles eens nakijken en zal daar wel een hoop van opsteken.
Bedankt voor de feedback, ik heb precies nog werk aan de winkel.

Greatz
Bert
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan