Unique Auto Number Required

[Mohammad Ishaq]

I have an excel vba user from .I want auto generated unique number in one of the text box on my user form . I want that when i click the save button , the number transfer my sheet.For this i write the following code but it gives the number again and again.I require the unique no.Please some one help me to correct my code to get unique no.

Dim Low As Long
Dim High As Long
Dim r As Long
Low = 1
High = 9999
r = Int((High - Low + 1) * Rnd() + Low)

TextBox9.Text = r

 

[Chihiro]

What's the purpose of unique number? Is it just for identification or is it used for some other calculation etc?

 

[Mohammad Ishaq]

What's the purpose of unique number? Is it just for identification or is it used for some other calculation etc?

It is used for Employee Identification . no calculation is required.

 

[Chihiro]

Then why not simply increment? Instead of generating random number?

 

[Mohammad Ishaq]

will u explain a little?I want to transfer this no 3 sheets at the same time from one text box.

▬▬▬▬▬▬▬▬▬ Mod edit : thread moved to appropriate forum !

​

 

[Chihiro]

Upload a sample, it would help in seeing your exact requirement.

But to explain, if you need unique number associated to each employee being tracked. Start with 1, and increment by 1.

So, logic would be. Row# of cell being updated - offset value.

 

[Mohammad Ishaq]

yes you are right but it is possible only in excel column i want a unique no in text box and transfer the same no into three different worksheet.

 

[Mohammad Ishaq]

i have upload the file.

 

[Chihiro]

So you can add something like below to regular module...

Sub GenerateID()
SalaryForm.TextBox9.Value = Sheets(" EmpData").Cells(Rows.Count, 3).End(xlUp).Row

End Sub

And call it on UserForm initialize event to populate Emoloyee ID text box.

Private Sub UserForm_Initialize()
Call GenerateID
End Sub

 

[Mohammad Ishaq]

yes its ok now.Thanks