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

Dubbele waarde naast elkaar in kolommen

Status
Niet open voor verdere reacties.
C

Claudje84

Nieuwe gebruiker
Lid geworden
22 mrt 2018
Berichten
1
Hallo,

Ik ben bezig met een afstudeer opdracht en ben nu bezig met een analyse van de orders. Het doel is om uiteindelijk te zien of een klant 2 of meer artikelen uit dezelfde groep besteld en in dezelfde maat. Of dat 1 artikel in 2 verschillende maten wordt besteld.

Ik heb in kolom A gegevens staan sommige zijn dubbel andere weer enkel. Ik wil graag dat de dubbele gegevens naast elkaar komen te staan zoals hieronder is weergegeven als voorbeeld.

Dit is wat ik heb

Order nr Artikel Maat
201801 102301 36
201802 200387 38
201802 200387 39
201802 400382 27
201803 377892 40
201803 200387 38

Dit is wat het resultaat moet zijn.

Order nr Artikel Maat Artikel Maat Artikel Maat
201801 102301 36
201802 200387 38 200387 39 400382 27
201803 377892 40 200387 38

Het gaat om ruim 5000 order nummers.

Iemand een idee? Hoe ik dit het beste kan aanpakken?
 
Code: 
Sheets("resultaat").Cells(1, 1).Resize(.Count, 2) = Application.Transpose(Array(.keys, .items))

Overbodig:
Code: 
Sheets("resultaat").Columns(3).TextToColumns , xlDelimited, , , , , , , 1, "|"

Alternatief.
Code: 
Sub hsv()
sv = Sheets("lijst").Cells(1).CurrentRegion
 With CreateObject("scripting.dictionary")
    For j = 2 To UBound(sv)
      .Item(sv(j, 1)) = .Item(sv(j, 1)) & "_" & sv(j, 2) & "_" & sv(j, 3)
    Next
    For j = 0 To .Count - 1
      sv = Split(.keys()(j) & .Item(.keys()(j)), "_")
      Sheets("resultaat").Cells(j + 1, 1).Resize(, UBound(sv) + 1) = sv
    Next
End With
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan