Fóruns
Microsoft Excel - 2...
2024 - Fórmulas Ava...
FORMULA PARA EXTRAI...
 
Notifications
Clear all

FORMULA PARA EXTRAIR LETRAS MAIÚSCULAS

 
2024 - Fórmulas Avançadas - Funções Microsoft Excel
Post Recente por gtsalikis 10 anos atrás
10 Posts
5 Usuários
0 Reactions
2,689 Visualizações
RSS
 gptavares
(@gptavares)
Posts: 2
New Member
Topic starter
 

Prezados, Boa tarde.

Eu gostaria de poder contar com a ajuda/entendimento daqueles que mais sabem de excel, para a seguinte dúvida.

Uma fórmula que extrai/copie somente as letras maiúsculas de célula e coloque-as em outra célula.
Estou anexando uma planilha modelo, para que possam entender melhor a minha necessidade.

Na coluna A eu tenho alguns nomes, na coluna B eu gostaria de aplicar uma fórmula onde fosse identificado somente as letras maiúsculas.
EX. Na Coluna A temos o nome Ordem dos Advogados do Brasil; na coluna B, ao aplicar a formula, fosse mostrado somente as iniciais, neste caso - OAB.

Caso não seja possível fazer esta identificação pelas letras maiúsculas, é possível fazer uma formula que pegue somente as primeiras letras de cada palavra, após o(s) espaço(s)?
Ainda seguindo o exemplo citado acima, na coluna B ficaria com a sigla ODAB, pois a fórmula pegou todas as primeiras letras de cada palavra de "Ordem dos Advogados do Brasil".

Lembrando que os nomes não terão os mesmos tamanhos ou número de palavras, faço este alerta, em razão das fórmulas de textos que verifiquei onde na aplicação as palavras teriam sempre que ter o mesmo número de letras, já que elas "contam" pelo número da letras para fazer a separação.

É possível fazerem esta "mágica"?

Siglas.xlsx
 
Postado : 31/10/2013 11:57 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

gptavares,

Boa Tarde!

Veja a função que ExtrairMaiúsculas que desenvolvi especificamente para esse fim que você quer.

Extrair Maiúsculas.zip
 
Postado : 31/10/2013 1:08 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Wagner, excelente!!

Parabéns.

Como fez isso?

 
Postado : 31/10/2013 1:11 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Ok, obrigado rfnetto.

Uma pequena função desenvolvida em VBA. Se quiser ver, pode digitar ALT+F11 e você verá.

 
Postado : 31/10/2013 1:35 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Peço, por gentileza, votar positivamente.

 
Postado : 31/10/2013 1:36 pm
 gptavares
(@gptavares)
Posts: 2
New Member
Topic starter
 

Wagner, Wagner, Wagner... Muito obrigado pela atenção e atendimento.

Você é o cara em excel.

Muito obrigado mesmo e parabéns. É merecedor!

 
Postado : 31/10/2013 7:24 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

gptavares,

Bom Dia!

Obrigado! Qualquer coisa, mande as ordens. Aqui nesse fórum, temos excelentes companheiros com conhecimento avançadíssimos de Excel e VBA.

 
Postado : 01/11/2013 7:49 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

gptavares (e Wagner),

Interessante esse assunto. Por curiosidade, bolei uma fórmula que, em tese, funcionaria para 99% dos casos. A diferença de resultado entre a do Wagner e a minha é que a dele considera acentuação (FAÁP) e a minha omite (FAP) para o exemplo FAAP. Nos demais casos se igualam.

A solução do Wagner é mais elegante mas para ser transportada para qualquer outra planilha tem que levar a programação junto. Por isso deixo minha contribuição também através de fórmulas nativas do excel.

Abraço aos dois.

 
Postado : 02/11/2013 4:02 am
 janice
(@janice)
Posts: 0
New Member
 

Não consegui abrir nenhum dos arquivos.
Diz que estão corrompidos :( :roll: :|

 
Postado : 29/01/2015 5:59 pm
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Sim, os arquivos foram corrompidos na migração do servidor.

Para amenizar este caso, vou postar um código aqui mesmo. Esta é uma função UDF que tira as siglas:

Function SIGLA(texto As String) As String
Dim i       As Long
Dim l       As String
For i = 1 To Len(texto)
 l = Mid(texto, i, 1)
 If Asc(l) >= 65 And Asc(l) <= 90 Then SIGLA = SIGLA & l
Next i
End Function

Coloque o código em um módulo, depois use assim:
=SIGLA(A1)

Ou assim:
=SIGLA("Ordem dos Advogados do Brasil")

 
Postado : 29/01/2015 6:37 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico