none
Auto preenchimento VBA RRS feed

  • Pergunta

  • olá, preciso de um método de auto preenchimento que me de o próximo número de um banco de códigos já utilizados em um formulário.

    por exemplo: 15265A próximo seria 15266A

    gostara que esse número auto preenchesse a lacuna do código.

    quarta-feira, 28 de junho de 2017 18:13

Respostas

  • Option Explicit
    
    Sub codigo()
    
    Dim codigoinicial As String
    
    Dim proximocodigo As String
    
    Dim partenumerica As Long
    
    Dim parteliteral As String
    
    Dim acrescimo As Long
    
    codigoinicial = "15265A"
    
    parteliteral = Right(codigoinicial, 1)
    
    partenumerica = CLng(Left(codigoinicial, Len(codigoinicial) - 1))
    
    acrescimo = partenumerica + 1
    
    proximocodigo = acrescimo & parteliteral
    
    MsgBox proximocodigo
    
    End Sub
    Esse código é um esboço, se você passar mais detalhes sobre o que precisa, posso melhorar o código.

    Anderson Diniz


    • Sugerido como Resposta AndersonFDiniz2 quinta-feira, 29 de junho de 2017 17:19
    • Editado AndersonFDiniz2 quinta-feira, 29 de junho de 2017 17:27
    • Marcado como Resposta Rhuden Ramos segunda-feira, 3 de julho de 2017 11:48
    • Não Marcado como Resposta Rhuden Ramos segunda-feira, 3 de julho de 2017 11:48
    • Marcado como Resposta Rhuden Ramos sexta-feira, 14 de julho de 2017 11:33
    quinta-feira, 29 de junho de 2017 17:18