Op zoek naar VBA Code

[novec]

Hallo

Ik heb een sheet waarbij ik vanuit een externe applicatie data krijg aangeleverd als .csv

Ik sla die op in EXCEL als .xslx

Vervolgens wil ik de kolommen verplaatsen/kopieren en sorteren
In mijn voorbeeld is de bovenste dus gele lijst de output vanuit de externe applicatie en wil is de data verplaatsen naar de 4 onderstaande lijsten,

Ik heb dit met een macro opgenomen en dat werkt goed maar leverde een grote hoeveelheid code op en dat zou m.i. korter moeten kunnen.


Wie wil er even naar kijken svp.
Bekijk bijlage testvba.xlsx

Bedankt

Steven

 

[Cobbe]

Kan toch ook perfect via formules.

 

[novec]

Ja dat is bekend. Index Match.
Het kan ook via draaitabel. Maar ik zocht de VBA code.
Dank man.

 

[VenA]

Probeer het zo eens.

Sub VenA()
Dim j As Long, jj As Long, jjj As Long, ar, ar1
With Blad1
    ar = .Cells(2, 2).CurrentRegion
    For j = 2 To 5
        ReDim ar1(UBound(ar), 12)
            For jj = 1 To UBound(ar)
                ar1(jj - 1, 0) = ar(jj, 1)
                For jjj = j To UBound(ar, 2) Step 4
                    ar1(jj - 1, ((jjj - j) / 4) + 1) = ar(jj, jjj)
                Next jjj
            Next jj
        .Cells(12, 16).Offset((j - 2) * 10).Resize(UBound(ar1) + 1, 13) = ar1
    Next j
End With
End Sub

 

[Gijsbert1]

Andere invalshoek:

Als je de lijst transponeert en dan autofilterd met vba heb je maar 1 lijst nodig ipv 4
Bekijk bijlage 276359 :thumb:

 

[snb]

Is toch niet zo moeilijk ?

Sub M_snb()
  sn = Cells(3, 2).CurrentRegion
   
  For j = 2 To 5
    Cells(2, 2).Offset((j - 1) * (UBound(sn) + 2)).Resize(UBound(sn), 13) = Application.Index(sn, [row(1:8)], Split(1 & " " & Join(Evaluate("transpose(" & j & "+4*(row(1:12)-1))"))))
  Next
End Sub

 

[HSV]

Is toch niet zo moeilijk ?

Nouuuuuu!!!!!!. :d:thumb:

 

[popipipo]

Is toch niet zo moeilijk ?

Nouuuuuu!!!!!!. :thumb:

 

[snb]

Maar 4 regels

 

[novec]

Geweldig!

Ben er blij mee. 4 regels i.p.v. de lappen tekst code die ik met de opgenomen macro had.
Toch is het WEL moeilijk om alle zaken in dit stukje code goed te interpreteren, maar ik kom er uit.

Bedankt!!

Steven