Fóruns
Microsoft Excel - 2...
VBA & Macros
Exibir MsgBox por 1...
 
Notifications
Clear all

[Resolvido] Exibir MsgBox por 10 Vezes

 
VBA & Macros
Post Recente por pedrobb 2 anos atrás
3 Posts
2 Usuários
2 Likes
574 Visualizações
RSS
 pedrobb
(@pedrobb)
Posts: 38
Trusted Member
Topic starter
 

Pessoal,

Ao clicar na célula B7, gostaria de exibir uma Mensagem MsgBox por 10 vezes apenas. 

Pode ser que esta Célula seja acessada em datas e momentos diferentes. 

O que importa é que a MsgBox apareça por 10 vezes apenas.

Grato,

Pedro

 
Postado : 19/10/2022 7:17 pm
 Osvaldomp
(@osvaldomp)
Posts: 852
Prominent Member
 

Veja se ajuda. Coloquei K1 como a célula de controle do número de acessos a B7. Altere se desejar.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$7" And [K1] < 10 Then
[K1] = [K1] + 1: MsgBox "B7 FOI ACESSADA " & [K1] & " VEZES"
End If
End Sub

Osvaldo

 
Postado : 19/10/2022 7:59 pm
pedrobb reacted
 pedrobb
(@pedrobb)
Posts: 38
Trusted Member
Topic starter
 

@osvaldomp
Isso mesmo!
Muito obrigado!

 
Postado : 20/10/2022 12:34 am
Osvaldomp reacted
Forum Jump:
  Tópico Anterior
Próximo Tópico