Random Number Generator

[gmazza76]

Good Morning,

Is there anyway i can create a random number to load into a userform when it is created.

Many Thanks

 

[Richard Schollar]

Sure - plonk something like this in the Initialize event of the userform:

Private Sub UserForm_Initialize()

Randomize  

Me.TextBox1.Value = CInt(Rnd * 1000000)  'plonk a 6 digit random number in TextBox1 - amend as appropriate

End Sub

 

[gmazza76]

Many Thanks.

Will the random number every be re generated as i will be using it to remove a line of data from a spreadsheet when the enquiry has been dealt with.

 

[Richard Schollar]

There is nothing in the code that enforces no duplicates (so it could be possible to get a subsequent duplicate). If you need to enforce no duplicates, then you need to maintain a record somewhere of all previously generated numbers.

What is the reason for the random number (is it an ID for example)? If it is an ID, I would recommend using a sequential number instead.

 

[gmazza76]

Sorry about this.

I have added the VB in but i keep getting an overflow error
"Run-time error "6" - Overflow.

Do you know what this means?

Many Thanks

 

[gmazza76]

The reason for the random number was a reference on one of the sheets so i can delete the line once the enquiry has been completed, as it is then entered onto another sheet under a managers name for stat purposes.

 

[Richard Schollar]

Sorry that line should have been:

Randomize  

Me.TextBox1.Value = CLng(Rnd * 1000000)  'plonk a 6 digit random number in TextBox1 - amend as appropriate