Página 1 de 1

Separar as primeiras letras de um nome

Enviado: 12 Ago 2015 às 10:35
por lfgomes
Olá... estou trabalhando em um sistema de criação de usuários e senhas para um projeto do qual eu faço parte. Gostaria da ajuda de vocês com uma fórmula que pretendo utilizar para agilizar a criação desses usuários.
É o seguinte: baseado no nome do usuário, preciso de uma fórmula que pegue as primeiras letras de cada nome e junte com o último sobrenome, ficando assim:
Adauto Marques Cardoso = amcardoso
ou
Flavio Henrique Ribeiro da Silva = fhrsilva
Lembrando que deve-se ignorar o uso de: "da", "de", "do", "das", "dos", "a", e "e" que seguem nos sobrenomes.
Espero ter sido claro no meu problema e agradeço toda a ajuda possível.

Re: Separar as primeiras letras de um nome

Enviado: 12 Ago 2015 às 11:03
por laennder
Criei uma função personalizada.
Código: Selecionar todos
Function GerarUsuario(nome) As String

nome = Split(nome, " ")

For i = 0 To (UBound(nome) - 1)
    If nome(i) <> "da" And _
       nome(i) <> "de" And _
       nome(i) <> "do" And _
       nome(i) <> "das" And _
       nome(i) <> "dos" And _
       nome(i) <> "a" And _
       nome(i) <> "e" Then
    
       usuario = usuario & Left(nome(i), 1)
       
    End If
    
Next i

usuario = usuario & nome(UBound(nome))

GerarUsuario = LCase(usuario)

End Function
Segue o arquivo em anexo

Separar as primeiras letras de um nome

Enviado: 12 Ago 2015 às 11:06
por lfgomes
Laennder... você acertou em cheio no meu problema... funcionou 100%...

Muito obrigado pela ajuda...