Code for creating a Alphabetical sequence.

[bamaisgreat]

Our company uses Letter formats to track our material. I was wanting to be able to automate this process a little. We use 5 letters ( GTCBA ) and ever time we add more material it gets a new code which would be like GTCBB the list goe on and on. We keep up with this on Column A of an Excel spreadsheet but it is all manually entered. If you have any ideas or suggestions please share. Thanks

 

[pjmorris]

try this User Defined Function:

Function StrngPlus(Srce As String, Step As Integer)
    Dim ltrs As String
    Dim n As Integer
    Dim Carry As Integer
    
    For n = 1 To Len(Srce)
        If Asc(Right(Srce, n)) + Carry + Step > Asc("Z") Then
           ltrs = Chr(65 + ((Asc(Right(Srce, n)) + Carry + Step - 65) Mod 26)) & ltrs
           Carry = 1
        Else
           ltrs = Chr(65 + ((Asc(Right(Srce, n)) + Carry + Step - 65) Mod 26)) & ltrs
           Carry = 0
        End If
        Step = 0
    Next n
    
    If Carry = 1 Then ltrs = "A" & ltrs
    
    StrngPlus = ltrs
    
End Function

You'll need to enter it into a Module and then in the simply insert =StrngPlus(A1,1) into A2 and copy down (or something similar). If you want to increment the letters more than 1 at a time simply replace the 1 with whatever step you want.

Hope this helps.

 

[bamaisgreat]

Our company uses Letter formats to track our material. I was wanting to be able to automate this process a little. We use 5 letters ( GTCBA ) and ever time we add more material it gets a new code which would be like GTCBB the list goe on and on. We keep up with this on Column A of an Excel spreadsheet but it is all manually entered. If you have any ideas or suggestions please share. Thanks

Thank you that works great

 

[pjmorris]

My pleasure, thanks for the feedback.