Question

I request your help in sorting out my issues on a small change in the below code.
I have code to insert rows while inserting row i would also like to add serial numbers just like 1,1.1,1.2 and 1.3….

The code below is already mentioned in the tool for adding serial numbers, can somebody tell me how the code can be tweaked to achieve the serial number in 1,1.1,1.2 format and if the rows are deleted or inserted it should add the serial number by 0.1 value based on previous serial number

dim m as integer
m = 0
Application.WorksheetFunction.Max(.Columns(columnidCol))
.Cells(r, columnidCol).Value = m + 1

The above code will give the value as 1, when I insert the row, the “columnidcol” is derived from the publicly declared constants as given below

Public Const numberoneCol As Integer = 2
Public Const columnidCol As Integer = numberoneCol

Please help me in modifying the above code.

Answer 1

You can store Serial Number in ThisWorkbook.CustomDocumentProperties:

ThisWorkbook.CustomDocumentProperties.Add Name:="SerialNumber", Type:=msoPropertyTypeString
....
ThisWorkbook.CustomDocumentProperties("SerialNumber").Value = ThisWorkbook.CustomDocumentProperties("SerialNumber").Value + 1
....
dim m as integer
m = ThisWorkbook.CustomDocumentProperties("SerialNumber").Value
.Cells(r, columnidCol).Value = m + 1