I need help for a Random Number Generator

[xr600rr]

Hello, I need some help. What I need is a random number generator for numbers 1-9. It needs: 1 number per cell in a column and the numbers can not be the same. i.e.:
4
1
2
6
8
5
3
7
9

I have a VB mod that will produce the numbers but all the numbers appear in the same cell:

Function RandLotto(Bottom As Integer, Top As Integer, _
Amount As Integer) As String
Dim iArr As Variant
Dim i As Integer
Dim r As Integer
Dim temp As Integer

Application.Volatile

ReDim iArr(Bottom To Top)
For i = Bottom To Top
iArr(i) = i
Next i
For i = Top To Bottom + 1 Step -1
r = Int(Rnd() * (i - Bottom + 1)) + Bottom
temp = iArr(r)
iArr(r) = iArr(i)
iArr(i) = temp
Next i
For i = Bottom To Bottom + Amount - 1
RandLotto = RandLotto & " " & iArr(i)
Next i
RandLotto = Trim(RandLotto)
End Function

With =randlotto(1,9,1) as the formula for the cell.

Any Ideas?

 

[xr600rr]

still wont do it. is there a way to attach this file so anyone can look at it?

 

[xr600rr]

NikRot.htm
	B	C	D	E	F	G	H
1	ShortWeek	LongWeek
2	#N/A	$
3	#VALUE!	#
4	#VALUE!	@
5	#VALUE!	!
6	#VALUE!	%
7	#VALUE!	^
8	#VALUE!	&
9	#VALUE!	*
10	#VALUE!	(
11
12	ShortWeek	LongWeek	Group3		Group1	Group2
13	9	4	!		8	Q
14	3	3	@		7	W
15	5	2	#		6	E
16	4	1	$		5	R
17	2	5	%		4	T
18	7	6	^		3	Y
19	6	7	&		2	U
20	8	8	*		1	I
21	1	9	(		9	O
22
23
24
Random Placement

 

[Mark O'Brien]

Mark, TRUE is the range_lookup value that requires the table_array to be sorted on its leftmost column -- not FALSE.

Mark,

Thanks,

Mark

Sorry, couldn't resist. That's the sort of email that my boss, Mark, sends to me it bugs the hell out of me. Seriously thanks for correcting me.

 

[Mark O'Brien]

Based on Mark W.'s correction, I recreated your worksheet and:

=VLOOKUP(1,$B$13:$D$21,3,FALSE)

works fine for me. It does not return #N/A

 

[xr600rr]

OK, Dont know what I did but I re entered everything and it works! Thanks all for your help. :D :D :D