Notifications
Clear all

Enter no TextBox Executar Macro

7 Posts
3 Usuários
0 Reactions
2,246 Visualizações
(@brunoafs)
Posts: 195
Reputable Member
Topic starter
 

Boa tarde,

Como o título diz,

Gostaria de digitar uma senha e apertar enter e o macro fosse executado.

Só consegui achar exemplos pro enter ir para a proxima Textbox.

Porém quero que, Se a senha estiver OK e a tecla enter for pressionada o macro prossiga.

 
Postado : 04/11/2014 1:23 pm
(@gtsalikis)
Posts: 2373
Noble Member
 

VC vai usar o evento

Do textbox, e colocar a macro dentro dele, ou, chamar a macro, algo que poderia ser assim:

Private Sub TextBox1_AfterUpdate()
call nomedamacro
End Sub

 
Postado : 04/11/2014 1:28 pm
(@brunoafs)
Posts: 195
Reputable Member
Topic starter
 

Fiz um teste com MsgBox e não funcionou.

Private Sub txtSenha_AfterUpdate()

MsgBox "Seja Bem Vindo(a)"

End Sub

 
Postado : 04/11/2014 1:44 pm
(@gtsalikis)
Posts: 2373
Noble Member
 

vc colocou no código do textbox txtSenha?

Se colocou corretamente, deveria funcionar.

 
Postado : 04/11/2014 2:04 pm
(@brunoafs)
Posts: 195
Reputable Member
Topic starter
 

Coloquei.

Digito qualquer coisa no "txtsenha" e dou enter e nada acontece.

 
Postado : 04/11/2014 2:11 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Tente:

Private Sub txtSenha_Exit(ByVal Cancel As MSForms.ReturnBoolean)

MsgBox "Seja Bem Vindo(a)"

End Sub
 
Postado : 04/11/2014 2:23 pm
(@gtsalikis)
Posts: 2373
Noble Member
 

Coloquei.

Digito qualquer coisa no "txtsenha" e dou enter e nada acontece.

Eu criei um userform aqui pra testar.

Tanto a minha sugestão quanto a do Jose, ambas funcionam.

Porém, se vc criar apenas o textbox, sem colocar mais nada no userform, dai não vai dar funcionar.

O motivo: estes eventos só ocorrerm depois que vc sai do textbox. Como não tem lugar algum pra ir, não tem como sair do textbox.

Seria o ideal vc fazer o convgencional e colocar um botão pra dar o enter.

Agora, se vc não quiser, pode usar um outro evento, como o

Private Sub txtSenha_Change()
MsgBox "Seja Bem Vindo(a)"
End Sub

Ou o:

Private Sub txtSenha_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
MsgBox "Seja Bem Vindo(a)"
End Sub

Faça o teste e veja que ele executa com qqr tecla. Daí teria que colocar um "IF" para só rodar caso seja pressionado o enter.

 
Postado : 04/11/2014 4:16 pm