Capturar um dado de outro TxtBox

[diegorj22]

Olá pessoal.

Sou novo por aqui e também em programação, principalmente VBA rs.

Tenho uma planilha em excel que serve como base dados para um cadastro que eu criei em VBA. Até ai tudo bem.

Eu tenho um txtBox o qual o cara entra com uma data, por exemplo: 23/01/07

No txtbox ao lado, eu quero que apareça automaticamente após sair o foco desse primeiro txtbox: JAN-07 , ou seja, o mês e o ano.

Eu acho que isso vai dar um trabalhão, não sei.... pois não tenho a mínima ideia de como capturar exatamente os dados, no caso o mês e depois o ano.

Qualquer ajuda é bem-vinda.

Agradeço desde já!

Editado Outubro 3, 2009 por diegorj22

[JoséA]

Seria assim?

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = UCase(Format(TextBox1, "mmm-yy"))
End Sub

[diegorj22]

Seria assim?

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = UCase(Format(TextBox1, "mmm-yy"))
End Sub

Olá JoséA, tudo bom? Tentei com o código passado por você, mas a princípio não deu certo, talvez eu tenha feito algo de errado. Eu inseri esse código dentro da minha txtbox a qual eu quero que retorne o dado, por exemplo: JAN-07 Ficou assim:

Private Sub txtMesAno_Exit(ByVal Cancel As MSForms.ReturnBoolean)
txtMesAno.Value = UCase(Format(txtMesAno, "mmm-yy"))
End Sub

Fiz certo ao inserir esse código dentro desta txtbox?

Eu achei meio estranho, pois não to vendo onde o código possa estar capturando o mês e o ano da outra txt.

Abraços e obrigado pela ajuda.

Editado Outubro 4, 2009 por diegorj22

[JoséA]

Na verdade este código traria a formatação para o textbox1, digitarias e ao sair do text1 ficaria JAN-07 no mesmo.

Para melhor compreenderes pegue este exemplo:

http://www.sendspace.com/file/vxdjn3

Digitarás 23/01/07 no TextBox1 e ao sair dele (TextBox1) será inserido no TextBox3 a mesma data no formato JAN-07.

Teste aí e informe.

[diegorj22]

Na verdade este código traria a formatação para o textbox1, digitarias e ao sair do text1 ficaria JAN-07 no mesmo.

Para melhor compreenderes pegue este exemplo:

http://www.sendspace.com/file/vxdjn3

Digitarás 23/01/07 no TextBox1 e ao sair dele (TextBox1) será inserido no TextBox3 a mesma data no formato JAN-07.

Teste aí e informe.

Cara, funcionou perfeitamente, com o seu exemplo consegui fazer. Muito obrigado, você quebrou um galhão, valeu mesmo!

[JoséA]

Disponha.