Random alphanumeric generator

Sub Test_RandomNumberLetters()
  MsgBox RandomNumberLetters(6)
    MsgBox RandomNumberLetters(6, False)
End Sub

Function RandomNumberLetters(NumberOfDigits As Integer, Optional CaseSensitive As Boolean = True) As String
  Dim i As Integer, j As Integer, ss As String, s As String
  For i = 1 To NumberOfDigits
    j = RBetween(1, 36)
    s = Chr(j + 64)
    If j > 26 Then
      s = CStr(j - 27)
    End If
    If CaseSensitive = True And j < 27 Then
      If (RBetween(1, 2) > 1) Then s = Chr(j + 96)
    End If
    ss = ss & s
  Next i
  RandomNumberLetters = ss
End Function

Function RBetween(lowerbound As Long, upperbound As Long) As Long
  RBetween = WorksheetFunction.Floor((upperbound - lowerbound + 1) * Rnd + lowerbound, 1)
End Function

I like it.

Originally Posted by snb

or

Sub tst()
 Randomize

 c00 = Join([transpose(index(char(row(65:90))&char(row(97:122)) ,))], "") & "0123456789"
 For j = 1 To 6
  c01 = c01 & Mid(c00, Int(Len(c00) * Rnd) + 1, 1)
 Next
 
 msgbox c01
End Sub

Originally Posted by tigeravatar

@ukphoenix:
I came up with a non-VBA solution (see attached), though its a bit more comprehensive than what you originally asked for. It is a .xlsx file so it requires excel 2007 or higher to view. Just set the parameters you're looking for and press F9 to generate a new password until it gives you one you want. Then you can copy/paste the password into a notepad or word doc to keep it. If you'd like to see what's going on behind the scenes, the worksheet protection password is "123" (no quotes), and columns A:K are hidden.

Do you have any ideas on how we can take your formula and apply it in a column for more than one at a time?
I envision a column with usernames and then a column for passwords, then using mail merge to send them out.

Thanx all, i can work with these.

Have a look at this funny link and bear in mind that 6 case-sensitive alphanumeric digits isn't very secure.

It's even less secure as people aren't very good at remembering 6 randoms characters and so are massively more likely to write down the passwords somewhere.