globe
Verenigingslid
- Lid geworden
- 18 mrt 2001
- Berichten
- 3.584
Goedendag,
Ik heb een Excel waar data onder elkaar staan die ik wil inkorten.
In bijgaand voorbeeld moet er naar artikelnummer (kolom 3) en maat (kolom 5) gekeken worden.
Deze maten, moeten achter elkaar geplaatst worden en door bv. een komma gescheiden worden. Of liggend streepje oid.
Vervolgens moet de lijst worden ingekort zodat er geen dubbele waarden achter blijven.
Ooit heb ik onderstaand script gebruikt om een soortgelijk resultaat te krijgen op basis van een andere file, zie topic: https://www.helpmij.nl/forum/showthread.php/865801-transponeren-op-basis-van-inhoud-kolom-A
maar ik krijg het niet voor elkaar deze werkend te krijgen.
Wie wil me even op weg helpen?
alvast bedankt!
Guido
Ik heb een Excel waar data onder elkaar staan die ik wil inkorten.
In bijgaand voorbeeld moet er naar artikelnummer (kolom 3) en maat (kolom 5) gekeken worden.
Deze maten, moeten achter elkaar geplaatst worden en door bv. een komma gescheiden worden. Of liggend streepje oid.
Vervolgens moet de lijst worden ingekort zodat er geen dubbele waarden achter blijven.
Ooit heb ik onderstaand script gebruikt om een soortgelijk resultaat te krijgen op basis van een andere file, zie topic: https://www.helpmij.nl/forum/showthread.php/865801-transponeren-op-basis-van-inhoud-kolom-A
maar ik krijg het niet voor elkaar deze werkend te krijgen.
Wie wil me even op weg helpen?
alvast bedankt!
Guido
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