Notifications
Clear all

Planilha para Estudo Loteria

12 Posts
2 Usuários
0 Reactions
2,266 Visualizações
(@valcir)
Posts: 20
Eminent Member
Topic starter
 

Boa
Noite.
Sr. juntei 2 planilhas postadas pelo Edcronos2, e efetuei uma so planilha. Efetuei uns PROCV porem nao ficou funcional.
Criei uma aba na planilha com o nome (Fluxograma) a onde tentei explicar o que preciso.
Ola Edcronos ou alguem pode automatizar esta planilha. Sera muito util nos meus estudos de loteria

Muito obrigado.

 
Postado : 05/12/2015 12:03 am
(@edcronos2)
Posts: 346
Reputable Member
 

para mim pareceu uma planilha totalmente diferente
mas para vc comseguir ajuda vc tem que ir por partes 1 coisa de cada vez e especificar oq quer exatamente,
mas na aba que vc quer e não colocar um monte de pedido em outra aba

mas pelo que vc explicou seria apenas referenciar as celulas
copiar a coluna e colar na coluna certa da outra aba usando a opção VINCULO

mas mesmo sua explicação ficou confusa

 
Postado : 05/12/2015 12:03 pm
(@valcir)
Posts: 20
Eminent Member
Topic starter
 

Ola
Primeiro obrigado pela pronta resposta.
Segue novamente a planilha, criei uma aba de nome("Explicação 1")veja se consegui expressar o que preciso.

Muito obrigado
Valcir

 
Postado : 05/12/2015 3:09 pm
(@edcronos2)
Posts: 346
Reputable Member
 

cara , pode ser que seja porque estou com a cabeça em outra coisa,
mas para mim ainda está confuso o entendimento

 
Postado : 05/12/2015 3:40 pm
(@edcronos2)
Posts: 346
Reputable Member
 

para um melhor entendimento do que precisa ser feito
coloque outros valores alem de numeros

tipo o endereço da celula e pq aquela celula vai ter o valor daquele endereço
não coloque apenas numeros simples na celula, fica dificil saber qual celula vai para qual

Expl
aba procv jogos
Se "B1" for igual a "x" "B8" vai ter valor de "B9"de matrizes

ou algo assim

poderia ser apenas eu que não estivesse entendendo, mas ninguem mais se pronunciou, por tanto está confuso mesmo

 
Postado : 06/12/2015 4:34 am
(@valcir)
Posts: 20
Eminent Member
Topic starter
 

Ola
Segue a planilha original que baixei no forum (Combina_fixas)

Acompanhe comigo na plan1
Em dezenas escolher (1 2 3 4 )
Em sequencia escolher 3

Click sobre - Gerar
O excel vai gerar as apostas
1 2 3
1 2 4
1 3 4
2 3 4

Agora abra o Visial basic, lado a lado com o excel

Modulo 1
Na sub Sub Teste()
Vamos para o modo de depuraçao
segure a tecla (( F8)) precionada ate ir para a SUB

Sub Combinação(n As Long, p As Long, k As Long, Optional s As String)
Vai apertando F8 devagar, apos algumas vezes acionado o F8 ira mostrar na planilha de excel a primeira combinaçao. mostrando na celula plan1 celulaD9
numero 1 2 3
Se apertar mais algumas vezes ira gerar a segunda combinaçao e assim ate terminar as combinaçoes.

O que eu preciso.

Quando o vba gera a Pimeira combinaçao neste exemplo
1 2 3
Aparecer na plan1 na tela do EXCEL uma msgbox.
msgbox "Combinaçao gerada"

Entao ficaria assim
Apos processar a primeira combinaçao que mostra na plan1( 1 2 3) Para a estrutura do loop
E aparecer na plan1 na tela do excel a mensagen (Combinaçao gerada)
Quando eu clicar no botao OK
voltar ao loop

O excel volta para a estrutura do loop
Fazer a macro continuar a rotina e Fazer a 2 combinaçao
1 2 4
Parar a estrutura do loop
E aparecer na tela do excel a mensagen (Combinaçao gerada)
Quando eu clicar no botao OK
voltar ao loop

e Assim ate processar cada combinaçao.

Preciso que a cada combinaçao, gerada apareca uma MSGBOX
quando eu acionoar o botao OK, o excel volte para a estrutura de loop e faça a segunda combinaça e assim ate o fim.
planilha original anexo
obrigad0 - valcir

 
Postado : 06/12/2015 10:07 am
(@edcronos2)
Posts: 346
Reputable Member
 

