Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
victorrgds

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

Recommended Posts

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,

Compartilhar este post


Link para o post
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

Compartilhar este post


Link para o post
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!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa tarde!!

Mas como você quer o resultado, em uma caixa de mensagem, na planilha, se for na planilha (arquivo), em qual guia e coluna?

Se poder expor mais o que precisa..ficare melhor entendido.

Att

Compartilhar este post


Link para o post
Compartilhar em outros sites

Fala zinho!

Tudo bem?

Então, ele gera os ids e tal, só que numa ordem totalmente aleatória, nesse meu caso eu precisava em ordem mesmo...igual na planilha que mandei...

Eu que to fazendo algo errado?

abs e valeu!

Compartilhar este post


Link para o post
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

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Deu certo sim Zinho, porém quando eu insiro uma nova linha entre os ID's já gerados, ele não adiciona o ID nessa nova linha, somente la no final da tabela...:(

abs

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa tarde!!

Dessa forma não vamos resolver, você tem expor os detalhes.:wacko:

Consegue ajustar essa linha?

Worksheets("ID").Range("A" & Rows.Count).End(xlUp).Offset(1)

Att

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ajustei, porém ao add um ID de teste ele já pula pra pra célula A8...

Então, eu até coloquei os detalhes, só que está no inicio do tópico, logo quando abri o post...

abs

Compartilhar este post


Link para o post
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

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Maravilha Zinho, é isso mesmo que eu precisava...só alterei os ID's la da aba Base para que fique de 001 até 999 e tudo certo...

Muito obrigado cara, abs!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Caso o autor necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

×