Archief - [Macro's voor Dummies] help!

Forzaracing · 3 apr 2014

Hey iedereen,

Voor mijn thesis moet ik heel wat excel files bewerken, eigenlijk transformeren, heel veel kolommen omzetten in rijen, enz.
Nu bedacht ik mij dat dit normaal wel snel moet gaan met macro's maar laat mij daar nu net niet zoveel van snappen.

Sub Transformeren()
'
' Transformeren Macro
'

'
Range("AD23:AH23").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=6
Windows("transform.xlsx").Activate
Range("D107").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveWindow.SmallScroll Down:=9
End Sub

Dit is eigenlijk wat ik moet doen, in een file gegevens in een rij selecteren en plakken in een kolom. Volgende rij opnieuw en die moet geplakt worden in een kolom onder de gegevens van de vorige rij.
Nu deze macro doet het wel voor de cel die ik zelf doe maar gaat niet verder.

Iemand een idee, u zou mij echt uren kunnen besparen.

Heel veel dank op voorhand

grafzerkpisser · 4 apr 2014

Is het zo iets? data1 a
data1 b
data1 c
data2 w
data2 s
data3 d
data3 q
data3 a
data3 b
data4 a
data5 g
data5 e
data5 k
data5 d
data5 j
data5 l

Omzetten naar:
-----------------
data1 a b c
data2 w s
data3 d q a b
data4 a
data5 g e k d j l

Zo ja:

Code:

Sub  TransposeData()
   Dim rFrom As Range
   Dim rTo As Range
   Dim iRows As Integer
   Set rFrom = ActiveSheet.Range("A1")  ' assumes data starts at A1 on active sheet
   Set rTo = ActiveWorkbook.Worksheets.Add.Range("A1")
   Do Until IsEmpty(rFrom.Value)
     iRows = 1
     Do While rFrom.Value = rFrom.Offset(iRows).Value
       iRows = iRows+1
     Loop
     rTo.Value = rFrom.Value
     rTo.Offset(,1).Resize(,iRows) = Application.Transpose(rFrom.Offset(,1).Resize(iRows))
     Set rFrom=rFrom.Offset(iRows)
     Set rTo=rTo.Offset(1)
   Loop
 End Sub

Archief - [Macro's voor Dummies] help!

Forzaracing

Legacy Member

grafzerkpisser

Legacy Member