Código automatico

2024 - VBA & Macros

Post Recente por robertonl 6 anos atrás

3 Posts

2 Usuários

0 Reactions

924 Visualizações

RSS

robertonl

(@robertonl)

Posts: 121

Estimable Member

Topic starter

Boa noite.
Preciso de um pequeno ajuste na geração de código.
O código ele inicia-se com duas letras e seis números após as letras.
Porém quando o código do fornecedor é final 9 e o código seguinte será o de nº 10 ele fica com sete números após a letra.
Segue o exemplo.
XX000009 o sistema gera o código desta maneira XX0000010
Necessito que ele fique neste formato (XX000010)

Private Sub UserForm_Initialize()

        Dim codigo
        Dim rLast As Integer
        Dim nome As String
        
               
        Cod_Fornecedor.Caption = False
    
        With Sheets("Fornecedor")
           
            'Obtém a última linha da Planilha:
            rLast = .Cells(.Rows.Count, "A").End(xlUp).Row + 0
        
           
            Cod_Fornecedor.Caption = "FO" & "00000" & rLast       '& "00000"
        End With
        
   
End Sub

Postado : 01/09/2018 3:29 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

robertonl,

Boa noite!

Faça assim:

Private Sub UserForm_Initialize()
        Dim codigo
        Dim rLast As Integer
        Dim nome As String
        Dim Num As String
       
               
        Cod_Fornecedor.Caption = False
   
        With Sheets("Fornecedor")
           
            'Obtém a última linha da Planilha:
            rLast = .Cells(.Rows.Count, "A").End(xlUp).Row + 0
       
            If rLast <= 9 Then
                Cod_Fornecedor.Caption = "FO" & "00000" & rLast     '& "00000"
            Else
                Cod_Fornecedor.Caption = "FO" & "0000" & rLast     '& "00000"
            End If
        End With
       
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 01/09/2018 5:13 pm