Ingewikkelde kwestie: sorteren van gegevens aan de hand van een BOM-levelnr.

[JanHorstink]

Beste forum leden,

Tijdens mijn werk ben ik erg druk bezig met het sorteren van een BOM(bill of meterial) in verschillende tabellen. Dit werk bestaat uit gewoon dom gegevens kopieren uit een bestaande gegevenslijst.
Nu ben ik bezig met het verbeteren van het template waarin ik werk en probeer ik een formule te bedenken om deze gegevens automatisch in de juiste velden te plaatsen. Echter kom ik er maar niet uit.

Kunnen jullie een manier verzinnen waarop dit wel mogelijk is of vraag ik gewoon te veel van Excel?
In de bijlage zit een voorbeeld met een toelichting van de kwestie.


Mocht je de oplossing hebben ben je echt een held!

Alsvast bedankt voor het kijken.

Vriendelijke groet, Jan Horstink

 

[Timshel]

Heb je deze draad al bekeken?
http://www.helpmij.nl/forum/showthread.php/894287-optellen-BOM-level-structuur?highlight=bom

 

[Cobbe]

Als je deze in B4 zet en doorsleept naar L16 kom je toch al een heel eind:

=ALS($B4=D$3;$C4;"")

 

[snb]

Bedoel je dit ?

Sub M_snb()
   sn = Range("B4:C16")
   ReDim sp(1 To UBound(sn), 1 To 5)
   
   For j = 1 To UBound(sn)
      sp(j, sn(j, 1)) = sn(j, 2)
   Next
   
   On Error Resume Next
   With Cells(50, 1).Resize(UBound(sp), UBound(sp, 2))
      .Value = sp
      For j = 1 To UBound(sp)
         For Each ar In .Columns(j).SpecialCells(2)
            If ar.Count > 1 Then ar.Sort ar.Cells(1)
         Next
      Next
    End With
End Sub

 

[JanHorstink]

Als ik de VBA invoer gebeurt er niks. Misschien doe ik iets fout? Ben niet heel bekend met macro's.

 

[Cobbe]

@snb
Dat is toch precies hetzelfde als met mijn formuletje, of niet?

 

[JanHorstink]

Cobbe,

Ik snap jou formuletje ook niet echt. Hoe kan ik de formule doortrekken van B4 naar L9.

 

[snb]

@Cobbe

Sorteert die dan ook ?

 

[Cobbe]

Neen, moet dat dan ook ?

@JanHorstink

Rechtsonder in B4 verandert de cursor in een +,
klikken en doortrekken tot en met L16
zo eenvoudig is dat.

 

[snb]

@Cobbe

Heb ik de titel verkeerd gelezen ?

 

[Cobbe]

@snb
Neen, zoals zo dikwijls heb ik dat gedaan.

 

[JanHorstink]

Ja sorry misschien moest de vraagstelling wat duidelijker.

En Cobbe bedankt voor de uitleg, deze functie was ik al wel bekend mee. Bedoelde meer wat ik met die formule opschiet want krijg alleen maar een 0 resultaat.

Ik was zelf al aan het werk met de Index formule. Misscchien brengt dit ideeen op bij jullie.Bekijk bijlage Sorteren BOM.xlsx

Ik krijg nu alleen maar de eerste waarde

 

[Cobbe]

Als jij overal een nulresult krijgt doe je toch iets niet goed.
Zie maar in je bestand met mijn formule.

Maar de code van @snb doet dat daarenboven gesorteerd.

 

[JanHorstink]

Ohja ik zie het.

Bedankt voor de hulp in ieder geval. Ik ga er mee aan het werk.