how to create a Random list of names without duplicates

[roony]

hi,

i've tried searching, googling but cant find anything to get rid of the duplicates in my list.

bob
bill
john
jim

i keep getting duplicates everytime i try to randomise the list.

any urls or some code or something, wld be appreciated, i need this pretty quick, thanks

 

[Derek]

This was posted by SIXTHSENSE some time ago:

It randomises 8 names from a list.
First create a table of names:
Type sequence 1 - 20 in column F
Type names in column G

The macro will put random numbers in A1:A8
In B1 put this formula:
=VLOOKUP(A1,$F$1:$G$20,2,FALSE)

(ie the macro sets random number in column A and the formula looks up that number in your table)

Sub RandomNumbers() 'by SIXTHSENSE
Dim ranNum(8) As Integer
counter = 1
While counter <= 8
tmp = Int((20 * Rnd) + 1)
found = False
For j = 1 To counter
If tmp = ranNum(j) Then
found = True
Exit For
End If
Next j
If found = False Then
ranNum(counter) = tmp
counter = counter + 1
End If
Wend
For i = 1 To 8
Range("a" & i).Value = ranNum(i)
Next i
End Sub

regards
Derek

 

[tusharm]

For a variety of options see
Random Selection
http://www.tushar-mehta.com/excel/newsgroups/rand_selection/index.html

hi,

i've tried searching, googling but cant find anything to get rid of the duplicates in my list.

bob
bill
john
jim

i keep getting duplicates everytime i try to randomise the list.

any urls or some code or something, wld be appreciated, i need this pretty quick, thanks

 

[Goonitup]

This was posted by SIXTHSENSE some time ago:

It randomises 8 names from a list.
First create a table of names:
Type sequence 1 - 20 in column F
Type names in column G

The macro will put random numbers in A1:A8
In B1 put this formula:
=VLOOKUP(A1,$F$1:$G$20,2,FALSE)

(ie the macro sets random number in column A and the formula looks up that number in your table)

Sub RandomNumbers() 'by SIXTHSENSE
Dim ranNum(8) As Integer
counter = 1
While counter <= 8
tmp = Int((20 * Rnd) + 1)
found = False
For j = 1 To counter
If tmp = ranNum(j) Then
found = True
Exit For
End If
Next j
If found = False Then
ranNum(counter) = tmp
counter = counter + 1
End If
Wend
For i = 1 To 8
Range("a" & i).Value = ranNum(i)
Next i
End Sub

regards
Derek

The formual above does not work to produce a name without a duplicate. I keep getting the duplicates..I want to know is there a way to select a name and place it in a bracket and not have it selected again.. I have tried random selection and table array and nothing works.. I can get the names to not repeat be whatever is in a1 will always be in the 1st or top bracket slot.. I want the names to ge into a random slot... is there a way to do this off of a list of names