Notifications
Clear all

Sorteio (VBA)

5 Posts
3 Usuários
0 Reactions
1,610 Visualizações
(@robsonslz)
Posts: 46
Eminent Member
Topic starter
 

Olá Pessoal...

Como faço para as 18 dezenas sorteadas (dentre as 25) aparecer na celula L6 à AC6 (que seria as 18 dezenas combinada)?

Em anexo a planilha de exemplo para entender melhor.

Grato.

 
Postado : 21/07/2018 8:40 pm
(@rabaloco)
Posts: 5
Active Member
 

Bom dia!!

Eu baixei aqui, mas não entendi uma coisa...quais dezenas você deseja que apareça no L6:AC6?
E em que momento vc deseja que isso ocorra?

 
Postado : 22/07/2018 3:18 am
(@robsonslz)
Posts: 46
Eminent Member
Topic starter
 

rabaloco

Explicação:

Na células G3 à AC3 são ás quantidades usadas nas combinações.
Para você entender - clique (sortear dezenas) repare a célula
de G3 à AC3 (esta com formatação condicional) E indicando
20 (18 vezes)

Supomos que a dezenas "01" ocorreu 20 vezes nas combinações.
Já na célula L6 indicaria a dezena "01" que foi a dezena sorteada
para a combinações dos cartões.

Coloquei a fórmula =ORDEM(A8;$A$8:$A$32) na células L6 a AC6 mais não esta mostrando
as 18 dezenas que foram usada.

Grato,

 
Postado : 22/07/2018 7:00 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não tenho certeza de haver entendido, mas experimente, e veja se atende:
Na rotina: Lotofacil altere

InsereNumerosAleatoriosSemDuplicados 18, Range("L6")

e na rotina : InsereNumerosAleatoriosSemDuplicados altere

Cell.Offset(0, i - 1) = j

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

 
Postado : 22/07/2018 7:40 am
(@robsonslz)
Posts: 46
Eminent Member
Topic starter
 

Reinaldo

Muito obrigado!

Deu certo.

Vou apenas alterar a célula k10 (em diante) para gerar as combinações.

 
Postado : 22/07/2018 12:17 pm