[Resolvido] Extrair somente primeiro nome e ultimo sobrenome de uma textbox

Boa tarde a todos colaboradores,

como o título do tópico, gostaria apenas do primeiro nome e ultimo sobrenome de uma textbox.

Já vi 3 exemplos em VBA, mas nenhum se encaixa nesse caso, pois gostaria de resumir o nome

ao gerar arquivo .pdf que está muito extenso.


Obrigado a todos.

Olá Mauro

Tente utilizar o código abaixo:

Código:


    Dim NomeCompleto As String
    Dim PrimeiroNome As String
    Dim UltimoNome As String
    Dim NomeArray() As String
    
    ' Atribui o conteúdo da TextBox à variável NomeCompleto
    NomeCompleto = Me.NomeCompleto.Value
    
    ' Divide o nome completo em partes usando o espaço como delimitador
    NomeArray = Split(NomeCompleto, " ")
    
    ' Verifica se o nome tem pelo menos dois nomes
    If UBound(NomeArray) >= 1 Then
        ' O primeiro nome é o primeiro elemento do array
        PrimeiroNome = NomeArray(0)
        ' O último nome é o último elemento do array
        UltimoNome = NomeArray(UBound(NomeArray))
        
        ' Exibe os resultados
        MsgBox "Nome Resumido: " & PrimeiroNome & " " & UltimoNome
    Else
        MsgBox "O nome completo deve ter pelo menos dois nomes."
    End If


basta alterar o "Me.NomeCompleto.Value" pelo nome da sua textbox

Obrigado Cristian Souza, consegui a solução antes de ver sua postagem!

Vi um exemplo de como extrair o ultimo nome e adaptei o primeiro nome de outra pesquisa.

Mas de qualquer forma, vou analisar e testar sua conclusão.

Mais uma vez obigado, e tenha um bom fim de semana!


Ficou assim:

Public Function FncNomeAbreviado(strNomeCompleto As String) As String

       Dim vPrimeiroNome As String
       Dim vUltimoNome As String
       Dim NomeAbreviado As String
       Dim str
       Dim vNome
       str = strNomeCompleto
       vNome = Split(str, " ")
       vPrimeiroNome = vNome(LBound(vNome))
       vUltimoNome = vNome(UBound(vNome))
       
       FncNomeAbreviado = vPrimeiroNome & " " & vUltimoNome

End Function

No formulário coloquei essas 2 linhas:

Dim NomeAbreviado as String
NomeAbreviado = FncNomeAbreviado(nome da textbox ou combobox)


Eu Precisava desta abreviação para gerar um arquivo PDF com extensão menor.