Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Juncao de TextBox
 
Notifications
Clear all

Juncao de TextBox

 
2024 - VBA & Macros
Post Recente por fazerbem 7 anos atrás
8 Posts
2 Usuários
0 Reactions
1,440 Visualizações
RSS
 fazerbem
(@fazerbem)
Posts: 0
New Member
Topic starter
 

Ola

Tenho as seguintes TextBox

Txt_Cod = 160
Txt_nome = Andre Luiz Souza da Silva
Txt_Apelido = Gostaria que aparecesse ( Txt_Apelido = 160-Andre ), quero somente que apareca o numeral + "-" + o primeiro nome apenas, apos ser preenchido a Txt_nome, como devo proceder ?

Andre

 
Postado : 31/05/2017 12:54 pm
 leandroxtr
(@leandroxtr)
Posts: 0
New Member
 

no comando change da txt_nome você pode colocar

txt_apelido.value = txt_cod.value & letf(txt_nome.value, find(" ", txt_nome.value)-1)

tenta aí e da o retorno.

Abraços!

 
Postado : 31/05/2017 1:07 pm
 fazerbem
(@fazerbem)
Posts: 0
New Member
Topic starter
 

leandroxtr

Ola, deu erro no Find de ( find(" ", txt_nome.value)-1) )

 
Postado : 31/05/2017 1:21 pm
 fazerbem
(@fazerbem)
Posts: 0
New Member
Topic starter
 

Erro de Compilacao
"Sub" ou Function nao definida

 
Postado : 31/05/2017 1:24 pm
 leandroxtr
(@leandroxtr)
Posts: 0
New Member
 

manda a planilha aí que altero pra voce!

 
Postado : 31/05/2017 2:10 pm
 fazerbem
(@fazerbem)
Posts: 0
New Member
Topic starter
 

Segue anexo

Grato

 
Postado : 31/05/2017 2:29 pm
 leandroxtr
(@leandroxtr)
Posts: 0
New Member
 

Coloquei para alterar o apelido no comando afterupdate da textbox nome. Ou seja, a txtapelido só irá mudar depois que voce alterar a text nome e dar "TAB"

Veja se te atende.

abraços

 
Postado : 31/05/2017 3:07 pm
 fazerbem
(@fazerbem)
Posts: 0
New Member
Topic starter
 

Obrigado, deu erro no Error Goto, dai o retirei, e ao inves de AfterUpdate coloquei o Change, parece que ficou legal. Muito Obrigado.

Andre

 
Postado : 31/05/2017 3:51 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico