Notifications
Clear all

gerar um ID (identificação de geração)

7 Posts
2 Usuários
0 Reactions
1,359 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde pessoal vamos para 3 duvida, quero gerar um ID (identificação de geração), isto é, quando gero um novo cadastro a macro gera uma identificação automática mas conforme algumas condições:
Modelo de ID: UVA_EXCA_CAL/TER_14/15-1
a) Ao clicar no botão NOVO a macro vai gerar um ID fixo que é UVA_0000_000/000_14/15-0. UVA e 14/15 estarão sheet(Setor_MIS)
UVA coluna I2 e 14/15 na coluna H2, pois pode ser alterado.
b) Ao selecionar o Setor (cmbSetor) a macro busca a abreviatura do setor na sheet(Setor_MIS) C2:D8, alterando o ID para
UVA_EXCA_000/000_14/15-0.
c) Ao selecionar a oficina (cmbOficina) a macro altera o ID para UVA_EXCA_CAL/TER_14/15-0.
d) A sequencia depende da verificação do ultimo numero da combinação entre setor e oficina.
Exemplo:
UVA_EXCA_CAL/TER_14/15-1
UVA_EXCA_CAL/TER_14/15-2
UVA_EXCA_ELE/UVA_14/15-1
UVA_EXCA_ELE/UVA_14/15-2
UVA_TRCA_ELE/UVA_14/15-1
UVA_TRCA_ELE/UVA_14/15-2
UVA_EXCA_CAL/TER_14/15-3

Segue a planilha de modelo para melhor entendimento.

silvajmp

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 13/06/2014 11:27 am
pfarias
(@pfarias)
Posts: 265
Reputable Member
 

veja só,

sou bem iniciante em VBA, e escrevo muito codigo para pouca coisa.
Com certeza tem como melhorar e melhorar o código que fiz.

Da uma olhada e vê se é o que tu precisa?

Ah, e outra coisa:

Coloquei o digito como padrão o Digito "1".
Quando clicar em salvar ele vai procurar se já existe um igual aquele e vai procurar na sequencia seguinte até encontrar o digito que não conste na tabela.

Fiz algumas alterações na planilha, se você reparar, pois achei mais fácil para poder escrever essa "redação" aushuahsuhaus...

Abraços!

Pietro Farias

Se foi resolvido suas dúvidas, lembre se de marcar o tópico como RESOLVIDO.

ANALISTA X

 
Postado : 27/06/2014 10:44 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pietro bom dia, obrigado por me responder, mas estamos quase lá, fiz o teste e observei que:
1) Quando vou salvando várias combinações com o setor e a oficina sem fechar o userform, os dados estão salvando conforme eu queria, mas quando eu fecho o userform e chamo novamente e vou salvar qualquer combinação, eu não sei se a macro fica fazendo um loop e trava, o cursor fica como se tivesse pensando.

2) Outra coisa que eu queria, seria quando coloca-se as duas combinações antes de salvar, a macro já busca-se a próxima sequencia da combinação nova antes de salvar, para a visualização do usuário no userform.

silvajmp

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/06/2014 7:34 am
pfarias
(@pfarias)
Posts: 265
Reputable Member
 

é ta certo, foi erro meu.

inicialmente isso foi otimo apra mim, pos como disse estou inciando, e acabei aprendendo um pouco sobre algumas funções

:D

Vê agora se ta ok!

Pietro Farias

Se foi resolvido suas dúvidas, lembre se de marcar o tópico como RESOLVIDO.

ANALISTA X

 
Postado : 30/06/2014 7:20 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pietro boa noite, e isso mesmo que eu preciso, mas se for possivel, o numero da sequencia ao inves de sair somente na mensagem, teria como ela já aparecer no campo ID antes de salvar? Se caso não, não tem problema, sua contribuição já me ajudou.

silvajmp

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/07/2014 4:09 pm
pfarias
(@pfarias)
Posts: 265
Reputable Member
 

Essa eu fico te devendo.

Como disse sou bem iniciante no VBA.

Se conseguir, posta aqui para que eu também possa aprender.

Abraços.

Pietro Farias

Se foi resolvido suas dúvidas, lembre se de marcar o tópico como RESOLVIDO.

ANALISTA X

 
Postado : 07/07/2014 7:27 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pietro não tem problema, vou fazer alguns teste se der certo eu reabro o tópico e posto, blz. obrigado.

silvajmp

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 07/07/2014 4:47 pm