Unieke lijst van waarden uit bron lijst

[jwktse]

Hallo,

Ik wil graag weten hoe ik een unieke lijst van waarden kan maken die kopieerbaar als de lijst langer wordt.

Andere manieren heb ik geprobeerd met gegevensvalidatie maar dat is niet wat ik zoek.

Bijgaand is een statisch bestand met een voorbeeld van hoe ik het zou willen.

Hartelijk dank.

Met vriendelijke groet,
J.

Bekijk bijlage Unieke Lijst genereren uit Bronlijst.xlsx

 

[HSV]

Met de dictionary methode.

Sub hsv()
Dim sn, i As Long
sn = Sheets("bron").Cells(1, 2).CurrentRegion
With CreateObject("scripting.dictionary")
  For i = 1 To UBound(sn)
   .Item(sn(i, 1)) = ""
  Next i
Sheets("Unieke lijst").Cells(1).Resize(.Count) = Application.Transpose(.keys)
End With
End Sub

 

[Gijsbert1]

Onder "data" (NL: gegevens) in het lint is er een optie om duplicaten te verwijderen uit een kolom.
Als je de brondata wilt behouden en de handeling komt regelmatig voor kun je ook een Macrootje gebruiken!
Bekijk bijlage Unieke Lijst genereren uit Bronlijst_Gijs.xlsm :thumb:

 

[HSV]

Ook nog.

Sub hsvtwee()
 Sheets("bron").Cells(1, 2).CurrentRegion.AdvancedFilter 2, , Sheets("Unieke lijst").Cells(1), 1
End Sub

 

[jwktse]

Beste Harry/Gijsbert,

Bedankt, is er een manier om het in formule vorm te zetten zodat ik die kan kopiëren in Unieke lijst kolom A?

Ik ben niet goed in Excel en weet niet waar ik die VBA codes moet invoeren om het te laten werken.

Hoor graag.

Met vriendelijke groet,
J.

 

[Gijsbert1]

Hoi jwktse,

Zie bestand: Bekijk bijlage Unieke Lijst genereren uit Bronlijst_Gijs(1).xlsx
Hier is in de kolom (A:A) voor de bron een extra kolom met formules geplaatst.
Daarna in "unieke lijst" in kolom (E:E) vanaf E2 ook formules.
Geel gemarkeerde cellen kun je doortrekken naar beneden.

In kolom B is een draaitabelletje gezet. Dit is ook een manier en dan wordt er helemaal geen extra kolommen en formules gebruikt!

 

[jwktse]

Dank je wel, Gijsbert.

Dit is wat ik wilde hebben, een formule die ik gewoon kan kopiëren. Alleen staan in mijn echte tabel alle waarden door elkaar heen en kan ik die niet netjes sorteren zoals je hier hebt gedaan.

Ik neem aan dat de formules niet werken als het door elkaar heen staat?

Je draaitabel kan ik gebruiken voor een controle of het wel klopt.

Met vriendelijke groet,
J.

 

[Gijsbert1]

Waarom kan je dat niet netjes sorteren op alfabetische volgorde?
Deze formules werken inderdaad niet als alles in de bron door elkaar staat.

EDIT: Ze werken wel, maar zetten het resultaat niet in alfabethische volgorde als de bron dat ook niet is.

 

[HSV]

Hier in alfabetische volgorde.
Ik zou je het niet aanraden (vreselijk traag), alleen om het even aan te tonen.

 

[jwktse]

Beste Harry,

Bedankt voor jou bestand en excuses voor de late reactie. Ik heb de laatste notificatie niet ontvangen.

Ik heb liever een formule die eenvoudig en snel werkt want het gaat om duizenden rijen.

Anders doe ik het op Gijs z'n manier.

MvG,
J.