Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Conferencia Loteria...
 
Notifications
Clear all

Conferencia Loteria com MsgBox

 
2024 - VBA & Macros
Post Recente por BrUnOaFs 10 anos atrás
11 Posts
3 Usuários
0 Reactions
1,636 Visualizações
RSS
 BrUnOaFs
(@brunoafs)
Posts: 195
Reputable Member
Topic starter
 

Boa tarde,

Fiz uma planilha bem básica no excel para conferir meus jogos da loteria.
No anexo está apenas da Lotofacil.

Minha dúvida é:

Sempre que eu lançar o resultado do concurso na planilha, CASO tenha alguma premiação de 11, 12, 13, 14 e 15 apareça uma msgbox falando que fez X pontos.

Os acertos aparecem nas colunas "R" e "AL".

 
Postado : 16/07/2014 10:10 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bruno, boa tarde!

Você esqueceu de postar a planilha compactada!!!

Att,

 
Postado : 16/07/2014 10:12 am
 BrUnOaFs
(@brunoafs)
Posts: 195
Reputable Member
Topic starter
 

Segue anexo huuh

Loterias.zip
 
Postado : 16/07/2014 10:22 am
 Edcronos
(@edcronos)
Posts: 1006
Noble Member
 

vc pode usar a função que eu fiz
download/file.php?id=12962

topico da postagem
viewtopic.php?f=20&t=12242

 
Postado : 16/07/2014 11:49 am
 Edcronos
(@edcronos)
Posts: 1006
Noble Member
 

desculpe, eu entendi errado.

 
Postado : 16/07/2014 12:23 pm
 BrUnOaFs
(@brunoafs)
Posts: 195
Reputable Member
Topic starter
 

Alguém pra me ajudar ?

 
Postado : 17/07/2014 10:07 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bruno, boa tarde!

Insira esse código na Plan:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet.Range("R20").Value = "15" Then
MsgBox "VOCÊ FEZ 15 PONTOS - GANHOUUU!!!!"
End If
End Sub

Se for... é só adaptar para as outras células e os pontos!!!

Att,

 
Postado : 17/07/2014 10:34 am
 BrUnOaFs
(@brunoafs)
Posts: 195
Reputable Member
Topic starter
 

Bruno, boa tarde!

Insira esse código na Plan:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet.Range("R20").Value = "15" Then
MsgBox "VOCÊ FEZ 15 PONTOS - GANHOUUU!!!!"
End If
End Sub

Se for... é só adaptar para as outras células e os pontos!!!

Att,

Obrigado Maciel,

Porém quando seleciono qualquer célula a msg fica aparecendo.
Teria alguma forma de só aparecer uma vez ?

 
Postado : 17/07/2014 11:44 am
 BrUnOaFs
(@brunoafs)
Posts: 195
Reputable Member
Topic starter
 

Maciel,

Consegui pensar em um jeito aqui.
Não sei se é o mais fácil.

Mais como faço para quando clickar no "OK" deletar uma célula ?

Valeu

 
Postado : 17/07/2014 12:16 pm
 Edcronos
(@edcronos)
Posts: 1006
Noble Member
 

pq em vez de usar MSGBOX não usa a formatação condicional para avisar qual jogo fez os 11 pontos?

pode simplificar a planilha usando a função repetido que tem na planilha que coloquei o link
poderia tirar aquelas tabelas auxiliares.

se vc faz o mesmo jogo para vários sorteios tbm pode facilitar na hora de conferir.

 
Postado : 17/07/2014 12:23 pm
 BrUnOaFs
(@brunoafs)
Posts: 195
Reputable Member
Topic starter
 

Consegui de um jeito aqui.
Vou adaptar para a forma que quero agora.

Valeu.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If ActiveSheet.Range("S18").Value = "0" Then
    
    If ActiveSheet.Range("R20").Value = "15" Or ActiveSheet.Range("R21").Value = "15" Or ActiveSheet.Range("R22").Value = "15" Or ActiveSheet.Range("R23").Value = "15" Then

        MsgBox "VOCÊ GANHOU NA LOTOFÁCIL!" & Chr(13) & "" & Chr(13) & "Você fez 15 Pontos!", vbOKOnly, Range("S18").Clear


End If
End If
End Sub
 
Postado : 17/07/2014 12:32 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico