Long autonumber beginning with a 0 (zero)
 

I've found this very nice script for autonumber on a website. Everything
works just fine, but I need som help, please.
The autonumber starts at 41160 and increase with one everytime I open
it. But I want to add a "0" (zero) in the beginning of the autonumber,
instead of 41160 I want the output to be 041160.

The script I use:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim x As Boolean, y As Long
y = Worksheets("Blad1").Range("T2").Value + 1
Set fs = CreateObject("Scripting.FileSystemObject")
x = fs.fileexists("C:\indexlog.txt")
If x Then Kill "C:\indexlog.txt"
Open "C:\indexlog.txt" For Output As #1
Print #1, y
Close #1
End Sub

Private Sub Workbook_Open()
Open "C:\indexlog.txt" For Input As #1
Input #1, x
Close #1
Worksheets("Blad1").Range("T2") = x
End Sub
-

--
//Jst
Reclaim Your Inbox!
http://www.mozilla.org/products/thunderbird/

Long autonumber beginning with a 0 (zero)
 

Assume you want a 6 digit string and if the value of the number would be 6
digits, you would not want a leading zero.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim x As Boolean, y As Long
y = Worksheets("Blad1").Range("T2").Value + 1
Set fs = CreateObject("Scripting.FileSystemObject")
x = fs.fileexists("C:\indexlog.txt")
If x Then Kill "C:\indexlog.txt"
Open "C:\indexlog.txt" For Output As #1
Print #1, y
Close #1
End Sub

Private Sub Workbook_Open()
Dim x as long
Open "C:\indexlog.txt" For Input As #1
Input #1, x
Close #1
Worksheets("Blad1").Range("T2") = "'" & format( x,"000000")
End Sub

--
Regards,
Tom Ogilvy

"jst_se" wrote in message
...
I've found this very nice script for autonumber on a website. Everything
works just fine, but I need som help, please.
The autonumber starts at 41160 and increase with one everytime I open
it. But I want to add a "0" (zero) in the beginning of the autonumber,
instead of 41160 I want the output to be 041160.

The script I use:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim x As Boolean, y As Long
y = Worksheets("Blad1").Range("T2").Value + 1
Set fs = CreateObject("Scripting.FileSystemObject")
x = fs.fileexists("C:\indexlog.txt")
If x Then Kill "C:\indexlog.txt"
Open "C:\indexlog.txt" For Output As #1
Print #1, y
Close #1
End Sub

Private Sub Workbook_Open()
Open "C:\indexlog.txt" For Input As #1
Input #1, x
Close #1
Worksheets("Blad1").Range("T2") = x
End Sub
-

--
//Jst
Reclaim Your Inbox!
http://www.mozilla.org/products/thunderbird/

Long autonumber beginning with a 0 (zero)
 

Thank you, Tom!
I tried Worksheets("Blad1").Range("T2") = "0" & x
But your solution was much better and works perfect.

Regards,
Jst

Tom Ogilvy wrote:
Assume you want a 6 digit string and if the value of the number would be 6
digits, you would not want a leading zero.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim x As Boolean, y As Long
y = Worksheets("Blad1").Range("T2").Value + 1
Set fs = CreateObject("Scripting.FileSystemObject")
x = fs.fileexists("C:\indexlog.txt")
If x Then Kill "C:\indexlog.txt"
Open "C:\indexlog.txt" For Output As #1
Print #1, y
Close #1
End Sub

Private Sub Workbook_Open()
Dim x as long
Open "C:\indexlog.txt" For Input As #1
Input #1, x
Close #1
Worksheets("Blad1").Range("T2") = "'" & format( x,"000000")
End Sub



--
Reclaim Your Inbox!
http://www.mozilla.org/products/thunderbird/