word serch

[make1up]

i am trying to make a word search puzzle for my kids using excel i want to be able to enter there spelling words and have excel place them in a grid of letters in random places either up and down or back and forth or diagonal and have it different each time in order to help them spell there words i can get a field of random letters to fill a grid of what ever size i want and then i could go in and enter the words manually but i would like the computer do it for me lol i could send the work sheet that i have started with the grid of letters but i am at a loss for the placement of the words thanks for any help you could give me

 

[GTO]

Excel Workbook
	A	B	C	D	E	F	G	H	I	J	K	L
1	S	N	P	H	H	U	A	T	V	S	B	K
2	Z	S	W	F	R	I	E	N	D	B	H	Y
3	B	P	E	M	H	Q	Q	G	H	V	O	V
4	X	F	S	C	Z	G	N	C	Z	R	R	A
5	C	U	H	B	R	H	J	H	Y	Z	S	K
6	E	Q	K	K	S	E	I	Q	F	E	E	P
7	X	G	U	J	H	X	T	Q	Q	L	C	O
8	A	O	X	L	R	N	N	M	J	K	H	B
9	K	J	M	E	M	N	O	O	M	Y	R	S
10	N	K	C	U	L	T	P	V	A	F	B	C
Sheet2

Excel 2003

You mean something like that?

 

[make1up]

yes that is what i mean does it do it randomly? and let you use a word list of your own?

 

[GTO]

yes that is what i mean does it do it randomly? and let you use a word list of your own?

Okay, then let's try something very easy. Rather than the code operate from the list of words, make the list, and enter the words into the (blank) puzzle area of the sheet in various manners as shown. Then select the puzzle area and run:

Excel Workbook
	A	B	C	D	E	F	G	H	I
1	S	N	S	P	H	H	U	A	T
2	V	S	E	B	K	W	U	J	Z
3	W	B	C	A	R	R	O	T	Y
4	J	N	R	T	B	P	M	H	Q
5	Q	G	E	H	V	V	P	Z	X
6	F	S	T	Z	G	N	C	Z	R
7	A	O	C	C	U	H	B	H	J
Sheet2

Excel 2003
The above simply runs through the range selected, and randomly assigns letters to each blank cell.

How's that?

Mark

 

[GTO]

ACK! How about I include the code...

Sub FillIt()
Dim Cell As Range
    
    For Each Cell In Selection
        If Cell.Value = vbNullString Then
            Cell.Value = Chr(Int((90 - 65 + 1) * Rnd + 65))
        End If
    Next
End Sub

 

[make1up]

i did make a grid and entered the formula
=LOWER(CHAR(RANDBETWEEN(65,90)))
into each cell then i can go back and enter the words over the formula to make the word search puzzle and i can hit f9 to randomize the unused cells but i was wanting excel to place the words for me it may not be able to be done thanks for the help

 

[make1up]

the lower command just puts lower case letters instead of uppercase ones