Este fórum está sendo desativado

[FEARED]

Bom dia Galera!

Sou novato por aqui, preciso da ajuda de vcs, tenho uma base gigante, e preciso deixar no padrão abaixo:

Como está na minha base Como deve ficar
DA SILVA JARDIM/MARCELO JARDIM/MARCELO
ANTONIO MANGINI/MARCOS MANGINI/MARCOS
ROBERTO DE SOUZA/MARCOS SOUZA/MARCOS
DE SOUZA/MARCOS SOUZA/MARCOS
BARBOSA FILHO/CARLOS FILHO/CARLOS

Poderiam me ajudar, com uma fórmula ou um vba ou xlma, qualquer coisa!!!!

Vlw

[laennder]

Você usa qual versão do Excel? É possível fazer isso rapidamente com o recurso de preenchimento relâmpago, que está disponível no Excel 2013/2016

[FEARED]

2013 amigo

[FEARED]

na hora que postei, distorceu, pode ser que confundiu tudo:

O que eu preciso:

MARIA JOAO/JOSE FIQUE JOAO/JOSE

SILVA SILVA/LUCAS FIQUE SILVA/LUCAS

DA SOUZA/ROGER FIQUE SOUZA/ROGER

E assim por diante, sempre o primeiro nome depois da barra e o ultimo nome antes da barra

[Kledison]

Bom dia,

Verifica se é o que pretende.

Att

[FEARED]

Deu certo, porem tenho na minha base tb esse exemplo abaixo, que não funciona e esqueci de mencionar.

JABEUS/FRANK ALEXANDER

[Kledison]

Olá,

verifica no exemplo.

Aguardo retorno.

[FEARED]

Isso eu já havia conseguido fazer, o que eu gostaria era tudo em uma única formula, juntando ambas as formulas. Pois a pessoa que vai fazer ela é bem leiga em Excel e que simplificar o máximo possível.

[FEARED]

e tenho casos que tem dois nomes antes da barra e dois depois da barra. É um inferno essa planilha.

[Kledison]

Olá,

para essa fórmula tive que recorrer ao nosso GURU Laennder, segue fórmula e arquivo.

Código: Selecionar todos

=CONCATENAR(SEERRO(DIREITA(ESQUERDA(A3;PROCURAR("/";A3)-1);NÚM.CARACT(ESQUERDA(A3;PROCURAR("/";A3)-1))-PROCURAR("*";SUBSTITUIR(ESQUERDA(A3;PROCURAR("/";A3)-1);" ";"*";NÚM.CARACT(ESQUERDA(A3;PROCURAR("/";A3)-1))-NÚM.CARACT(SUBSTITUIR(ESQUERDA(A3;PROCURAR("/";A3)-1);" ";"")))));ESQUERDA(A3;PROCURAR("/";A3)-1));"/";SEERRO(ESQUERDA(DIREITA(A3;NÚM.CARACT(A3)-PROCURAR("/";A3));PROCURAR(" ";DIREITA(A3;NÚM.CARACT(A3)-PROCURAR("/";A3)))-1);DIREITA(A3;NÚM.CARACT(A3)-PROCURAR("/";A3))))

Aguardo retorno.

[FEARED]

eu cheguei a essa, achei enorme, mas pelo jeito não tem comos ser pequena... rs

=EXT.TEXTO(A10;SE(ÉERROS(PROCURAR(" ";A10;1));1;SE(PROCURAR(" ";A10;1)<PROCURAR("/";A10;1);PROCURAR(" ";A10;1)+1;SE(PROCURAR(" ";A10;1)>PROCURAR("/";A10;1);1;SEERRO(PROCURAR(" ";A10;1);1))));SEERRO(PROCURAR(" ";A10;PROCURAR("/";A10;1));NÚM.CARACT(A10)+1)-SE(ÉERROS(PROCURAR(" ";A10;1));1;SE(PROCURAR(" ";A10;1)<PROCURAR("/";A10;1);PROCURAR(" ";A10;1)+1;SE(PROCURAR(" ";A10;1)>PROCURAR("/";A10;1);1;SEERRO(PROCURAR(" ";A10;1);1)))))

Queria agradecer a todos pela ajuda... =D

[FEARED]

é possivel colocar a formula em um xlam?

=CONCATENAR(SEERRO(DIREITA(ESQUERDA(A4;PROCURAR("/";A4)-1);NÚM.CARACT(ESQUERDA(A4;PROCURAR("/";A4)-1))-PROCURAR("*";SUBSTITUIR(ESQUERDA(A4;PROCURAR("/";A4)-1);" ";"*";NÚM.CARACT(ESQUERDA(A4;PROCURAR("/";A4)-1))-NÚM.CARACT(SUBSTITUIR(ESQUERDA(A4;PROCURAR("/";A4)-1);" ";"")))));ESQUERDA(A4;PROCURAR("/";A4)-1));"/";SEERRO(ESQUERDA(DIREITA(A4;NÚM.CARACT(A4)-PROCURAR("/";A4));PROCURAR(" ";DIREITA(A4;NÚM.CARACT(A4)-PROCURAR("/";A4)))-1);DIREITA(A4;NÚM.CARACT(A4)-PROCURAR("/";A4))))

Tranquei o tópico e logo depois pensei na possibilidade, seria muito util, pq aqui onde trabalho muitas pessoas vão usar.

[FEARED]

Obrigado por ter desbloqueado o post. =D

[laennder]

Então o ideal é criar um UDF e colocar no XLAM.

[laennder]

Código: Selecionar todos

Option Explicit

Function SeparaNome(s As String, Optional delimiter As String = "/") As String
    Dim a() As String
    
    a = Split(s, delimiter)
    SeparaNome = getLastWord(a(0)) & delimiter & getFirstWord(a(1))

End Function

Private Function getFirstWord(s As String)
    Dim a() As String
    
    a = Split(s, " ")
    getFirstWord = a(0)
End Function

Private Function getLastWord(s As String)
    Dim a() As String
    
    a = Split(s, " ")
    getLastWord = a(UBound(a))

End Function

Use a função assim:

=SeparaNome(Nome) - Ele irá separar na "/"

Se quiser usar outro separador use:

=SeparaNome(Nome; "-") - Ele irá separar no "-"

Você pode salvar o arquivo em XLAM