I want to make series of 18 digit (can be vary) I can understand addition in second row making it hexadecimal how I can manage it!
in second input box if i put 333440000000000001 and in first 20 than generate series!
Code: Select all
Sub series()
Range("b:d").Clear
'Columns(2).NumberFormat = "@"
f = InputBox("please enter total series required")
ff = InputBox("enter start series num")
'fff = InputBox("enter start series num")
For i = 1 To f
c = (Cells(i, 1).Row - 1) Mod 9
'Cells(i + 1, 2).NumberFormat = "@"
Cells(i + 1, 2) = "'" & ff + h & c
h = h + 1
Cells(i + 1, 4).Value = Len(Cells(i + 1, 2).Value)
Next i
End Sub