About Me

A minha fotografia
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
Ocorreu um erro neste dispositivo
2006-06-04
Tomemos, por exemplo, em A1, o seguinte Nome + Apelido: "Jorge Rodrigues"

Para inserir o Nome numa outra célula:

=LEFT(A1;FIND(" ";A1)-1)

ou

=LEFT(TRIM(A1);FIND(" ";TRIM(A1))-1)


Para inserir o Apelido:

=RIGHT(A1;LEN(A1)-FIND(" ";A1))

ou

=MID(A1;FIND(" ";A1)+1;256)

ou

=RIGHT(A1;LEN(A1)-SEARCH(" ";A1;1))

ou

=MID(TRIM(A1);FIND(" ";TRIM(A1))+1;LEN(A1))


Código VBA de uma Função UDF para obter o Apelido:

Function apelido(tot)
    For I = 0 To Len(tot) - 1
        Var = Var & Mid(tot, Len(tot) - I, 1)
    Next I
    apelido = Right(tot, InStr(Var, " "))
End Function



em A1: =apelido(A1)