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...

developer

excel

Formulas and Functions

Macros and VBA

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

HansVogelaar

MVP

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

HSalles

Copper Contributor

Dec 27, 2022

Thank you HansVogelaar, it works perfectly now

Forum Discussion

How to create a alphanumeric sequence on vba

Resources