Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
SetFocus nao funcio...
 
Notifications
Clear all

SetFocus nao funciona

 
2024 - VBA & Macros
Post Recente por fcarlosc 7 anos atrás
4 Posts
3 Usuários
0 Reactions
1,621 Visualizações
RSS
 fazerbem
(@fazerbem)
Posts: 697
Honorable Member
Topic starter
 

Poderiam me ajudar nesse tema do SetFocus.

A ordem de tabulacao esta TextBox1, 2, 3, 4, 5, 6,
Ao entrar no FORM O foco estara em TextBox6, Este esta como AfterUpdate e assim TextBox1 Recebrara o que for digitado.

Ao final quero que TextBox4 mantenha o foco e nao TextBox2 como esta se apresentando.

Quero isso tem ter que alterar a Ordem de Tabulacao.

Grato

Andre

 
Postado : 16/09/2017 5:45 pm
 avgsantos
(@avgsantos)
Posts: 28
Eminent Member
 

Boa noite, Andre

Segue o arquivo editado conforme solicitado.

avgsantos

 
Postado : 16/09/2017 6:30 pm
 fazerbem
(@fazerbem)
Posts: 697
Honorable Member
Topic starter
 

avgsantos

Agradeço, mas vi que vc mexeu na Tabulacao, no meu projeto preciso fazer isso sem mexer na tabulacao.

Agradeco mesmo assim.

Andre

 
Postado : 16/09/2017 6:52 pm
fcarlosc
 fcarlosc
(@fcarlosc)
Posts: 453
Honorable Member
 

Boa-noite

Tente assim:

Private Sub TextBox6_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

TextBox1 = TextBox6

If KeyCode = 13 Then
TextBox4.SetFocus
End If

End Sub
 
Postado : 16/09/2017 8:10 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico