Fóruns
Microsoft Excel - 2...
2024 - Fórmulas Ava...
Relacionando palavr...
 
Notifications
Clear all

Relacionando palavras com acento

 
2024 - Fórmulas Avançadas - Funções Microsoft Excel
Post Recente por fcarlosc 8 anos atrás
4 Posts
4 Usuários
0 Reactions
1,075 Visualizações
RSS
 andrehhh
(@andrehhh)
Posts: 3
New Member
Topic starter
 

Olá,
Tenho uma lista com várias cidades de São Paulo que ao serem exportadas vem em caixa alta e sem acentos, eu quero substituir todas pelos nomes com acento.
A lista de todas as cidades bem formatada consegui no IBGE.

Tentei usar o VLOOKUP mas dá erro sempre que a palavra tem acento.
Uso o Excel 2010.

Segue exemplo da coluna do IBGE à esquerda e a que exportei na direita.

Adamantina-----------------ADAMANTINA
Adolfo-----------------------ADAMANTINA
Aguaí------------------------ADAMANTINA
Águas da Prata-------------AGUAI
Águas de Lindóia----------AGUAI
Águas de Santa Bárbara--AGUAI
Águas de São Pedro-------AGUAI
Agudos---------------------AGUAI
Alambari-------------------AGUAI
Alfredo Marcondes--------AGUAI
Altair-----------------------AGUAI
Altinópolis-----------------AGUAS DE SAO PEDRO
Alto Alegre----------------AGUAS DE SAO PEDRO
Alumínio-------------------AGUAS DE SAO PEDRO

 
Postado : 01/06/2016 11:52 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

André, se você exporta, é porque extrai do seu sistema ... portanto, acredito que o certo seria você corrigir seu sistema!! ... É só uma ideia!!
.
De qualquer forma, sugiro que você poste o arquivo, assim quem tiver como ajudar já terá um arquivo pronto para colocar a formula ou um VBA!! ... E assim você ganha tempo!!
.

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

 
Postado : 01/06/2016 5:59 pm
edilsonfl
 edilsonfl
(@edilsonfl)
Posts: 227
Estimable Member
 

Segue uma sugestão,
usando uma macro simples feita no gravador de macros do excel
e usando a função MAIÚCULA.

Verifique se ajuda

retirar acentos .zip

Quando ajuda for útil dê um clique na mãozinha, isso atribui ponto ao colaborador.

 
Postado : 01/06/2016 7:44 pm
fcarlosc
 fcarlosc
(@fcarlosc)
Posts: 453
Honorable Member
 

Boa-noite.
Use esse código, não é o mais viável para o que você precisa, mais acho que vai ajudar.

Sub LocalizaSubstitui()

Dim i As String
Dim k As String

i = "SAO PAULO"
k = "São Paulo"
Columns("A").Replace what:=i, replacement:=k, lookat:=xlPart, MatchCase:=False

i = "AGUAI"
k = "Aguaí"
Columns("A").Replace what:=i, replacement:=k, lookat:=xlPart, MatchCase:=False

Exit Sub

End Sub

Att,

Francisco

 
Postado : 02/06/2016 6:32 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico