• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Probleempje met transponeren macro.

Status
Niet open voor verdere reacties.

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:
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!
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan