DONUT PROJECT 2021 - VBA Function: Extraindo o Segundo Nome de um Nome Completo ou a Segunda Palavra de uma Frase

Se a sua necessidade for simples como esta, apenas usufrua da solução e copie!

Extraia o primeiro nome de um nome completo ou mesmo a segunda palavra de uma frase.

Function SegundoNome (s As String)

           Dim OneChar As Long, TwoChar As Long

           Dim count As Long 

  's = "Ana Cláudia" 

  Let OneChar = InStr (s, " ") + 1

  Let TwoChar = InStr (OneChar, s, " ")

  Let count = TwoChar - OneChar

  Let TwoChar = Mid (s, OneChar, count)

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