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

Transponeren in serie

Status
Niet open voor verdere reacties.
C

Clemient

Nieuwe gebruiker
Lid geworden
1 dec 2012
Berichten
2
Hallo,

Ik heb een vraagstuk die ogenschijnlijk simpel is maar ik kom er niet uit. Bijgevoegd een excel-bestand met 4 meldingen aan data. Hier heb ik er een paar duizend van onder elkaar staan.
Ik zoek een macro oid dat deze rijen achter elkaar transponeert en converteert naar 1 rij. Zo dat ik een melding per rij krijg.

Wie o wie kan me helpen?Bekijk bijlage Vraagstuk Macro-transponeren.xlsx

Met alvast een dankbare groet,
clemient
 
Code: 
Sub tst()
    Dim sq(1 To 6, 1 To 5000)
    With Sheets("Blad1")
        tRows = .Range("B3:B" & .Cells(Rows.Count, 2).End(xlUp).Row).Rows.Count
        j = 1: k = 3
        For i = 1 To tRows Step 7
            For ii = 1 To 6
                sq(ii, j) = Trim(.Cells(k, 2))
                k = k + 1
            Next
            j = j + 1
        Next
    End With
    Blad2.Cells(1).Resize(UBound(sq, 2), 6) = WorksheetFunction.Transpose(sq)
End Sub
 
Hij werkt super!

Ik kwam er alleen achter dat de meldingen niet allemaal hetzelfde aantal rijen omvatte. (testbestand was dus niet representatief)
Dus hij halverwege alsnog verkeerd lopen... Ik vermoed dat we dit niet kunnen oplossen met een macro. Toch?
 
Daar weet ik niet onmiddellijk een pasklaar antwoord op aangezien het aaneensluitende rijen zijn en er dus geen andere methode gebruikt kan worden.
Dit moet ik even bekijken.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan