MUDAR DE TEXTBOX USANDO TAB OU ENTER

PABLOMOREIRAGV 15/07/2010 13:42:41
#347437
Tenho uma planilha de Ficha de Recrutamento de Empregado e inseri mais de 50 texbox como campo de preenchimento, pois alguns eu habilitei para receber CEP, CPF, DATA e textos com iniciais maiúsculas. Só que estou querendo com que assim que a pessoa abra o documeto o cursor já apareça no texbox1 e com a tecla Tab ou Enter eu possa mudar de foco fazendo com que o cursor pule para o próximo textbox a ser preenchido. Já coloquei tudo na ordem mais não consigo, e para acabar de completar o problema, não tem a propriedade TabIndex em texbox inserido em uma planilha, que é o meu caso. Se alguém puder me ajuda agradeço muito.
MARCELO.TREZE 15/07/2010 13:46:31
#347438
colega coloque na propriedade tabindex dos textbox a sequencia desejada

exemplo no textbox1, coloque tabindex=0, no textbox2 tabindex=1 ....

e assim por diante

usando tab irá navegar de boa pelos campos
JONATHANSTECKER 15/07/2010 13:46:40
#347439 Resposta escolhida
Uma solução seria colocar no evento Lostfocus do textbox1 -> textbox2.Focus
JAMESBOND007 16/07/2010 08:11:49
#347510
para mudar ao ser preenchido eu uso assim não sei se vai te ajudar
Private Sub txtrazaosoc_KeyPress(KeyAscii As Integer)
            If KeyAscii = 1 Or 2 Or 3 Then 
            SendKeys [Ô]{TAB}[Ô]
            End If
end sub
PABLOMOREIRAGV 16/07/2010 09:00:31
#347517
Marcelo-Treze,

Quando é incorporado um textbox em uma planilha, ele não tem a propriedade TabIdex, não sei do que faço.

JONATHANSTECKER

Eu inseri o código sugerido por você, mas quando tento compilar dá a seguinte mensagem [Ô]ERRO NO TEMPO DE EXECUÇÃO [ô]438[ô] [Ô], e depois diz [Ô]O OBJETO NÃO ACEITA ESTA PROPRIEDADE OU MéTODO[Ô].

JAMESBOND007

Tentei e limitei a propriedade Maxlegh, e não deu certo.

Gente eu não tenho muita experiência com VBA, ainda mais incorporado em planilhas, se alguém tiver alguma outra idéia me diga passo a passo, pois tá muito estranho, era para ser simples...rs..rs.rs.....Ah, (só comunicando) todos os texbox[ô]s estão na ordem. Obrigadão por enquanto aí gente, aqui tá melhor que muito fórum que tem por aí.
JONATHANSTECKER 16/07/2010 10:46:07
#347529
Ai Pablo...

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyTab Or KeyCode = 13 Then
TextBox2.Activate
End If
End Sub

Putz, tão simples e também quebrei minha cabeça para achar... rsrsrs
Mas ta ai.

Abraços
JONATHANSTECKER 16/07/2010 10:59:52
#347530
(Para conhecimento)

Constante Valor Descrição
=============
vbKeyLButton 1 botão esquerdo do mouse
vbKeyRButton 2 Botão direito do mouse
vbKeyCancel 3 tecla CANCEL
vbKeyMButton 4 Médio botão do mouse
vbKeyBack 8 chave BACKSPACE
vbKeyTab 9 tecla TAB
vbKeyClear 12 INEQUÍVOCOS chave
vbKeyReturn 13 ENTER
vbKeyShift 16 tecla SHIFT
vbKeyControl 17 tecla CTRL
vbKeyMenu 18 tecla MENU
vbKeyPause 19 tecla PAUSE
vbKeyCapital 20 tecla Caps Lock
vbKeyEscape 27 tecla ESC
vbKeySpace 32 SPACEBAR chave
vbKeyPageUp 33 PAGE UP-chave
vbKeyPageDown 34 PAGE DOWN chave
vbKeyEnd 35 tecla END
36 HOME vbKeyHome chave
vbKeyLeft 37 tecla SETA ESQUERDA
vbKeyUp 38 tecla SETA PARA CIMA
vbKeyRight 39 tecla SETA DIREITA
vbKeyDown 40 tecla SETA PARA BAIXO
vbKeySelect 41 SELECT chave
vbKeyPrint 42 tecla Print Screen
vbKeyExecute 43 EXECUTE chave
vbKeySnapshot 44 SnapShot chave
vbKeyInsert 45 INS chave
vbKeyDelete 46 DEL-chave
vbKeyHelp 47 AJUDA chave
vbKeyNumlock 144 tecla Num Lock

