MeneerVDJan
Gebruiker
- Lid geworden
- 23 mei 2015
- Berichten
- 9
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.
ben ook bezig geweest met het volgende ,
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.
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.
Code:
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 ,
Code:
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.
Laatst bewerkt: