Generating alphanumeric id

[KOBBY123]

I SAW THIS CODES AND COPIED IT. IT 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

[Speshul]

I've seen this problem before. If you look on your keyboard, usually Top Right, you will see three LED lights. If you see the under under the 'A' icon is lit, you can solve this problem by pressing the "Caps Lock" button on the far left of the keyboard, generally it is under the Tab key

Hope this helps!

[Speshul]

Also; you already posted this, and it was solved.

http://www.excelforum.com/excel-prog...unique-id.html

[TMS]

Please don't type in ALL CAPITAL LETTERS. It is considered to be "shouting".

And note that your post does not comply with forum rules.

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here


Try:

Please Login or Register  to view this content.