Please help: Random number from column

[biznez]

hi,

I have a list of different 9 digit numbers in each cell A1:A50. Using a command button, i require a macro that would select 10% of those numbers randomly avoiding duplicates and return the value to column B
is this possible?

thanks

 

[biznez]

I tried the macro below but the only problem is that its not working if there is 9 digit number in each cell from A1:A50...can someone please help look into this...thanks

Sub MG18May11()
Dim num As Integer
Randomize
With CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
Do Until .Count = 5
num = Range("A" & Int(Rnd * 50) + 1).Value
If Not .Exists(num) Then
.Add num, ""
End If
Loop
Sheets("Sheet2").Range("A1").Resize(.Count) = Application.Transpose(.keys)
End With
End Sub

 

[mirabeau]

try

Dim num as Long

 

[biznez]

try

Dim num as Long

Thanks mirabeau, works great