Macro criar numeração aleatória

[Davi Ferreira]

Galera, já trouxe o modelo da minha ideia para vocês n perderem muito tempo.

é o seguinte:

To preparando um conjunto de planilhas que servirão para auxiliar um amigo em uma loja, com isso estou criando um cadastro dos produtos que ele comprar (o estoque).

 

Ele pediu que, se fosse possível, eu criasse um método em que sempre que ele cadastrasse um produto, gerasse um código para esse produto, para auxiliá-lo na hora de cadastrar a venda (fiz uma planilha também para registrar a venda).

Tentei várias coisas e nada funcionou, aí me veio um devaneio:

Um macro que, ao clicar no botão retornasse um código aleatório de 6 dígitos que ainda não está dentro do banco de dados de produtos cadastrados.
A planilha modelo é exatamente igual a que eu irei utilizar, só mandei modelo pra vocês entenderem sem precisar enviar a plan completa.

Desde já agradeço.

modelo.xlsm

[Visitante]

Olá, Davi.

Qual a sua ideia quanto à composição do tal "código aleatório". Pode colocar alguns exemplos?

A criação de códigos de produtos comumente segue um ou mais critérios definidos. Nunca tomei conhecimento de criação de código com critério aleatório. Qual a vantagem/necessidade de utilizar esse método? Porque não estabelecer um critério que não seja aleatório?

 

Ainda, me parece que a sua ideia é digitar os dados do produto no quadrinho localizado na planilha 'Estoque' e então utilizar macro para replicar os dados na planilha 'Controle de Estoque'. É isso? Se sim, porque não digitar direto na planilha 'Controle de Estoque' ?

 

[Davi Ferreira]

11 horas atrás, osvaldomp disse:

Olá, Davi.

Qual a sua ideia quanto à composição do tal "código aleatório". Pode colocar alguns exemplos?

A criação de códigos de produtos comumente segue um ou mais critérios definidos. Nunca tomei conhecimento de criação de código com critério aleatório. Qual a vantagem/necessidade de utilizar esse método? Porque não estabelecer um critério que não seja aleatório?

 

Ainda, me parece que a sua ideia é digitar os dados do produto no quadrinho localizado na planilha 'Estoque' e então utilizar macro para replicar os dados na planilha 'Controle de Estoque'. É isso? Se sim, porque não digitar direto na planilha 'Controle de Estoque' ?

 

Então cara, não é bem isso, acho que me expressei mal.

 

1- O código não é aleatório em sua essência, me expressei mal, ele apenas não será repetitivo quanto aos outros que na planilha "controle de estoque" estiverem.

 

2- Eu não preciso do macro de envio para a outra planilha, esse eu já o tenho, só preciso um que gere o código do produto no botão ao lado.

 

3- Não digito direto na outra aba pois ela terá o estoque geral dos produtos, o dono da plan (meu amigo) prefere não acessá-la para não haver a possibilidade de que seja apagada alguma informação.

 

No geral essa planilha é grande, ela possui umas 10 abadas com informações e comandos diferentes, mandei só essa parte pois é a parte que estou quebrando a cabeça.

[Visitante]

12 horas atrás, osvaldomp disse:

 

Qual a sua ideia quanto à composição do tal "código aleatório". Pode colocar alguns exemplos?

 

 

22 minutos atrás, Davi Ferreira disse:

 

1- O código não é aleatório em sua essência, me expressei mal, ele apenas não será repetitivo quanto aos outros que na planilha "controle de estoque" estiverem.

 

 

 

Faltou você responder sobre as características do código e colocar exemplos.

Seria 001, 002, ... ou BO001, ou SA040, ... ?

[Davi Ferreira]

2 minutos atrás, osvaldomp disse:

 

 

Faltou você responder sobre as características do código e colocar exemplos.

Seria 001, 002, ... ou BO001, ou SA040, ... ?

Pode ser no formato "000000" mesmo.

[Visitante]

Sub GeraCódigo()
 [G15].NumberFormat = "@"
 [G15] = Format(Application.Max(Sheets("Controle de estoque").[A:A]) + 1, "0000")
End Sub

 

[Davi Ferreira]

54 minutos atrás, osvaldomp disse:

Sub GeraCódigo()
 [G15].NumberFormat = "@"
 [G15] = Format(Application.Max(Sheets("Controle de estoque").[A:A]) + 1, "0000")
End Sub

 

Olha cara, mil vezes obrigado, de verdade, valeu mesmo!!!!