Copy en paste in a loop tussen 2 bladen

[MeneerVDJan]

Hallo Allen,

Ik heb een probleem met het volgende,

99 Luft Ballons.T160.STY
OTS 1 VPSoft LektroCodes TalkModLead VaporPad Steel8BtStrum1
OTS 2 80sBrass 1984Synth ChorusSawLead VaporPad Steel8BtStrum1
OTS 3 DetunedVintage RockHero TechGlide VaporPad Steel8BtStrum1
OTS 4 FatSawHook BrightPopPad NewHeaven VaporPad Steel8BtStrum1

Hier staan 5 rijen gegevens die ik graag in 1 rij wil hebben
zoals hier onder, 1 rij met 22 kolommen

99 Luft Ballons.T160.STY OTS 1 VPSoft LektroCodes TalkModLead VaporPad OTS 2 80sBrass 1984Synth ChorusSawLead VaporPad OTS 3 DetunedVintage RockHero TechGlide VaporPad OTS 4 FatSawHook BrightPopPad NewHeaven VaporPad Steel8BtStrum1

met de volgende code krijg ik dit wel voor elkaar ,Maar voor de een regel.

Sub Trans()
							
Rows(2).Copy

Worksheets("Blad2").Range("A2").Insert
Range("a3:f3").Copy
Worksheets("Blad2").Range("G2").Insert
Range("a4:f4").Copy
Worksheets("Blad2").Range("M2").Insert
Range("a5:f5").Copy
Worksheets("Blad2").Range("s2").Insert
Range("a6:f6").Copy
Worksheets("Blad2").Range("y2").Insert

End Sub

ben ook bezig geweest met het volgende ,

Sub convert()

Dim Kol As Integer
Dim rij As Integer
Dim B2rij As Integer

    For rij = 2 To 100 'Step 5
    Cells(rij, 1).Copy
    
    'For B2rij = 1 To 2
    
    ThisWorkbook.Worksheets("blad2").Cells(rij, 1).PasteSpecial
    
    'Next B2rij
    
    Next rij

End Sub

maar dat werk ook niet naar behoren

het zijn 2737 rijen die terug gebracht worden tot 547 rijen ,welke dan als tabel wordt gebruikt
Ik heb gezocht op het net ,maar met een for next loop wil het bij mij niet werken,
Iemand die mij verder kan helpen ?

Groeten,
Jan.

 

[cow18]

zoiets ?

 

[MeneerVDJan]

Zoiets .....?

Dit is perfect..

Ik heb de code toegepast in mijn bestand, en alles staat zoals ik het wilde hebben.


heel hartelijk dank.
groeten,
Jan.