Gerar IDs sempre de início da Letra 'C' (C0001)

2024 - VBA & Macros

Post Recente por jcgmcs 5 anos atrás

3 Posts

2 Usuários

0 Reactions

1,215 Visualizações

RSS

jcgmcs

(@jcgmcs)

Posts: 69

Estimable Member

Topic starter

Olá Boa Noite!
Tenho o código abaixo que gera IDs assim: 1, 2, 3, 4...
Gostaria de ajuda pra conseguir gerar IDs desta seguinte forma: C0001, C0002, C0003... C0100... e assim sequencialmente sempre de início da Letra 'C'
Dsd já agradecido.

Sub Gera_Codigo()

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Clientes")
With ws

Linha = 5
Cont = 1

Do Until Sheets("Clientes").Cells(Linha, 2) = ""
Linha = Linha + 1
Cont = Cont + 1
Loop

Form_Cadastra.Codigo.Text = Cont

End With

End Sub

Postado : 23/11/2019 10:40 pm

Reinaldo

(@rlm)

Posts: 246

Estimable Member

Uma possibilidade:

Sub Gera_Codigo()
Dim ws As Worksheet
Dim Cont As String
Dim Linha As Integer
    Set ws = ThisWorkbook.Worksheets("Clientes")
    With ws
        Linha = 5
        Do Until Sheets("Clientes").Cells(Linha, 2) = ""
            Linha = Linha + 1
            Cont = "C" & Format(Linha - 5, "0000")
        Loop
        Form_Cadastra.Codigo.Text = Cont
    End With
End Sub

Reinaldo

Postado : 24/11/2019 7:52 am