Excel Contador automático sequencial com letras e números.

[Belmar Costa]

Boa tarde, tem como criar um código automático com letras e números ex: NS 0001.

Abaixo estou utilizando esse código, mas não consigo adaptar pra esse formato:

Sub codigo_altomatico()
On Error Resume Next
'código que gera número altomatico para o registro
'---------------------------------------------------
Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets("SAIDAS")


With ws

 Linha = 2
cont = 1

Do Until Sheets("SAIDAS").Cells(Linha, 7) = ""
 Linha = Linha + 1
 cont = cont + 1
 
Loop

UserForm2.num_saida2.Text = cont

End With
End Sub

 

 

Desde já agradeço.

[ricardo_br]

Você está tentando gerar códigos aleatórios ou sequenciais e qual a linguagem? VBA?

[Belmar Costa]

@ricardo_br sequenciais em vba. Na caixa de texto do UserForm2,de nome num_saida2.Text ela só aparece o número sequencial, ( tipo: 0001 ) eu queria, se possível aparecesse ( tipo NS0001 ).É possível ?

[Edson Luiz Branco]

Podes formatar a saída da seguinte forma:

 

UserForm2.num_saida2.Text = "NS" & Format(cont, "0000")

 

[Belmar Costa]

@Edson Luiz Branco

Bom dia, a alteração caiu como uma luva, obrigado.