Este fórum está sendo desativado

[Dione]

Colegas, tenho a fórmula abaixo para extrair as inicias dos meus clientes. O problema é que preciso que só pegue a letra maiúscula para que não pegue a preposição.

Formula: =EXT.TEXTO(CLIENTE;1;1)&"."&+EXT.TEXTO(CLIENTE;PROCURAR(" ";CLIENTE)+1;1)

Exemplo:

João da Silva. Preciso que fique "J.S".

Na minha formula está ficando "J.d"

[Foxtri]

Bom dia.
Veja se pode ser com VBA ??

Function ExtIni(XRng As Range)
Dim Ct As Integer
Application.Volatile
ExtIni = ""
For Ct = 1 To Len(XRng)
If Asc(Mid(XRng.Value, Ct, 1)) >= 65 And Asc(Mid(XRng.Value, Ct, 1)) <= 90 Then
ExtIni = ExtIni & Mid(XRng.Value, Ct, 1) & "."
End If
Next
End Function

[Estevaoba]

Código: Selecionar todos

=EXT.TEXTO(SUBSTITUIR(SUBSTITUIR(A1;"da ";"");"de ";"");1;1)&"."&+EXT.TEXTO(SUBSTITUIR(SUBSTITUIR(A1;"da ";"");"de ";"");PROCURAR(" ";SUBSTITUIR(SUBSTITUIR(A1;"da ";"");"de ";""))+1;1)

Good luck!