op 1 lijntje

[Spiesse]

Beste,
in bijlage een begin van een bestand... met de gewenste uitkomt

Het gaat om het volgende: In kolom A heb ik allemaal verschillende codenummers die meerdere malen voorkomen. In Kolom D heb ik verschillende artikelcodes die mogelijk zijn.

Graag had ik geweten hoe ik alle mogelijkheden uit Kolom D op 1 lijn kan krijgen per uniek codenummer...

Hopelijk brengt het bestand wat duidelijkheid; ik kan er alleszins niet mee weg

groeten,
spiesse

Bekijk bijlage op 1 lijntje.xlsx

 

[Niels28]

in d13:

=INDEX(Tabel1[#Alles];GROOTSTE((Tabel1[Partno.]=$A13)*(RIJ(Tabel1[Partno.]));KOLOM(A$1));4)

Matrixformule afsluiten met CTR-SHIFT-ENTER.

Niels

 

[Spiesse]

Jups Niels,

alvast bedankt voor de formule! Die doet dus effectief wat ik wil

Zou het ook lukken voor excel )) dat dit in de bovenste tabel gebeurt? maar dan is het wel zo dat de rijen van de 'getransponeerde' artikelcodes verwijderd worden... Dus dat de unieke lijst gegenereerd wordt in mijn plaats

groeten,
spiesse

 

[Niels28]

bij deze....

Sub tabelopschonen()
    Set r = Sheets(1).Range("A2:A7")
    For Each cl In r
        i = WorksheetFunction.CountIf(r, cl.Value)
        If i > 1 Then
            cl.Offset(, 4).Resize(1, i - 1).Value = Application.Transpose(cl.Offset(1, 3).Resize(i - 1, 1).Value)
            cl.Offset(1).Resize(i - 1, 4).Delete shift:=xlUp
        End If
    Next
End Sub

Niels

 

[Spiesse]

hey niels,
van de moment ik kan ga ik dit testen. uw matrixformule heeft alles véél kunnen betekenen voor het bestand
had wel enkele tussenstappen nodig maar dat lag niet aan jouw formule

bedankt en groeten
spiesse

 

[Spiesse]

getest en méér dan goedbevonden!!!!!

deze gaat op opgelost voorlopig

thx!
spiesse

 

[Niels28]

deze gaat op opgelost voorlopig

Doe je dan dan even boven aan je vraag met de knop.

Niels

 

[Spiesse]

... oeps?