meerdere zoekresultaten verkrijgen

[seppistoteles]

Hallo,

ik heb mezelf reeds suf gezocht maar vind geen oplossing.

In de file in bijlage zou ik per ID in de kolom opmerking alle codes uit de sheet codes die bij bijpassende ID horen moeten krijgen. Dus bij ID 1 zou ik in kolom opmerking "a b d e" willen bekomen en bij ID 2 "a c d f".

Bestaat er een zoekfunctie/formule die dat mogelijk maakt?

Bekijk bijlage ID.xlsx

 

[Cobbe]

Op deze manier :

 

[seppistoteles]

Hey Cobbe,

dat is inderdaad een oplossing die werkt voor mijn voorbeeld maar nu heb ik in de eigenlijke file (die ik wegens beroepsredenen niet wereldkundig kan maken) enkele duizenden verschillende ID's en een 75-tal codes om aan deze ID's te linken, meestal wel maar 7 of 8 per ID...

In dat geval is een Pivottabel tamelijk onoverzichtelijk :s

 

[JeanPaul28]

of op deze manier

 

[Warme bakkertje]

Of deze

Sub Overzicht()

    Dim dic As Object
    Set dic = CreateObject("Scripting.Dictionary")
    Application.ScreenUpdating = False
    sn = Sheets("codes").Cells(1).CurrentRegion
    For i = 2 To UBound(sn)
        If Not dic.exists(sn(i, 2)) Then
            dic.Add sn(i, 2), sn(i, 1)
        Else
            dic.Item(sn(i, 2)) = dic.Item(sn(i, 2)) & " " & sn(i, 1)
        End If
    Next
    With Sheets("ID's")
        .Range("A2:B" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
        .Range("A2").Resize(dic.Count).Value = Application.Transpose(dic.keys)
        .Range("B2").Resize(dic.Count).Value = Application.Transpose(dic.items)
    End With
    Application.ScreenUpdating = True
    
End Sub

 

[seppistoteles]

of op deze manier

JeanPaul28, de code voor "nummers" heb ik gevonden maar waar zie ik die van DataID? :s

 

[JeanPaul28]

seppistoteles DataId is een naam bereik waar er een zoek actie gedaan wordt, wanneer je data bijvoegd zal het naam bereik zich automatisch aanpassen.

 

[seppistoteles]

seppistoteles DataId is een naam bereik waar er een zoek actie gedaan wordt, wanneer je data bijvoegd zal het naam bereik zich automatisch aanpassen.

Welk bereik heb je in het voorbeeld gedefinieerd als DataID?

 

[JeanPaul28]

Tabblad codes Range("B2:B9"),deze veranderd automatisch als data bijvoegd

 

[seppistoteles]

hmm ik krijg steeds de error #VALUE...

 

[JeanPaul28]

bij mij werkt ie , ook als ik data bijvoeg

 

[seppistoteles]

ja uw voorbeeld werkt maar als ik het probeer over te brengen naar de file die bewerkt moet worden krijg ik die foutmelding...ik heb nochtans de range waarin gezocht moet worden gedefinieerd en de formule "nummers" integraal overgenomen...

 

[JeanPaul28]

Kan je dat bestand mij niet doorsturen, indien er informatie op staan dat niet gewest is voor op het forum te verschijnen kan het ook via prive mail, zonder enige verplichting.

 

[Warme bakkertje]

Heb je mijn code al eens getest ?
Geen gedoe met gedefinieërde namen of doortrekken van formules. Gewoon macrootje in standaardmodule en uitvoeren.
Dit kan je zelfs zo automatiseren dat telkens je iets wijzigt in kolom B van tabblad codes dat de code automatisch nieuwe resultaten geeft.

 

[seppistoteles]

Bekijk bijlage ID2.xlsx

Dus JeanPaul: in de kolom M zou ik de opsomming moeten verkrijgen van de voucher codes uit sheet Blad1 Kolom B die dezelfde ID hebben in kolom K als in sheet WELLBN15 kolom B...

 

[seppistoteles]

Heb je mijn code al eens getest ?
Geen gedoe met gedefinieërde namen of doortrekken van formules. Gewoon macrootje in standaardmodule en uitvoeren.
Dit kan je zelfs zo automatiseren dat telkens je iets wijzigt in kolom B van tabblad codes dat de code automatisch nieuwe resultaten geeft.

Zal ik ook eens testen

 

[JeanPaul28]

Je bestand aangepast, zorg er voor dat je in je te zoeken bereik NL blad1 kolom K steeds een getal hebt staan en zeker geen N/B dan werk je functie niet.
Ik heb nu alle N/B veranderd in 1.

http://www.mijnbestand.nl/Bestand-YPQA7LAOQVN6.xls

 

[seppistoteles]

That's it Jean-Paul! Bedankt!