Generating unique id

I have a userform with various textboxes for posting client data to worksheet 1. What i cant get correct is to let the userform generate a unique id in "textboxid" and post it to sheet 1 whenever the command button is pressed. After that i want the userform to automatically generate another unique id for the next customer. Please i need help

Please Login or Register  to view this content.

Thanks subverter am most grateful . Your codes work well. But it seems i did not explain myself well. I want a code that will generate alphanumeric numbers of about 7 digits that will be placed into column a cell 2 of sheet 1 when i press the command button. Sorry for not explaining myself well

I SAW THIS CODES AND COPIED IT. IT LSO WORKS WELL BUT THE PROBLEM IS IT DOES NOT MOVE TO THE NEXT CELL OF A3. IT ONLY STAYS AT A2 AND KEEPS ON CHANGING THE ID NUMBERS WHENEVER I POST DATA TO THE NEXT ROW OF B3. WILL BE GLAD IF YOU CAN HELP ME MODIFY IT AS WELL
Dim id As String
Dim i As Integer
Randomize
For i = 1 To 5
If Int((2 * Rnd) + 1) = 1 Then
id = id & Chr(Int(26 * Rnd + 65))
Else
id = id & Int(10 * Rnd)
End If
Next i
ActiveSheet.Range("A2").Formula = id
End With

Maybe:

Please Login or Register  to view this content.

Thanks john. It worked like magic. God bless

You're welcome. Glad to help out and thanks for the feedback.

@ Winon, Thanks for the comment.

@ Winon. Your PM is full.