auto number form

[alex.simms]

I would like to include a text box in a form in which the number in the box
will increment by one each time textbox1 is filled.
can any one suggest a method of achieving this

 

[Guest]

No easy way except using VB... If this is a workbook where more than 1 copy
will exist then you neet to create a text (or database which is my personal
favorite) file on a network drive and access that through code. If there will
be only one copy of the file then it is easier to get unique incremented
numbers. Just store a number on a hidden sheet somewhere and increment it
when required...

HTH

 

[Charles Harmon]

Alex,

Here is a code that will start the listbox text with "0" then each time you
Tab or press the Enter key on textbox2 Textbox1 will increment. You need to
set the Property value of Textbox1 Text to "0".

HTH

Charles

Private Sub Textbox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal
Shift As Integer) 'tab key
Application.ScreenUpdating = False
If KeyCode = "9" Or KeyCode = "13" Then
With UserForm1
.TextBox1.Text = .TextBox1.Text + 1
End With
End If
End Sub