Randomize

[don42]

Hallo wie heeft een oplossing voor het volgende

ik wil in kolom B een aantal deelnemers zetten (onbekend aantal ongeveer 80)
in kolom A had ik dan graag een willekeurig startnummer
alleen unieke hele nummers

wie kan mij hier mee helpen

Don

 

[snb]

Sub M_snb()
    sheet1.Columns(2).SpecialCells(2).Offset(, -1).Name = "snb_002"
    [snb_002] = "=rand()"
    [snb_002] = [index(rank(snb_002,snb_002),)]
End Sub

 

[don42]

bovenste regel niet

Snb dat is weer heel mooi wat je gemaakt hebt
is het ook mogelijk dat niet de hele kolom maar vanaf a2 zodat ik een titel aan de bovenste rij kan geven zie voorbeeld
Bekijk bijlage Darts.xlsm
Don

 

[mvw64]

Misschien kan je er zo iets mee ?

 

[don42]

mvw64 ik krijg een foutmelding het werkt niet helaas.
ik hoop dat snb de oplossing heeft of iemand anders want de code werkt prima

 

[snb]

Het voordeel dat je niet meteen al je specifikaties hebt geformuleerd is, dat je nu kunt gaan uitzoeken hoe de code precies werkt.
Zo gauw je daar achter bent weet je ook welke kleine aanpassing je moet maken om aan de tweede specifikatie te voldoen.
3 vliegen in 1 klap: je leert er ook nog een hoop van.

 

[don42]

Ha ha ja lekker precies wat je schrijft

Private Sub CommandButton21_Click()
Range(Range("a2"), Range("a2").End(xlDown)).Select
Selection.ClearContents
Range("h1").Select
LastRow = Range("b" & Rows.Count).End(xlUp).Row
 Sheets("Deelnemers").Range("b2:B" & LastRow).SpecialCells(2).Offset(, -1).Name = "snb_002"
    [snb_002] = "=rand()"
    [snb_002] = [index(rank(snb_002,snb_002),)]
End Sub

sbn
Deze werkt is dit een goede oplossing?
graag je mening
Don

 

[snb]

Het kan met de drie regels die ik stuurde.
In de eerste regel moet een kleine aanpassing komen.

 

[don42]

Ik kan het nu niet vinden heb nog met die offset geprobeerd maar dan gaat het ook niet lekker
geef maar een hint bij SpecialCells(2) of columns

 

[snb]

welk resultaat krijg je met:

msgbox sheet1.Columns(2).SpecialCells(2).address

 

[don42]

oplossing

snb

deze dan?

Blad1.Range(Range("b2"), Range("b2").End(xlDown)).SpecialCells(2).Offset(, -1).Name = "snb_002"
    [snb_002] = "=rand()"
    [snb_002] = [index(rank(snb_002,snb_002),)]

Don