RoVo1211
Gebruiker
- Lid geworden
- 24 feb 2024
- Berichten
- 92
- Besturingssysteem
- Windows 11
- Office versie
- Office 365
Gegeven de bovenstaande tabel. De cellen A1:A10 zijn de veldnamen en deze heb ik al getransponeerd naar de cellen B1:K1.
In de cellen A11:A20, A21:A30 enz. staan de data die in de tabel moeten komen. Zo moet A11->B2, A12->C2 enz. zie bovenstaand voorbeeld. De gekleurde cellen geven het begin van een record aan.
Ik was al begonnen met een for...next-lus, maar ik kom er niet uit hoe ik in een for...next-lus bij de rijen 11, 21, 31 enz. kan komen.
Dat blijft een probleem voor mij.
Dit had ik reeds geschreven, maar dat werkt niet:
Code:
'Option Explicit
Sub Transponeren()
'
' Transponeren Macro
'
'
Range("A1:A10").Select
Selection.Copy
Range("B1").PasteSpecial Paste:=xlPasteAll, Transpose:=True
'Range("A1:A10").ClearContents
j = i + 9
k = j + 10
For i = 1 + j + 1 To i * 10 + i Step 10
' Debug.Print "i: " & i, "i*10+i: " & i * 10 + i, "j: " & j, "k: " & k
Range("A" & i & ":A" & j).Select 'hier moeten de records geselecteerd worden (A11:A20. A21:A30, enz.)
i = i + 10
k = k + 1
Next i
' Columns("B:K").Select
' Columns("B:K").EntireColumn.AutoFit
End Sub
Waar maak ik de fout?
Dit heb ik met de hand gedaan, maar zo moet het eruit komen te zien:
Bijlagen
Laatst bewerkt: