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