Previous Topic Next Topic

How to make a seril number continue

Solved/Closed
SARC Posts 29 Registration date Saturday August 7, 2010 Status Member Last seen August 31, 2010 - Aug 19, 2010 at 10:22 AM
 SARC - Aug 21, 2010 at 11:16 PM
Hello,

I was wondering if you could make a serial number continue.. What i mean is.....lets say that i have to continue a serial number i cell F5 and i need it to automatically update to the next number (e.g.100 next time i open the sheet i need it to be 101)...

any help would make my life a little easier thanks.........

2 responses

Answer 1 / 2
Blocked Profile
Aug 19, 2010 at 10:52 AM
Hi there,

From first cell lets say F1,enter 101,F2 enter 102,F3 l03 ,now with mouse select F1 to F3 dragging it down to number desired it will be in serial.

Thanks
0
SARC
Aug 19, 2010 at 01:14 PM
Thanks... but i dont think u fully understood me. what i need is cell F5 to automatically be updated to the next number once i've closed and reopened my workbook. i dont want the cells to change from F5 to F6, F7 and so on...
0
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 766
Aug 20, 2010 at 10:09 AM
The issue would be that in order to serial number to hold, some one needs to save the file

You can either have number increase when book is open or close. for that open VBE (ALT + F11) and press CTRL + R and then double click on "ThisWorkbook". There depending on you want to go for close or open, pick the right event from the drop down and code it there
0
Answer 2 / 2
SARC Posts 29 Registration date Saturday August 7, 2010 Status Member Last seen August 31, 2010
Aug 20, 2010 at 02:47 PM
Ok thanks,.. I got this far with my knowledge of VBA...


Private Sub Workbook_Open()


End Sub

You think you can help me out with the rest of the code pls...
0
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 766
Aug 20, 2010 at 04:25 PM
Private Sub Workbook_Open()

Sheets("Sheet1").Range("A5") = Sheets("Sheet1").Range("A5") + 1
End Sub
0
SARC
Aug 20, 2010 at 11:29 PM
Nothing happened..

Pasted this on sheet1 code and nothing happened when i closed and opened the workbook...
0
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 766
Aug 21, 2010 at 05:55 AM
look in cell A5 of sheet titled Sheet1
0
SARC
Aug 21, 2010 at 11:16 PM
ah,,..... it works,,,... thanks rizvisa....................
0