I have a grid of 100 random four letter words (no not BAD four lette
words!) and they range from C4 to L13. I am trying to write in VBA so
can randomly select two words from the grid to create one 8 letter wor
for random password generation. I know that this has been done, I don'
want to recreate the wheel, but right now this is eluding me. any hel
would be greatly appreciated!

RZAL7

I've attached the workbook I have so far

Attachment filename: passgenrzv01.xls
Download attachment: http://www.excelforum.com/attachment.php?postid=59097
--
Message posted from http://www.ExcelForum.com

With the analysis toolpak installed:-

=INDEX($C$4:$L$13,RANDBETWEEN(1,10),RANDBETWEEN(1, 10))&INDEX($C$4:$L$13,RANDBETW
EEN(1,10),RANDBETWEEN(1,10))

--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL 97/00/02/03

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission :-)
----------------------------------------------------------------------------



"rzal7 " wrote in message
...
I have a grid of 100 random four letter words (no not BAD four letter
words!) and they range from C4 to L13. I am trying to write in VBA so I
can randomly select two words from the grid to create one 8 letter word
for random password generation. I know that this has been done, I don't
want to recreate the wheel, but right now this is eluding me. any help
would be greatly appreciated!

RZAL7

I've attached the workbook I have so far.

Attachment filename: passgenrzv01.xls
Download attachment: http://www.excelforum.com/attachment.php?postid=590974
---
Message posted from http://www.ExcelForum.com/



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.708 / Virus Database: 464 - Release Date: 18/06/2004

This works but sometimes generates only one word, any cure for that?
am also in a quandry on how to attach a button to the work sheet t
activate this function. Thanks you very much for your post, BTW

--
Message posted from http://www.ExcelForum.com

Thanks Ken, I guess I need to figure out how to attach this in a macro

--
Message posted from http://www.ExcelForum.com

To attach a button to the macro, go to the view menu, select toolbars, then select Control Toolbox. Select the icon that looks like a button (if you hover over it it will say "Button"). Draw the button where ever you want it on the sheet. If the macro is already in VBA, a dialog box will open asking you which macro you want to attach the button to. Select the appropriate one and you should be good to go.

If the macro is not in VBA when you create the Button, then once you have added the macro, right click on the button and select "Assign Macro..."

Below is the full corrected form of the macro i posted earlier. If you don't want to generate multiple passwords with one click of the button, replace everything after the "Next k" line with
MsgBox "The password is " & Password & "."

Sub RandomPassword()
Dim i As Integer, j As Integer, k As Integer
Dim Password As String
Begin:
Password = ""
For k = 1 To 2
Randomize
i = Int(10 * Rnd + 1)
Randomize
j = Int(10 * Rnd + 1)
Password = Password & Worksheets("sheet1").Cells(3 + i, 2 + j)
Next k
Dim answer As Integer
answer = MsgBox(Prompt:="Password is " & Password & _
". Do you want to generate another?", Buttons:=vbYesNo)
If answer = vbYes Then GoTo Begin
End Sub

Hi Marcotte A,
I am only able to generate a dot as a password(!) using this code. Am I
doing something wrong?.
Martyn

"Marcotte A" wrote in message
...
To attach a button to the macro, go to the view menu, select toolbars,
then select Control Toolbox. Select the icon that looks like a button (if
you hover over it it will say "Button"). Draw the button where ever you
want it on the sheet. If the macro is already in VBA, a dialog box will
open asking you which macro you want to attach the button to. Select the
appropriate one and you should be good to go.

If the macro is not in VBA when you create the Button, then once you have
added the macro, right click on the button and select "Assign Macro..."

Below is the full corrected form of the macro i posted earlier. If you
don't want to generate multiple passwords with one click of the button,
replace everything after the "Next k" line with
MsgBox "The password is " & Password & "."

Sub RandomPassword()
Dim i As Integer, j As Integer, k As Integer
Dim Password As String
Begin:
Password = ""
For k = 1 To 2
Randomize
i = Int(10 * Rnd + 1)
Randomize
j = Int(10 * Rnd + 1)
Password = Password & Worksheets("sheet1").Cells(3 + i, 2 + j)
Next k
Dim answer As Integer
answer = MsgBox(Prompt:="Password is " & Password & _
". Do you want to generate another?", Buttons:=vbYesNo)
If answer = vbYes Then GoTo Begin
End Sub


---
Outgoing mail is certified Virus Free.
(Giden posta virüssüz olarak belgelendi.)
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.709 / Virus Database: 465 - Release Date: 22.06.2004