Ir ao conteúdo
  • Cadastre-se

Gerar ID's com Letras + Números no Excel


victorrgds

Posts recomendados

Fala galera beleza?

Então, como o título diz, eu possuo uma planilha que possue 70 linhas com atividades distintas.

Eu criei um ID para cada uma dessas atividades manualmente, porém ocorreram várias mudanças e tive que ficar mudando novamente os ID's para adaptar as novas alterações ou exclusões.

A dúvida é: como eu poderia gerar ID's automáticos, que não façam sobreposição e possuam letras e números.

Ex: EXEC001

Qualquer ajuda é bem vinda.

Abs,

Link para o comentário
Compartilhar em outros sites

Boa tarde!!

Eu não entendi.

Sub SehnAleat()
Dim strPassword As String
Dim i As Integer

For i = 1 To 8
If i Mod 2 = 0 Then
strPassword = Chr(Int((90 - 65 + 1) * Rnd + 65)) & strPassword
Else
strPassword = Int((9 * Rnd) + 1) & strPassword
End If
Next i
[A1].Value = strPassword
End Sub

Att

Link para o comentário
Compartilhar em outros sites

Fala zinho, beleza?

Então cara, eu criei uma coluna com ID's.

Exemplo:

CMP001

CMP002

E assim vai, e cada ID desse representa uma "atividade", como podem existir diversas mudanças de atividades, exclusão, mudança de posição e etc.

Eu queria gerar os ID's automaticamente, dessa mesma maneira CMP(SIGLA) + Numero(001....)

Pra não ter que ficar fazendo esse serviço manual toda vez que ocorrer uma alteração...

Deu pra entender agora?

valeu!

Link para o comentário
Compartilhar em outros sites

Boa tarde!!

Veja se assim resolve

Sub TES_FirstCell_ZinhoVBA()
Application.ScreenUpdating = 0
Worksheets("Base").Range("A2").Cut _
Destination:=Worksheets("ID").Range("A" & Rows.Count).End(xlUp).Offset(1)
Call Org
Application.ScreenUpdating = 1
End Sub

Sub ARQ_FirstCell_ZinhoVBA()
Application.ScreenUpdating = 0
Worksheets("Base").Range("B2").Cut _
Destination:=Worksheets("ID").Range("A" & Rows.Count).End(xlUp).Offset(1)
Call Org
Application.ScreenUpdating = 1
End Sub

Sub Org()
With Worksheets("Base").Activate
Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes
Columns("B:B").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlYes
End With
Worksheets("ID").Activate
End Sub

Att

Link para o comentário
Compartilhar em outros sites

Boa noite!!

Veja se assim, funciona.

Sub TES_FirstCell_ZinhoVBA()
Application.ScreenUpdating = 0
Worksheets("Base").Range("A2").Cut _
Destination:=ActiveCell
Call Org
Application.ScreenUpdating = 1
End Sub

Sub ARQ_FirstCell_ZinhoVBA()
Application.ScreenUpdating = 0
Worksheets("Base").Range("B2").Cut _
Destination:=ActiveCell
Call Org
Application.ScreenUpdating = 1
End Sub

Att

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...