Página 1 de 1

Function Separar um nome

Enviado: 28 Fev 2020 às 13:25
por MauricioAlves31
Boa tarde pessoal, como vão? espero que estejam ótimos.

Quero criar uma (Function) para que ela separe um nome de uma frase.

premissas:

Sempre o 1° nome da frase da esquerda para a direita (assim como se lê mesmo)

Segue exemplo: "OXIMEGA INDUSTRIA DE CALDEIRARIA E LASER.

A (Function) deve me retornar como descrito abaixo:

OXIMEGA.

Como faço hoje:

=ARRUMAR(ESQUERDA(TEXTO(PROCURAR(" ";TEXTO;1)))

Galera, eu fiz, a Function, mas não funciona quando entro com a função na planilha. mas quando verificado no VBE funciona normalmente. abaixo como fiz no VBE e não funciona quando escrito a função =RestName()

Function RestName()

ActiveCell.FormulaR1C1 = "=TRIM(LEFT(RC[-1],FIND("" "",RC[-1],1)))"

End Function

Um grande abraço pessoal, obrigado e até breve.

Function Separar um nome

Enviado: 28 Fev 2020 às 15:04
por kiko
MauricioAlves31 não seria mais ou mesmo assim

Function RestName()

ActiveCell.FormulaR1C1 = "=TRIM(LEFT(TEXT(FIND("" "",RC[-1],1)))"

End Function

Tenta aí e vê se resolve!

Function Separar um nome

Enviado: 28 Fev 2020 às 15:11
por MauricioAlves31
Boa tarde Kiko como vai? primeiramente, grato pela ajuda!
Tentei, mas deu "#VALOR!" que pode ser?

Re: Function Separar um nome

Enviado: 29 Fev 2020 às 11:23
por osvaldomp
em A1 ~~~> OXIMEGA INDUSTRIA DE CALDEIRARIA E LASER
Código: Selecionar todos
Function PrNome(c As Range)
 PrNome = Left(c.Value, InStr(c.Value, " ") - 1)
End Function
em qualquer célula vazia ~~~> =PrNome(A1) ~~~> retorna OXIMEGA