• 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.

Excel macro nodig die een gedeelte van de draaitabel transponeert

Status
Niet open voor verdere reacties.
B

BouwerP69

Nieuwe gebruiker
Lid geworden
29 sep 2023
Berichten
2
Goede middag,
Ik heb een draaitabel waarbij een gedeelte van deze tabel moet transponeren. Alleen moet dat per 2 cellen gebeuren. Ik heb een voorbeeld toegevoegd. Iemand die mij kan helpen?Bekijk bijlage voorbeeld.xlsx
 
Ik ga er vanuit dat het in de bron van de draaitabel al staat zoals je het wilt hebben.
Daarnaast kan je er eenvoudig op filteren.
 
Aan de draaitabel heb ik niks voor de import. Rechts in het voorbeeld staat hoe het moet worden dus kolom 1 en 2 op meerdere rijen en dan steeds per 2 kolommen erachter geplakt .
De draaitabel is nu klein, maar kan ook meerdere regels bevatten
 
Probeer het hier eens mee:
Code: 
Sub TransMacro()
    For r = 0 To Range("A5").CurrentRegion.Rows.Count - 2
        Range("A5:B5").Offset(r, 0).Copy Range("L5:L8").Offset(r * 4, 0)
        Range("C5:D5").Offset(r, 0).Copy Range("N5").Offset(r * 4, 0)
        Range("E5:F5").Offset(r, 0).Copy Range("N6").Offset(r * 4, 0)
        Range("G5:H5").Offset(r, 0).Copy Range("N7").Offset(r * 4, 0)
        Range("I5:J5").Offset(r, 0).Copy Range("N8").Offset(r * 4, 0)
    Next
End Sub
 
Laatst bewerkt:
Deze vraag is verplaatst naar Excel.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan