versioning vba for excel

[luca90]

Possible to store in a cell of sheet a increment of number to simulate major, minor, revision in vb6?
All in the event Beforesave of workbook

[westconn1]

there has been a thread on this recently, do a search

[luca90]

there has been a thread on this recently, do a search

sorry but search and re-search but not found

[westconn1]

haha, i found it easy, it was your previous thread on the same subject

you would have to specify any update value, except the revision, no way to automatically tell if major or minor update, unless you code it in elswhere

mm = inputbox ("major /minor increase? Format ""01.01""" , left(range("x3"), 5))   ' where X3 is the cell containing current version
if mm = mm & "." left(range("x3"), 5) then v = ".00" else v = right(range"x3"), 3) +.01
range("x3").value = mm & v

no tested at all, will give problem above version 99, version resets to 0 with major/minor change

[luca90]

haha, i found it easy, it was your previous thread on the same subject

you would have to specify any update value, except the revision, no way to automatically tell if major or minor update, unless you code it in elswhere

mm = inputbox ("major /minor increase? Format ""01.01""" , left(range("x3"), 5))   ' where X3 is the cell containing current version
if mm = mm & "." left(range("x3"), 5) then v = ".00" else v = right(range"x3"), 3) +.01
range("x3").value = mm & v

no tested at all, will give problem above version 99, version resets to 0 with major/minor change

sorry but your code have many sintiax error

[westconn1]

sorry but your code have many sintiax error

that is what you get typing code into a webbrowser and not testing, try fixed and tested version

mm = InputBox("major /minor increase? Format ""01.01""", , Left(Range("b3"), 5))    ' where B3 is the cell containing current version
If mm = Left(Range("b3"), 5) Then v = Right(Range("b3"), 3) + 0.01 Else v = ".00"
Range("b3").Value = mm & v