script VBA of power query

[moensk]

Via powerquery haal ik gegevens uit de boordcomputers van de chauffeurs.
hierbij wil ik gaan groeperen op 1 kolom (key) waarbij hij regelnr "1" houdt en ook de aankomst en vertrektijd
Doch alle "pp" moet hij optellen met dezelfde key.
Ik dacht dit te doen met een draaitabel doch de aankomst en vetrektijd is niet altijd identiek zelfde
Kan dit in Power query gerealiseerd worden ?
of kan dit enkel met een VB script ?

in bijlage klein opzetje

 

[emields]

ik snap eigenlijk niet wat je wil met die regelnr.
maar zou dit iets kunnen zijn?

 

[JEC.]

Bvb

let
    Source = Excel.CurrentWorkbook(){[Name="Boordcomputer"]}[Content],
    grp = Table.Group(Source, {"Key"}, {{"pp", each List.Sum([pp])}, {"reglnr", each 1}, {"aankomst", each [aankomst]{0}}, {"vertrek", each [vertrek]{0}}})
in
    grp

 

[JEC.]

Of met 1 dynamische formule in office 365

=LET(r;Boordcomputer;c;INDEX(r;;1);u;UNIQUE(c);s;SUMIF(c;u;INDEX(r;;2));t;INDEX(r;MATCH(u;c;0);{4\5});HSTACK(u;s;t))

 

[moensk]

Jec
krijg het niet goed, wilt ge even naar bijlage kijken aub

 

[peter59]

Hallo,

In power query krijg je zoiets.

 

[sylvester-ponte]

Jec
krijg het niet goed, wilt ge even naar bijlage kijken aub

formule vertaald:

 

[JEC.]

Het is alleen die Mcode plaatsen in de advanced editor

 

[moensk]

allen bedankt voor de mogelijkheden

 

[moensk]

JEC,
Mcode werkt goed doch ik heb er nog 12 kolommen voor staan en 4 erna.
deze moeten zichtbaar blijven, hoe doe ik dat het simpelst

 

[JEC.]

Plaats anders even het relevante vb bestand

 

[moensk]

heb huidig bestand dat u al klaar had wat aangepast

 

[JEC.]

Vervang alles in de advanced editor door dit

let
    Source = Excel.CurrentWorkbook(){[Name="Boordcomputer"]}[Content],
    grp = Table.Group(Source, {"Key"}, {{"pp_", each List.Sum([pp])}}),
    merge = Table.Join(grp,"Key",Source,"Key"),
    cols = List.RemoveItems(Table.ColumnNames(merge), {"pp","Key"}),
    grp2 = Table.Group(merge, {"Key"}, {{"Count", each Table.First(_)}}),
    exp = Table.ExpandRecordColumn(grp2, "Count", cols, cols)
in
    exp

 

[moensk]

JEC
werkt uitstekend