Rijtje van 6 unieke nummers maken

[Bakkerbakgraag]

Dag fijne mensen,
ik ben op zoek naar een code om een rijtje van 6 willekeurige, unieke getallen onder elkaar te krijgen. Elke waarde moet onder elkaar in een nieuwe cel staan. De getallen mogen de waarden 1 t/m 15 bevatten.

Bij voorbaat dank voor de moeite en het eventuele reageren.

 

[SjonR]

2 - 4 - 7 - 12 -14 - 15
3 - 4 - 6 -10 - 11 -13

 

[VenA]

Dat klopt niet @SjonR. Er staan 2 4en onder elkaar

 

[edmoor]

Probeer deze eens:
Bekijk bijlage Schudden.xlsm

 

[emields]

Ik denk eerder zoiets

 

[Bakkerbakgraag]

Ik denk eerder zoiets

Dit is exact wat ik zoek! Ik zie echter de macro niet staan en kan de code dus ook niet achterhalen. Wat doe ik fout?

 

[SjonR]

:thumb:

 

[HSV]

Zonder kolom B.

 

[Bakkerbakgraag]

De knop doet precies wat ik zoek. Maar wat is de code van deze macro?
Sorry dat ik dit zelf niet kan vinden.

 

[edmoor]

Druk eens op de toetscombinatie ALT+F11

 

[Bakkerbakgraag]

@edmoor

Ja, dan zie ik deze code wel staan.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
[a1:a15] = "=rand()"
[a1:a15] = [index(rank(a1:a15,a1:a15),)]
[a7:a15].ClearContents
End Sub

Maar als ik deze kopieer in een ander bestand in een macro, verschijnt die nieuwe macro niet als ik op het tabblad "ontwikkelaars" klik op macro's. Ik ben nog maar net begonnen met macro's, maar heeft het iets te maken dat in de code al staat dat het om een command button gaat? (Private Sub CommandButton1_Click() Ik ben gewend dat een code zo bijvooebeeld opent: Sub nummers()

Is het mogelijk om de code zo aan te passen, dat ik hem zelf aan een door mij ingevoegde knop kan hangen?

Bvd!

 

[HSV]

Alt+F11 → Menu Invoegen → Module.

sub nummers()
[COLOR=#333333]  Application.ScreenUpdating = False[/COLOR]
[COLOR=#333333]  [a1:a15] = "=rand()"[/COLOR]
[COLOR=#333333]  [a1:a15] = [index(rank(a1:a15,a1:a15),)][/COLOR]
[COLOR=#333333]  [a7:a15].ClearContents
end sub[/COLOR]

Hang de code nu aan een knop.

 

[Bakkerbakgraag]

Hartelijk dank, volgens mij kan ik hier verder mee. Kan over twee weekjes pas proberen want ik ben nu op vakantie.
Nogmaals dank voor het meedenken!

 

[Bakkerbakgraag]

Top, dit is wat ik zocht! Dank jullie wel!