DONUT PROJECT 2021 - VBA Function: Extraindo o Último Sobrenome de um Nome Completo ou a Última Palavra de uma Frase

Simplesmente extraia o último sobrenome de um nome completo ou a última palavra de uma frase.

Function UltimoNome (s As String)

    Dim nPos As Long, nLen As Long

             's = "Ana Cláudia" 

    Let nPos = InStrRev (s, ",")

    Let nLen = Len (s)

    Let UltimoNome = Right (s, Len (s) - InStrRev (s, ","))

End Function

 Conheça também estes outros códigos: 

  

 

 

 

 Série de Livros nut Project 

  

 Série VBA Outlook: 

  

  

  

 Série DONUT PROJECT 2024 

  

  

  

  

 Série DONUT PROJECT 2021 

  

  

  

 Série DONUT PROJECT 2018 

  

   

  

  

 

 Série DONUT PROJECT 2015 

  

    

   

  

   

  

   

  

 

 Série DONUT PROJECT 2014 

   

   

  

  

    

  Clique aqui e nos contate via What's App para avaliarmos seus projetos 

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com