Este fórum está sendo desativado

[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.

[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!

[MauricioAlves31]

Boa tarde Kiko como vai? primeiramente, grato pela ajuda!
Tentei, mas deu "#VALOR!" que pode ser?

[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