Gegevens onder elkaar krijgen

[JohanvdWal]

Hallo,

Hoe kan ik de volgende gegevens uit onderstaande tabel onder elkaar krijgen.

Bekijk bijlage gegevens.xlsx

de lijst zou er als volgt uit moeten zien;

(GEEL) Disc. Code getal
NLWHOLESL BD-TP05 0
NLWHOLESL BD-TP10 0
NLWHOLESL BD-TP15 5
etc.

 

[Warme bakkertje]

Ik denk dat deze doet wat jij vraagt.

Sub WB()
    Dim result()
    sq = Sheets("Blad1").Cells(1).CurrentRegion
    x = 1: y = 1
    ReDim result(1 To 3, 1 To (UBound(sq) - 2) * 5)
        For i = 3 To UBound(sq, 2)
            For ii = 3 To UBound(sq)
                result(y, x) = sq(1, i): result(y + 1, x) = sq(ii, 1): result(y + 2, x) = sq(ii, i): x = x + 1
            Next
        Next
    With Sheets("Blad2").Cells(1)
        .ClearContents: .Resize((UBound(sq) - 2) * 5, 3) = WorksheetFunction.Transpose(result)
    End With
End Sub

 

[JohanvdWal]

Hallo Rudi,

Helemaal super, het werkt.!!

Dank voor je hulp.

Johan