ConnyBonarius
Gebruiker
- Lid geworden
- 16 jan 2010
- Berichten
- 56
Goedendag allen,
Ik heb wat lopen experimenteren met een macro waarmee ik een transponeer opdracht uitvoer. De macro werkt nu goed, alleen zou ik graag een loop erin willen hebben. Ik heb eerst rond gezocht op het forum, maar kon de oplossing helaas niet vinden.
Wat heb ik tot nu toe:
Wat zou ik graag willen:
Op dit moment vult de macro 1 rij voor mij in, echter zou ik de andere openstaande rijen in tabblad 2 ook willen vullen. (zie vb bestand)Bekijk bijlage vb_transponeren.xlsx
Alvast bedankt voor de hulp!
Ik heb wat lopen experimenteren met een macro waarmee ik een transponeer opdracht uitvoer. De macro werkt nu goed, alleen zou ik graag een loop erin willen hebben. Ik heb eerst rond gezocht op het forum, maar kon de oplossing helaas niet vinden.
Wat heb ik tot nu toe:
Code:
Sub formule_transponeren()
'
' formule_transponeren Macro
'
'
ActiveCell.FormulaR1C1 = "=IFERROR(Blad1!RC5/Blad1!RC4,0)"
Range("C2").Select
Selection.AutoFill Destination:=Range("C2:C4"), Type:=xlFillDefault
Range("C2:C4").Select
Range("C3:C4").Select
Selection.Copy
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
Range("C3:C4").Select
Selection.ClearContents
End Sub
Wat zou ik graag willen:
Op dit moment vult de macro 1 rij voor mij in, echter zou ik de andere openstaande rijen in tabblad 2 ook willen vullen. (zie vb bestand)Bekijk bijlage vb_transponeren.xlsx
Alvast bedankt voor de hulp!