cara, vc já mudou o foco,

mas para apresentar uma mensagem a cada linha
adicione na macro combinação

Sub Combinação(n As Long, p As Long, k As Long, Optional s As String)
    If p > n - k + 1 Then Exit Sub
    If p = 0 Then

        Range(Cells(r, cw), Cells(r, cw + colun)).Value2 = Split(s, "|")



        MsgBox "combinação gerada"     '  <<<--adicione

        r = r + 1
        Exit Sub
    End If
    Combinação n, p - 1, k + 1, s & vj(k) & "|"
    Combinação n, p, k + 1, s
End Sub

e coloque
Application.ScreenUpdating = True
antes da chamada da função na macro teste

 
Postado : 06/12/2015 1:13 pm
(@valcir)
Posts: 20
Eminent Member
Topic starter
 

Ola
Muito obrigado,
Não mudei o foco apenas, estou explicando de outra forma.
E isso ai PERFEITO
Deixando a (msgbox )mensagem como esta ok.
Agora
Preciso que quando gerar a segunda combinação, apague a primeira e grave no mesmo lugar.
Ou seja Gravar sempre Plan1 e começando na “D9”
De forma que sempre verei somente uma aposta na PLan1 a anterior sempre será apagada.
Mesmo que gera 10 combinações sempre verei uma de cada vez e a anterior será excluída.

Obrigado
Valcir

 
Postado : 06/12/2015 9:51 pm
(@edcronos2)
Posts: 346
Reputable Member
 

sim , é mudar o foco, pq isso não tem nada a ver com procv

Range(Cells(r, cw), Cells(r, cw + colun)).Value2 = Split(s, "|")
r = r + 1 <<<isso pula a linha

 
Postado : 06/12/2015 10:06 pm
(@valcir)
Posts: 20
Eminent Member
Topic starter
 

Boa noite
Edcronos2 mais uma vez obrigado.

-A planilha Gera uma combinação de cada Vez. ok
-Mostra uma combinação de cada vez.ok
-Preciso que quando gerar cada aposta, com base no numero de cada aposte Forme um novo grupo.
Exemplo: numero ( 1-4-7-10) em grupo de 3 dezenas ira gerar as seguintes apostas.
1-4-7
1-4-10
1-7-10
4-7-10
Considerando uma matriz
INDICE DE DE REFERENCIA MATRIZ PARA ANALISE- BUSCAR AQUI

1 1 2 3 4 5 6
2 7 8 9 10 11 12
3 13 14 15 16 17 18
4 19 20 21 22 23 24
5 25 26 27 28 29 30
6 31 32 33 34 35 36
7 37 38 39 40 41 42
8 43 44 45 46 47 48
9 49 50 51 52 53 54
10 55 56 57 58 59 60

Para a Primeira combinação formar um novo grupo de apostas no caso da primeira aposta formada com base ( 1 – 4 – 7 ) será

1-2-3-4-5-6
19-20-21-22-23-24
37-38-39-40-41-42

A medida de for gerando as apostas apagar a anterior
So mostrar um grupo de cada vez .
Veja planilha anexa
Muito obrigado
Valcir

 
Postado : 07/12/2015 9:03 pm
(@edcronos2)
Posts: 346
Reputable Member
 

desculpe, mas aí vc já enrolou minha cabeça
não vou ter como te ajudar nessa

e acho que vc está é complicando as coisas
pra que uma mensagem a cada grupo gerado e pq apagar e gerar novo grupo na mesma linha ?
o gerador perde totalmente o significado

vc pode deixar gerar todas as combinações e transportar as sequencias para onde vc quer no final

e isso aqui é um forum, é para ajudas e não fazer todo o trabalho

e mesmo com as setas com aqueles numeros não dá para saber qual o quesito de seleção por que todas vão para o mesmo lugar apesar de terem numeros diferentes

mas com Índice e corresp vc resolve essa questão
http://guiadoexcel.com.br/indice-corresp

 
Postado : 07/12/2015 9:30 pm
(@valcir)
Posts: 20
Eminent Member
Topic starter
 

Ola
Ja testei - Procv nao funciona, neste caso do LOOP.

Se alguem quiser me enviar mensagem particular, me questionando algo, caso nao tenha entendido, o que preciso fique a vontade.
Desde ja agradeço caso alguem possa me ajudar

Obrigado
Valcir

 
Postado : 09/12/2015 7:17 pm