KeyA Através KeyZ são os mesmos que os seus equivalentes ASCII: [ô]A[ô] Through [ô]Z[ô]
================================================== ========================
Constante Valor Descrição
Uma chave vbKeyA 65
vbKeyB 66 B-chave
vbKeyC 67 C-chave
vbKeyD 68 D-chave
vbKeyE 69 E-chave
vbKeyF 70 F-chave
vbKeyG 71 G-chave
vbKeyH 72 H-chave
vbKeyI 73 me-chave
vbKeyJ 74 J-chave
vbKeyK 75 K-chave
vbKeyL 76 L-chave
vbKeyM 77 M-chave
vbKeyN 78 N-chave
79 O vbKeyO chave
vbKeyP 80 P-chave
vbKeyQ 81 Q-chave
vbKeyR 82 R-chave
vbKeyS 83 S-chave
vbKeyT 84 T-chave
vbKeyU 85 U-chave
vbKeyV 86 V-chave
vbKeyW 87 W-chave
vbKeyX 88 X-chave
vbKeyY 89 Y-chave
vbKeyZ 90 Z-chave

Key0 Através Key9 são os mesmos que os seus equivalentes ASCII:[ô]0 [ô]Through[ô]9
================================================== =======================
Constante Valor Descrição
vbKey0 48 0 chave
vbKey1 49 1 tecla
vbKey2 50 2 chave
vbKey3 51 3 chave
vbKey4 52 4 chave
vbKey5 53 5 chave
vbKey6 54 6 chave
vbKey7 55 7 chave
vbKey8 56 8 chave
vbKey9 57 9 chave

Teclas no teclado numérico
==========================
Constante Valor Descrição
vbKeyNumpad0 96 0 chave
vbKeyNumpad1 97 1 tecla
vbKeyNumpad2 98 2 chave
vbKeyNumpad3 99 3 chave
vbKeyNumpad4 100 4-chave
vbKeyNumpad5 101 5-chave
vbKeyNumpad6 102 6 chave
vbKeyNumpad7 103 7-chave
vbKeyNumpad8 104 8-chave
vbKeyNumpad9 105 9-chave
vbKeyMultiply 106 Multiplica TION SIGN (*)-chave
vbKeyAdd 107 PLUS SIGN (+)-chave
vbKeySeparator 108 ENTER (teclado)-chave
vbKeySubtract 109 sinal Menos (-)-chave
vbKeyDecimal 110 ponto decimal (.) tecla
vbKeyDivide 111 DIVISÃO SIGN (/)-chave

Function Keys
=============
Constante Valor Descrição
vbKeyF1 112 tecla F1
vbKeyF2 113 tecla F2
vbKeyF3 114 tecla F3
vbKeyF4 115 tecla F4
vbKeyF5 116 tecla F5
vbKeyF6 117 tecla F6
vbKeyF7 118 tecla F7
vbKeyF8 119 tecla F8
vbKeyF9 120 tecla F9
vbKeyF10 121 tecla F10
vbKeyF11 122 tecla F11
vbKeyF12 123 tecla F12
vbKeyF13 124 tecla F13
vbKeyF14 125 tecla F14
vbKeyF15 126 tecla F15
vbKeyF16 127 tecla F16
PABLOMOREIRAGV 16/07/2010 11:09:35
#347532
JONATHANSTECKER

Parabéns cara!!! Deu certo mesmo. Muito Obrigado!!!
JONATHANSTECKER 16/07/2010 14:30:29
#347569
Se a resposta resolveu o seu problema, encerre o pontue quem lhe ajudou!
Tópico encerrado , respostas não são mais permitidas
Voltar