Random indelen

[sjoerd12]

Hallo,

Ik ben bezig met een loting voor een toernooi.

Ik wil dat de teams uit Pot 1 worden geplaatst als 1e of 2e in de poule, en de teams uit Pot 2 worden geplaatst als 3e of 4e in de poule.

Kan iemand mij helpen??

Mvg. Sjoerd

Bekijk bijlage help mij.xlsx

 

[Niels28]

zoiets?

Bekijk bijlage help mij loting.xlsm

Niels

 

[sjoerd12]

Helemaal goed. zo wou ik het precies.

Maar kun je uit leggen wat je met kolom M en N hebt gedaan??

 

[Niels28]

In kolom M creëer ik dmv een macro unieke getallen, in kolom N vertaal ik deze naar 1 t/m 32 door telkens te kijken hoeveel er kleiner zijn als desbetreffend getal.

Niels

 

[sjoerd12]

Oké.

En hoe heb je die macro gemaakt, en wat heb je er achter gezet??

(Is handig om te weten als ik dit nog een gaan doen)

 

[Niels28]

Uitleg voor excel2007, principe voor 2010 blijft hetzelfde
Tabblad ontwikkelaars, klik op ontwerpmodus
bij invoegen klik je op opdrachtknop (1ste icoontje, 1 na laatste rij)
tekent de knop.
Rmuisknop => programmacode weergeven

om te kijken wat er achterstaat hoef je natuurlijk niet eerst de knop te teken.

dit is de code die er achter staat.

Private Sub CommandButton1_Click()
For x = 1 To 32
Randomize
Cells(x + 2, 13).Value = Rnd
Next
End Sub

Je kun het eventueel zonder macro doen en dan zet je in kolom M de formule

=aselect()

dan zet je de berekening op handmatig en druk je op F9 om de loting aan te passen.


Niels