• 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 op basis van inhoud kolom A

Status
Niet open voor verdere reacties.
globe

globe

Verenigingslid
Lid geworden
18 mrt 2001
Berichten
3.616
Ik heb een lijst met meerdere kolommen.

Deze moet getransponeerd worden op basis van een verandering van de inhoud van kolom A.

Het voorbeeld maakt een hoop duidelijk.Bekijk bijlage voorbeeld.xls

Wie kan er wat hulp bieden?
 
Kan je hier iets mee?
Code: 
Sub ff()
Dim Output() As Variant
    
    Tabel = Sheets(1).Cells(1).CurrentRegion
    x = 0
    For i = 2 To UBound(Tabel, 1)
        If Tabel(i, 1) <> Tabel(i - 1, 1) Then
            x = x + 1
            ReDim Preserve Output(1 To x)
            For ii = 1 To 3
                Output(x) = Output(x) & Tabel(i, ii) & ","
            Next ii
        Else
            Output(x) = Output(x) & Tabel(i, 3) & ","
        End If
    Next i
    
    With Sheets.Add(after:=Sheets(Sheets.Count))
        .Cells(1).Resize(UBound(Output, 1), 1) = Application.Transpose(Output)
        .Columns(1).TextToColumns Comma:=True
    End With
    
End Sub
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan