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,701 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
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

gptavares,

Boa Tarde!

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

Extrair Maiúsculas.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 31/10/2013 1:08 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Wagner, excelente!!

Parabéns.

Como fez isso?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

Ok, obrigado rfnetto.

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

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

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

Peço, por gentileza, votar positivamente.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
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
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious 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.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 01/11/2013 7:49 am
Fernando Fernandes
 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.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 02/11/2013 4:02 am
 janice
(@janice)
Posts: 1
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")

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

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