Transponeren

[yakKe_0nze]

Beste,

Graag wil ik beroep doen op jullie professionele hulp ivm het transponeren van een tabel.

In bijlage heb ik een voorbeeldbestandje toegevoegd.

Graag had ik deze bewerkingen met een stukje VBA-code uitgevoerd.

Vermits mijn kennis VBA voorlopig nog te beperkt is vroeg ik me af iemand me een stukje op kon helpen.

Alvast bedankt

Bekijk bijlage VoorbeeldbestandHELPMIJ.xlsx

 

[Haaren101]

Zo iets:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 3-1-2012 by Ron
'
'
    Range("A1:E1").Select
    Selection.Copy
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Application.CutCopyMode = False
End Sub

Deze is met de macro recorder opgenomen. Helpt dat je op weg?

Ron

 

[yakKe_0nze]

Dag Ron,

Als ik de macro uitvoer krijg ik volgend resultaat: Bekijk bijlage VoorbeeldbestandHELPMIJ_1_Ron.xlsx

Dit lijkt niet op het vooropgestelde resultaat. Is dit bij jou anders?

De record functie is handig, maar ik ik denk meer aan een functie die gaat tot het volgende perceel een dan die functie opnieuw uitvoert in een loop.

Hoe schrijf ik een functie die de cellen kopieert naar één rij en dan stopt aan het volgende perceel? (?Do untill?)

Thanks!

 

[Haaren101]

Dit is iets anders dan transponeren in Excel en vereist programmeerwerk in VBA. En daar zijn op het forum een hoop mensen voor die dat veel beter kunnen dan ondergetekende.

Wie pakt de handschoen op?!?!

Ron

 

[yakKe_0nze]

Inderdaad, het vergt wel een stukje programmeercode. (Sterke interesse, maar nog niet gespecialiseerd)

Ivm titel: Dekt misschien niet volledig de lading, maar dacht dat deze de beste benadering gaf.

@Ron, bedankt om mee te kijken

Zijn er specialisten, die me me misschien met een bepaald stuk op weg kunnen helpen?