excel transponeren.

[atx2212]

Beste Forumleden;,

ik sukkel al een tijdje met een klantenlijst dewelke ik graag volledig in 1 stap wil omzetten van kolommen naar rijen ... het lukt me echter niet, de wanhoop nabij ! iemand oh iemand die me kan helpen deze job te klaren? in bijlage een voorbeeld.

mvg.
Bekijk bijlage voorbeeld.xlsxBekijk bijlage voorbeeld.xlsx

 

[sylvester-ponte]

At, zo als het aangeleverd wordt kun je maar met 5 regels tegelijk transponeren.
het kan met formules (ingewikkeld)
of met een eenvoudig macro'tje.

 

[atx2212]

nou dat is net het probleem geen idee hoe ik een macrotje kan maken +? of bete rnog heb er echt geen kennis van iemand die me zo een macrotje kan opmaken ? aubbb?

 

[sylvester-ponte]

zo iets?

Sub Transform()
    Dim Van As Range, Naar As Range
    Set Van = [A1]
    Set Naar = [F4]
    Naar.EntireColumn.Resize(, 5).ClearContents
    Do Until Van = ""
        Van.Resize(5, 3).Copy
        Naar.PasteSpecial Transpose:=True
        Set Van = Van.Offset(5)
        Set Naar = Naar.Offset(3)
    Loop
End Sub

 

[atx2212]

zo iets?

Sub Transform()
    Dim Van As Range, Naar As Range
    Set Van = [A1]
    Set Naar = [F4]
    Naar.EntireColumn.Resize(, 5).ClearContents
    Do Until Van = ""
        Van.Resize(5, 3).Copy
        Naar.PasteSpecial Transpose:=True
        Set Van = Van.Offset(5)
        Set Naar = Naar.Offset(3)
    Loop
End Sub

 

[atx2212]

Latijn voor mij

 

[sylvester-ponte]

geen latijn gehad?
Probeer dan toch het voorbeeld uit.
uitleg nodig ? (de taal lijkt het meest op Engels)