Rijen Filteren-groeperen tot 1 regel

[Norman Scheuter]

Hallo,

We gaan op het werk over naar een nieuw systeem en heb een export gemaakt vanuit het oude systeem, van alle orders.
Deze bevat ontzettend veel info...regels...kolommen.
In kolom 1 (A) staan de ordernummer.
Elke order heeft een aantal orderregels, gelang aan het aantal artikelen in de order.
Om het overzichtelijk te houden, wil ik graag dat het wordt gefilterd....of gegroepeerd tot 1 rij met het ordernummer.

Ik weet even niet hoe ik dit voor elkaar moet boksen...
Waarschijnlijk denk ik weer te moeilijk

Heeft iemand een idee hoe ik dit netjes kan oplossen.

heb een test bestandje toegevoegd.

Al vast bedankt.

Norman

 

[JEC.]

Met speels gemak in Power Query

let
    Source = Excel.CurrentWorkbook(){[Name="Tabel2"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Kolom1", type date}, {"Kolom2", type date}}),
    #"Filled Down" = Table.FillDown(#"Changed Type",{"Kolom1", "Kolom2", "Kolom3", "Kolom4", "Kolom5", "Kolom6", "Kolom7", "Kolom8", "Kolom9", "Kolom10"}),
    #"Removed Duplicates" = Table.Distinct(Table.SelectRows(#"Filled Down", each ([Kolom10] = "asdf")), {"Ordernummer"})
in
    #"Removed Duplicates"

 

[snb]

Zoals jij het je voorstelt moet je het in ieder geval helemaal niet doen.
Je bent met een database bezig, behandel die dan ook als een database.

Gebruik 3 kolommen

ordernummer
product (= bij jou de kolomkop)
aantal

Dan houd je bij ieder ordernummer 17 records, met een onderscheidend kenmerk vin de 2e kolom voor het produkt en een aantal van dat produkt in de derde kolom.

In plaats van

Ordernummer	Kolom1	Kolom2
212927	########
212927		########
212927
212927
212927
212927
212927
212927

Ordernummer	produkt	aantal
212927	Kolom1	345
212927	Kolom2	567
212927	Kolom3	678
212927	Kolom3	879
212927
212927
212927
212927

 

[Norman Scheuter]

Hoi SNB,

Was het maar zo makkelijk
Het is een export bestand welke ik krijg, zoals het voorbeeld is opgezet.
Ik probeerd het juist versimpelen, maar weet even niet hoe ik dit moet gaan filteren.....

 

[Norman Scheuter]

Hoi JEC,

Dit ziet er goed uit.
Ga hier mee aan de slag:thumb:

Thanx

 

[snb]

Jammer, dat je
- groeperen gebruikt
- een dynamische tabel hebt met evenveel rijen als het werkblad

Ik heb beide verschijnselen verwijderd.

Dan resulteert zó een genormaliseerde tabel met VBA:

Sub M_snb()
  sn = Sheet1.usedrange
   
  For j = 2 To UBound(sn)
    If sn(j, 2) = "" Then
      sn(j, 2) = sn(j - 1, 2)
      If sn(j, 3) = "" Then
        y = y + 1 + (y = 18)
        sn(j, 4) = sn(j, y)
        sn(j, 3) = sn(1, y)
      End If
    Else
      y = 3
    End If
  Next
    
  Sheet2.Cells(1).Resize(UBound(sn), 4) = sn
End Sub

 

[Norman Scheuter]

Hoi snb,

Het is niet zo dat ik deze tabel zelf maak, dit komt zo uit een export.
Mijn idee was ook om het te versimpelen.

Ik ga met je code aan de gang.

Dank je wel.

Gr. Norman

 

[snb]

dit komt zo uit een export

Het lijkt me moeilijk voorstelbaar dat een Database-export gebruik maakt van de Excelopties 'groeperen' en 'tabel invoegen'.
Dat lijk me geautomatiseerd alleen met VBA mogelijk ( of anders met de hand).
Dan is degene die die VBA-code heeft opgesteld te benaderen en te vragen daarvan af te zien (wat natuurlijk voor verdere verwerking veel eenvoudiger is).