Help:how to select random numbers in column

[biznez]

Hello everyone,

I have a list of numbers in A1:A50. I would like to have something that would select 10% of those numbers randomly avoiding duplicates
thanks for all your help

 

[MickG]

Try this:-
It now gives you 10 % of 1400, (140)

[COLOR="Navy"]Sub[/COLOR] MG19May17
[COLOR="Navy"]Dim[/COLOR] Num [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Pcent [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
Randomize
[COLOR="Navy"]With[/COLOR] CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
Pcent = 1400
[COLOR="Navy"]Do[/COLOR] Until .Count = Pcent * 0.1
    Num = Range("A" & Int(Rnd * Pcent) + 1).value
        [COLOR="Navy"]If[/COLOR] Not .Exists(Num) [COLOR="Navy"]Then[/COLOR]
            .Add Num, ""
        [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Loop[/COLOR]
Sheets("Shee2").Range("A1").Resize(.Count) = Application.Transpose(.keys)
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]With[/COLOR]
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick