Transponeren lukt niet

[Marten1975]

Goedemiddag,

Ik heb een vrij simpele vraag allen krijg ik het niet voor elkaar.

Ik heb in de A en B kolom rijen met getallen bijvoorbeeld

16 20
32 40
21 43

Nu wil ik graag deze rijen samenvoegen en onder elkaar hebben zodat onderstaande ontstaat.
16
20
32
40
21
43

Alleen als ik dit doe via kopieren en dan plakken speciaal transponeren krijg ik alles naast elkaar.
Wat doe ik fout ?

 

[AlexCEL]

Wat doe ik fout? Plakken speciaal/transponeren gebruiken.

Die functionaliteit is bedoeld om van een rij een kolom te maken en omgekeerd. Jij wilt 2 kolommen om en om onder elkaar hebben.

 

[Marten1975]

Alex, dank je wel.
Dan is dat inderdaad niet de juiste manier.
Weet jij zo hoe ik dit het beste kan oplossen ?

 

[AlexCEL]

Als het een éénmalige actie is kun je ze samenvoegen in een separate kolom met een formule, en daarna middels kopiëren - plakken speciaal/waarden definitief maken.

 

[JEC.]

Met een macro

 

[Marten1975]

Alex,

Super, dit is precies wat ik bedoel.
Alleen als ik de formule naar beneden kopieer komt er niks in beeld.
Plakken speciaal en dan waarden definitief maken zie ik niet als optie

 

[Marten1975]

JV, hartelijk dank !
Dit is ook een perfecte oplossing

Ik kan weer verder hartstikke bedankt !

 

[AlexCEL]

Alleen als ik de formule naar beneden kopieer komt er niks in beeld.

Wel even specifiek maken voor je eigen situatie natuurlijk... waarschijnlijk start die op een andere rij.

Plakken speciaal en dan waarden definitief maken zie ik niet als optie

Maar plakken speciaal - transponeren was wel een optie?

Hmm... nou in dat geval zou ik de JVeer optie nemen.

 

[VenA]

Een eigen voorbeeldbestand plaatsen wil vaak ook wel helpen. Ik zou er geen Dictionary voor gebruiken.

Sub VenA()
  ar = Cells(1).CurrentRegion
    For j = 1 To UBound(ar)
      For jj = 1 To UBound(ar, 2)
        c00 = c00 & " " & ar(j, jj)
      Next jj
    Next j
    x = Split(Mid(c00, 2))
    Cells(1, 10).Resize(UBound(x) + 1) = Application.Transpose(x)
End Sub

 

[Marten1975]

Iedereen hartstikke bedankt. Ik heb genoeg oplossingen gekregen ik zet de vraag op "opgelost"