Este fórum está sendo desativado

[Inovacao]

Pessoal uma ajudinha por favor!!

Alguém conhece uma que pegue somente as inicias do nome e Sobrenome, exemplo:

Antônio Jeremias Calixto, INICIAIS = AJC


Obrigado!!

[Kledison]

@Inovacao

Tenta assim, supondo que o nome esteja em A1:

Código: Selecionar todos

=SE(ÉERRO(ESQUERDA($A$1;1)&EXT.TEXTO($A$1;PROCURAR(" ";$A$1)+1;1)
&EXT.TEXTO($A$1;PROCURAR(" ";$A$1;PROCURAR(" ";$A$1)+1)+1;1)
&EXT.TEXTO($A$1;PROCURAR(" ";$A$1;PROCURAR(" ";$A$1;PROCURAR(" ";$A$1)+1)+1)+1;1)
&EXT.TEXTO($A$1;PROCURAR(" ";$A$1;PROCURAR(" ";$A$1;PROCURAR(" ";$A$1;PROCURAR(" ";
$A$1)+1)+1)+1)+1;1));SE(ÉERRO(ESQUERDA($A$1;1)&EXT.TEXTO($A$1;PROCURAR(" ";$A$1)+1;1)
&EXT.TEXTO($A$1;PROCURAR(" ";$A$1;PROCURAR(" ";$A$1)+1)+1;1)
&EXT.TEXTO($A$1;PROCURAR(" ";$A$1;PROCURAR(" ";$A$1;PROCURAR(" ";$A$1)+1)+1)+1;1));
SE(ÉERRO(ESQUERDA($A$1;1)&EXT.TEXTO($A$1;PROCURAR(" ";$A$1)+1;1)
&EXT.TEXTO($A$1;PROCURAR(" ";$A$1;PROCURAR(" ";$A$1)+1)+1;1));
SE(ÉERRO(ESQUERDA($A$1;1)&EXT.TEXTO($A$1;PROCURAR(" ";$A$1)+1;1));
SE(ÉERRO(ESQUERDA($A$1;1));"";ESQUERDA($A$1;1));ESQUERDA($A$1;1)
&EXT.TEXTO($A$1;PROCURAR(" ";$A$1)+1;1));ESQUERDA($A$1;1)&EXT.TEXTO($A$1;PROCURAR(" ";$A$1)+1;1)
&EXT.TEXTO($A$1;PROCURAR(" ";$A$1;PROCURAR(" ";$A$1)+1)+1;1));
ESQUERDA($A$1;1)&EXT.TEXTO($A$1;PROCURAR(" ";$A$1)+1;1)
&EXT.TEXTO($A$1;PROCURAR(" ";$A$1;PROCURAR(" ";$A$1)+1)+1;1)
&EXT.TEXTO($A$1;PROCURAR(" ";$A$1;PROCURAR(" ";$A$1;PROCURAR(" ";$A$1)+1)+1)+1;1));ESQUERDA($A$1;1)
&EXT.TEXTO($A$1;PROCURAR(" ";$A$1)+1;1)&EXT.TEXTO($A$1;PROCURAR(" ";$A$1;PROCURAR(" ";$A$1)+1)+1;1)
&EXT.TEXTO($A$1;PROCURAR(" ";$A$1;PROCURAR(" ";$A$1;PROCURAR(" ";$A$1)+1)+1)+1;1)
&EXT.TEXTO($A$1;PROCURAR(" ";$A$1;PROCURAR(" ";$A$1;PROCURAR(" ";$A$1;PROCURAR(" ";$A$1)+1)
+1)+1)+1;1))

Att

[Inovacao]

Boa tarde, Kledison!!

Voce não conhece alguma fórmula que faça isto?

Obrigado!!

[Kledison]

@Inovacao

Essa que te enviei acima:

[Inovacao]

Eu achei essa muito grande achei que voce VBA, rs

Não tem uma menor?


Obrigado!!

[Kledison]

Tem sim:

Código: Selecionar todos

Function GetFirstLetters(rng As Range) As String
    Dim arr
    Dim I As Long
    arr = VBA.Split(rng, " ")
    If IsArray(arr) Then
        For I = LBound(arr) To UBound(arr)
            GetFirstLetters = GetFirstLetters & Left(arr(I), 1)
        Next I
    Else
        GetFirstLetters = Left(arr, 1)
    End If
End Function

cole a função acima em modulo, depois na célula que deseja a extração coloque:

Código: Selecionar todos

=GetFirstLetters(A1)

lembrando que para o exemplo o texto está em A1.

Att

[Inovacao]

Certo, legal esse código.

Mas não teria como colocar somente uma fórmula simples direto na celular, sem módulo , sem código, sem vba?


Obrigado!!

[AlbertoBraga]

Boa noite
Considerando que o nome completo esteja na célula A1 e que primeiro nome e sobrenomes estejam separados por espaços.
A formula matricial abaixo deve resolver:

{=MAIÚSCULA(ESQUERDA(A1;1)&CONCAT(SE(EXT.TEXTO(A1;LIN(INDIRETO("2:"&NÚM.CARACT(A1)));1)=" ";EXT.TEXTO(A1;LIN(INDIRETO("2:"&NÚM.CARACT(A1)))+1;1);"")))}

Não digite as chaves {} tecle -> Ctrl+Shift+Enter -> formula matricial

É isso.

[Deciog]

AlbertoBraga, Bom Dia.

Muito boa logica gostei, aprendi mais uma

Abraços

Decio

[Inovacao]

Bom dia, AlbertoBraga!!
Grato pela ajuda!!

Mas deu o seguinte erro: #NOME?

Segue Planilha para melhor compreensão.

Obrigado!!

[Inovacao]

Boa tarde, Kledison!!

Fiz o teste com o segundo código mais curto, ele funcionou porem quando escreve exemplo:

Marcio de Santana Perez = MDSP, ou seja ele pegou o a letra D, tem como excluir essa letra D e deixar somente assim = MSP.


Obrigado!!

[babdallas]

Inovacao, a função CONCAT não tem em todas as versões do Excel. Provavelmente esse é o motivo de não ter funcionado para você.

[Inovacao]

Boa tarde, babdallas!!
Entendi, então só pode ser isto!!


Obrigado!!

[AlbertoBraga]

Boa tarde

Estou usando o Excel 365 versão 2102, o erro #NOME? como o babdallas disse pode ser a versão.

Fiz um ajuste na formula para que não tenha as iniciais das preposições de, da , etc. ou qualquer expressão de ligação desde que sejam escritas em letras minúsculas.
O nome e sobrenomes devem no mínimo terem as inicias maiúsculas.

{=ESQUERDA(A1;1)&CONCAT(SE(EXT.TEXTO(A1;LIN(INDIRETO("2:"&NÚM.CARACT(A1)));1)=" ";SE(CÓDIGO(EXT.TEXTO(A1;LIN(INDIRETO("2:"&NÚM.CARACT(A1)))+1;1))<91;EXT.TEXTO(A1;LIN(INDIRETO("2:"&NÚM.CARACT(A1)))+1;1);"");""))}

É isso

[Inovacao]

Boa tarde, AlbertoBraga!!

Ficou top, show, parabéns!!

Mas Infelizmente devido a minha versão não vou conseguir utilizar.

Mesmo assim meus agradecimentos, eu salvei essa relíquia de fórmula para quando eu atualizar de versão.

Haa voce sabe se essa fórmula funciona na versão 2016?

Abraço!!