[Resolvido]VBA Extrair nome, apelido e nomes do meio

Bom dia a todos,


Decide economizar tempo na minha aplicação, fazendo a importação de nomes de clientes a partir de um ficheiro de Excel.
Isso já tenho a funcionar.


Agora tenho um problema.

No relatório que tenho feito o nome do campo leva 30 caracteres no máximo.

No ficheiro de excel os nomes que lá tenho, alguns tem mais de 30 caracteres.

Estou a criar uma consulta que extrai-a do campo: o primeiro, último. Até aqui já consegui.

Agora a dificuldade é os nomes do meio (como extrair do meio), mas que a soma do (primeiro + último + meio) não ultrapasse os 30 caracteres.



Exemplo:


Nome: Maria Eugénia do Carmo Mendonça Teixeira Fernandes - tem 50 caracteres

Se mandar imprimir, vai cortar o nome e imprimir só 30 caracteres

Extraindo:

primeiro: Maria 5 carateres
último: Fernandes 9 carateres

30 - (5 + 9 + 2(espaços)) = 14

ainda me sobram 14 caracteres para mostrar no relatório

Vou buscar : Eugénia do Car


retirando o do : Eugénia Carmo


Nome final a guardar na DB para poder imprimir sem problemas:

Mara Eugénia Carmo Fernandes


Mendonça Teixeira não seriam guardados


É possível fazer esta alteração utilizando VBA e guardar o novo nome para outro campo?

Obrigado.
Jorge

Boa tarde Jorge,
gostei do desafio

Criei uma função que retorna o que pretende e publiquei no repositório de exemplo.

Link aqui: https://www.maximoaccess.com/t42093-remove-os-nomes-do-meio-preservando-os-primeiros-e-o-ultimo-nome#285176

Veja se é isso que precisa por gentileza.

Parabéns
Será útil.

Olá Marcelo David!

Muito obrigado pela sua ajuda e pela excelente função que criou.



Entretanto surgiu um pequeno problema:

Quem inseriu os nomes dos clientes num programa, colocou espaços no fim do nome.

Significa que ao exportar para o ficheiro de Excel, vai no fim do nome um espaço ou mais, o que faz com que a função nesses casos não retorne o apelido corretamente.


Exemplo:

("Marcelo Rocha Vascocelos Romero dos Santos Consta David ", 30)

Retorna:

"Marcelo Rocha Vascocelos "

Com um espaço no fim do nome


Dá para eliminar os espaços no fim do nome ao correr a função?



Marcelo, volto a agradecer o excelente trabalho realizado.

Muito Obrigado!

Realmente não tinha pensado nessa possibilidade.
Atualizei a função. Agora ela elimina quaisquer espaços vazios, sejam no inicio, fim ou meio do nome.

Bom dia,


A função está Excelente Marcelo!

Muito obrigado pela sua ajuda.


De novo os meus parabéns a si e a todo este grupo de partilha de conhecimentos!

Obrigado,

Jorge

Fico feliz em ajudar, o Fórum agradece o retorno!