Pegar primeiro e úl...
 
Notifications
Clear all

Pegar primeiro e último nome de uma textbox

7 Posts
3 Usuários
0 Reactions
1,550 Visualizações
(@radao)
Posts: 9
Active Member
Topic starter
 

Boa Tarde,
Estou montando um programa onde tenho a texNomeColab onde digito o nome do colaborador e logo após tenho a txtApelido e gostaria que nesta aparecesse o primeiro e o ultimo nome digitado na txtNomeColab. Não estou conseguindo fazer. Alguem pode ajudar ?

 
Postado : 27/02/2015 11:44 am
(@gtsalikis)
Posts: 2373
Noble Member
 

Tá meio vaga a tua dúvida. Seria isso:

Dim nomes() As String

nomes = Split(txtNomeColab, " ")

MsgBox nomes(LBound(nomes))
MsgBox nomes(UBound(nomes))

Ou isso:

Dim nomes() As String

nomes = Split(txtNomeColab, " ")

txtApelido = nomes(LBound(nomes)) & " " & nomes(UBound(nomes))

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 27/02/2015 11:51 am
(@radao)
Posts: 9
Active Member
Topic starter
 

Não consegui acertar.
Vamos dizer que em um Userform eu tenha 2 textbox:
1 - txtNomeColab, onde será digitado o nome completo de uma pessoa;
2 - txtApelido, onde irá RECEBER o primeiro e o último nome digitado na txtNomeColab.

Ex.:
Digito o nome "Luis Inácio Lula da Silva" na txtNomeColab;
Após sair dessa digitação irá APARECER na txtApelido o nome "Luis Silva", automaticamente.

 
Postado : 27/02/2015 2:00 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Radao

Movi teu tópico para Formulários, pois o local onde vc havia postado é exclusivo para postagem de apostilas, exemplos, etc., não sendo permitido postar dúvidas.

Por enquanto vou deixar teu tópico sendo mostrado nos 2 locais.

[]s

Patropi - Moderador

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 27/02/2015 2:57 pm
(@radao)
Posts: 9
Active Member
Topic starter
 

Gostaria de saber se tem alguem que possa me ajudar
Vamos dizer que em um Userform eu tenha 2 textbox:
1 - txtNomeColab, onde será digitado o nome completo de uma pessoa;
2 - txtApelido, onde irá RECEBER o primeiro e o último nome digitado na txtNomeColab.

Ex.:
Digito o nome "Luis Inácio Lula da Silva" na txtNomeColab;
Após sair dessa digitação irá APARECER na txtApelido o nome "Luis Silva", automaticamente.

Como podeira incluir uma macro para isso

 
Postado : 28/02/2015 8:45 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Temos muitos casos que possam ser adaptados em nossa base de dados.

Você também poderia jogar o texto em célula e separa-los (além de usar um função via VBA), depois retornar o texto separado nas textbox's desejadas!
http://www.google.com.br/cse?cx=partner ... %20textbox

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/02/2015 9:00 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não entendi, a proposta/resposta do colega Gilmar ( gtsalikis ) faz o que deseja, porem seu retorno

Não consegui acertar

não esclarece o que tentou fazer e não conseguiu. Pode ser um pouco mais especifico, se postar um modelo/exemplo poderá então receber um retorno mais efetivo

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 01/03/2015 5:47 am