Voorbereiden excel voor upload isu

[Cinnie99]

hey, ik ben op zoek naar een manier om de data die ik binnenkrijg via ons warehouse systeem om te zetten naar een soort template om dan te kunnen gebruiken voor upload via isu naar het erp systeem. Dit gaat over lange lijsten en ik zou dit wel manueel kunnen doen en met filteren of wat foefelen met draaitabellen maar het is de bedoeling dat mijn collega's die niets van excel kennen gewoon de file kunnen openen en dit zo klaar is voor upload. In bijlage een overzichtje van de gegevens en wat ik zou willen.
Kan iemand mij helpen hiermee?
groeten
Cinthy

 

[JEC.]

Met 1 klik in power query
Tabel kun je verversen met rechtermuisnknop --> refresh

 

[JEC.]

Hier ook nog een formule voor O365

=LET(s;TOCOL(IF(B2:D7;A2:A7;NA());2);z;TOCOL(IF(B2:D7;B1:D1;NA());2);y;TOCOL(B2:D7;1);SORT(HSTACK(s;z;y);2))

 

[snb]

of zó:

Sub M_snb()
   sn = Cells(1).CurrentRegion
   ReDim sp((UBound(sn) - 1) * (UBound(sn, 2) - 1), UBound(sn, 2) - 2)
   
   For j = 0 To UBound(sp) - 1
     y = j \ (UBound(sn, 2) - 1) + 2
     x = j Mod (UBound(sn, 2) - 1) + 2
     If sn(y, x) <> "" Then
        sp(j, 0) = sn(y, 1)
        sp(j, 1) = sn(1, x)
        sp(j, 2) = sn(y, x)
     End If
   Next
   
   Cells(1, 6).Resize(UBound(sp) + 1, UBound(sp, 2) + 1) = sp
End Sub