random een naam

[kamphuis11]

Ha, Ik ben bezig met een soort planning. Bedoeling is dat ik een lijst van namen in mijn planning plak en dat deze automatisch random worden verdeelt tussen afdelingen Ik heb nu het volgende;

=INDEX($O:$O;ASELECTTUSSEN(1;AANTALARG($O:$O));1)

Alle namen die in O staan worden random verdeeld. alleen is het nu zo dat namen meerdere keren in de planning komen. Weet iemand hoe ik dit kan uitbreiden dat alle namen maar 1 keer wordt gebruikt.

 

[emields]

Een voorbeeldbestand kan veel verheldering brengen.

 

[kamphuis11]

Bij deze

 

[emields]

zo?

 

[kamphuis11]

Hoi, dankjewel. Dit is zeer bruikbaar.

 

[kamphuis11]

Hoi Emiel, Ik heb het bestandje in het excel bestand gekopieerd en de code is veranderd. (het bestand kan ik helaas niet plaatsen omdat het een groot bestand is met meerdere tools. excuus)

Sub nieuwe_namen()

    x = Range(Range("c10"), Range("c10").End(xlDown)).Rows.Count
    [r1] = x
    Range("c10:D" & x).Sort [D10]
        
End Sub

Het geeft nu een foutmelding.

Heb je enig advies of kun je iets over de vba code uitleggen waar ik op moet letten.

 

[emields]

staat de opdrachtknop op hetzelfde blad als de lijst?

 

[VenA]

Het enige waar je op moet letten is dat je een representatief voorbeelbestand plaatst. Als we niet niet weten waar wat staat en je zelf niet weet wat je aan moet passen dan heeft een oplossing aanreiken weinig nut.

 

[kamphuis11]

Excuus. Hierbij een bestand. het namen invoeren is wel een ander blad geworden.

 

[kamphuis11]

Dankjewel ... Ik snap em. weer iets geleerd :-D