Forum Discussion

HSalles's avatar
HSalles
Copper Contributor
Dec 23, 2022

How to create a alphanumeric sequence on vba

Hi,   I need to create a code that are composed by 2 digits and I want to use all the numbers (0-9) and letters (A-Z). Could some help me to create the vba code to do this please?   Ex: after th...
  • HansVogelaar's avatar
    HansVogelaar
    Dec 27, 2022

    HSalles 

    New version:

    Function nextUDI(prevUDI As String) As String
        'Gera UDI com base no número anterior
        Dim prefixo As String
        Dim n As Long
        Dim prevVal As Long
        Const strAlphabet = "0123456789ABCDEFGHJKLMNPQRSTUVWXYZ"
        n = Len(prevUDI)
        prevVal = 34 * (InStr(strAlphabet, Mid(prevUDI, n - 1, 1)) - 1) + InStr(strAlphabet, Right(prevUDI, 1)) - 1
        prefixo = Left(prevUDI, n - 2)
        nextUDI = prefixo & fBase34(prevVal + 1)
    End Function

Resources