O simples sempre é belo. Resolve uma multidão de necessidades.
Se esta for a sua, apenas usufrua da solução e copie!
Extraia o primeiro nome de um nome completo ou mesmo a primeira palavra de uma frase.
Function PrimeiroNome (s As String)
Dim nPos As Long
's = "Ana Cláudia"
' Prints Ana
Let nPos = InStr(s, " ") - 1
Let PrimeiroNome = Left(s, nPos)
End Function
Conheça também estes outros códigos:
Série de Livros nut Project
Série VBA Outlook:
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
