Notifications
Clear all

Sorteio Sem Repetição

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

Olá,

Estou recorrendo ao forum pois não encontrei nada na rede que atendesse a minha necessidade, pelo menos até o momento.

Temos diversos endereços de armazenamento de produtos, cerca de 2000, podendo aumentar ou diminuir. Precisamos sortear alguns endereços para inventario de amostragem. Desta forma, os endereços não poderão se repetir até que todos sejam sorteados ou que seja reiniciado o sorteio com intervenção do usuário.

Neste caso, vamos supor que a relação de endereços esteja disposta na coluna da Plan1 e na Plan2 eu possa informar a quantidade de endereços a serem sorteados (resultado) e (obvio) o botão para executar a macro. Complicando um pouco mais, na Plan1 poderia ser inserido a data e hora que foi sorteado, talvez até o usuário (login de rede).

Os endereços, possui a seguinte extrutura:

AAA.A.001.1
AAA.A.002.1
AAA.A.003.1
AAA.B.001.1
BBB.B.001.1

Ou seja:
AAA é a area do estoque onde esta o endereço
A é a rua da area
001 é o endereço, variando de 001 à 250 por rua
1 é o nivel onde esta armazenado, podendo variar de 1 à 6

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

 
Postado : 04/07/2012 11:57 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Em princípio, parece algo até simples.

Só não entendi se você quer "construir" o endereço através de sorteio ou já sortear endereços listados.

Neste caso, seria mais eficiente disponibilizar um modelo.
Com certeza há solução através de Macros.

Abraço.

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

 
Postado : 04/07/2012 1:30 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Edson, realmente parece simples...... mas até agora não consegui simplificar. Meus conhecimentos de macros não chegam a tanto.
A relação de endereços já existe pois estes endereços são gerados pelo sistema WMS para identificar fisicamente cada Drive-in uma unica vez.

Imagino que ao inserir a data que foi sorteado possa impossibilitar que estes endereços sejam sorteados novamente. Não imagino fazer isto sem variavel, o que pra mim se torna complexo.

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

 
Postado : 05/07/2012 8:15 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Olá volnei.p, se na sua resposta anterior você tivesse feito como o Edson, indicou (postar COMPACTADO seu modelo), o pessoal estaria trabalhando em cima disso, e expondo as ideias de solução! ;)

Att

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

 
Postado : 06/07/2012 5:03 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Como o Alexandre comentou, com exemplo fica mais fácil de trabalhar uma solução...

Mas, em relação à data, serviria mais como informação.

A exclusão do sorteio dos endereços já 'contemplados' poderia ser por procura ou contagem...

Poderiam ser gerados números aleatórios que determinariam os sorteados, em seguida uma verificação (por procura ou contagem) e, para os já 'contemplados', a geração de novos números aleatórios, nova verificação, até que a quantidade de endereços não 'contemplados' forme a amostragem desejada.

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

 
Postado : 06/07/2012 5:21 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ola pessoal, peço desculpas, mas na empresa os acessos são bem limitados, sem contar a lentidão da rede.

Segue arquivo:

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

 
Postado : 07/07/2012 2:57 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Veja se te ajuda..
Baixe o arquivo em:
http://www.sendspace.com/file/op7t7a

Att

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

 
Postado : 11/07/2012 6:40 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Alexandre VBA

Show de bola, perfeito !!!

Muitíssimo obrigado.

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

 
Postado : 12/07/2012 10:36 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Obrigado pelo retorno!!!
Precisando estaremos aqui!! ;)

Att

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

 
Postado : 12/07/2012 10:43 am