Van Horizontaal naar Fertikaal

[Peterjur]

Hallo hopelijk kan iemand mij helpen,=?
Ik heb in Excel 5 rijen met 12 kolommen gevuld met gegevens,
A1:L5. natuurlijk is dit een voorbeeld,

Dit gebied wil ik draaien ,wat in rijen staat in kolommen zetten dus.

Nu weet ik dat er zo iets als een draaitabel bestaat maar dat is mij
tog te ingewikkeld en geeft niet de simpele oplossing die ik beoog,

Nu heb ik onderstaande provedure,en dat werkt niet.Met de hand
gaat het natuurlijk ook maar met honderde rijen ?????

For i = 10 To 22
Range("A10").Select
ActiveCell.FormulaR1C1 = "=R[-9]C"
Range("A" & i).Select
Next i

Als iemand een idee heeft dan lees ik dat graag.bvd.Peter.

 

[HSV]

Test het eens in een testbestandje.

Sub hsv()
Dim lrow As Long
lrow = Cells(Rows.Count, 1).End(xlUp).Row
    Range("a1:l" & lrow).Copy
    Range("a" & lrow).Offset(1).PasteSpecial , , , True
 Application.CutCopyMode = False
    Range("a1:l" & lrow).Delete xlUp
End Sub

 

[Peterjur]

Van Horizon naar vertikaal

Hallo Harry,Dank voor de snelle reactie.Ik heb hem snel getest en grandioos,hij doet het voor alsnog weet ik niet hoe,
maar weer een prachtig leer moment.Nogmaals dank en tot vitueel ziens.Gr.Peter.

 

[Peterjur]

Hallo Harry, het progamma van jou werkt zeer goed,maar ik kwam tot de ontdekking dat de cellen niet gekoppeld zijn.
Mijn vraag is zou dat wel kunnen?heeft u daar mischien ook een oplossing voor.Ik weet niet of ik op deze wijzen mag
inbreken op een opgeloste zaak,als dit niet correkt is hoor ik dat graag.

 

[Peterjur]

Hallo Harry inmiddels heb ik de volgende oplossing bedacht,en begin te begrijpen hoe een en ander werkt

Sub RegelKolom()
Dim lrow As Long
lrow = Cells(Rows.Count, 1).End(xlUp).Row
Range("a1:n" & lrow).Copy
Range("A17").Select
ActiveSheet.Paste Link:=True
'' Range("a" & lrow).Offset(5).PasteSpecial , , , True
Application.CutCopyMode = False
''Range("a17:l" & lrow).Delete xlUp
End Sub

Nogmaals dank voor Alles.Hoop dat dit bericht jou berijkt Gr.Peter.

 

[HSV]

Hallo Peter,

Ik zie nergens meer transpose.

 

[Peterjur]

Harry,wat bdoel je met transpose?gr Peter.

 

[HSV]

Je wil van horizontaal naar verticaal.
Dat is transponeren Peter. (transpose).
Maar dat gebeurd niet in je code die je hier neerzette.

 

[Peterjur]

Harry.Het is jouw eigen code waar je mij enorm mee hebt geholpen en daar ga ik niet iets anders van maken alleen
pluis ik hem na om te leren en hij werkt nog steeds prima en door de verandering koppelt hij de vorige cellen aan elkaar
wat ook de bedoeling was.Hij moet de bestaande regels niet weg halen Maar Vertikaal gekoppelt neerzetten en dat doet
hij nu.Ik denk dat je de oplossing niet fraai vindt maar hij doet het wel.Ik denk dat ik vandaag meer geleerd heb dan
menige dagen daar voor.Dank daar voor.Gr Peter.

 

[HSV]

Je hebt mijn code aangepast, met de regel transpose als tekst gemarkeerd.
Dan wordt het niet verticaal neergezet toch?

Maar als jij tevreden bent, wie ben ik dan om daar tegenin te gaan.
Ik zou dan denken.

Sub RegelKolom()
Dim lrow As Long
lrow = Cells(Rows.Count, 1).End(xlUp).Row
  Range("a1:n" & lrow).Copy
  Range("a" & lrow).Offset(5).PasteSpecial , , , True
 Application.CutCopyMode = False
End Sub

 

[Peterjur]

Dank ik duik er nog even in want nu ben ik aan het twijfelen en dat kunnen we niet hebben natuurlijk
MET vrgr.Peter.

 

[Peterjur]

Hallo Harry,Natuurlijk heb jij gelijk,hoe kan ik denken dat het wel zou werken ik schaam mij diep ik hoop dat jij mijn
arrogantie wil vergeven
Betekend het nu dat er geen koppeling tot stand kan worden gebracht,dat zou jammer zijn?Maar het belangrijkste
de transpose werk weer.Ik sta bij jou in het krijt.VrGr.Peter.

 

[HSV]

Hallo Peter,

Vergissing is menselijk toch.

Klopt,
Als je transpose doet, vervalt koppeling plakken.

 

[Peterjur]

Harry,ben blij dat je het zo sportief op vat

En wat niet kan dat kan niet ,ik zet hem weer op opgelost want de hoofdzaak is het transporteren en dat doet hij nu weer.
Gr Peter.ENMD.