dropdown box in formulier - duplicaten vermijden

[frin]

In bijlage een voorbeeld van een formulier.

De keuzelijst naam heeft zijn oorsprong bij de gegevens (data).

Als ik op het pijltje klik komen de namen er meer dan eens in.

Hoe kan ik deze uniek (1 maal in de lijst krijgen) en hoe alfabetisch ?

 

[Cobbe]

Je kunt dat oplossen door veel code te gebruiken maar ook door een verborgen kolom te gebruiken en daar de unieke waarden in te zetten.

Heb dat nu gedaan en ook een dynamische naam gedefiniëerd, zodat je geen lege regels krijgt in je dropdownlijstje.

Cobbe

 

[snb]

een voorbeeld van 'veel' code

Sub tst()
  Columns(2).AdvancedFilter xlFilterCopy, , [K1], True
  sq = Columns(11).SpecialCells(xlCellTypeConstants).Offset(1)
  ComboBox1.List = sq
End Sub

Deze doet hetzelfde als de oplossing van Cobbe (maar loopt sneller, omdat er geen formules in het werkblad staan.)

 

[sis123]

Bijlage de oplossing

filter uniek record