loting

[schutter007]

Hallo beste exel gebruikers.

Is het mogenlijk een soort loting te verrichten via exel ,
we gaan een toernooi organiseren en daarbij willen mensen willekeurig in een poule indelen.
hoe kan ik dat doen.
mvg jeroen

 

[SillyMelody]

Misschien een ideetje ?

 

[robdgr]

Hang deze code aan een knop:

Sub sorteer_willekeurig()
'
' sorteer_willekeurig Macro
'

'
Application.ScreenUpdating = False
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "=RAND()*100"
    Selection.AutoFill Destination:=Range("B1:B34"), Type:=xlFillDefault
    Range("B1:B34").Select
    Range("A1:B34").Select
    Range("B34").Activate
    Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("B1:B34").Select
    Selection.ClearContents
    Range("C1").Select
Application.ScreenUpdating = True
End Sub