[Macro VBA #3] How to remove accents automatically

Remove any accents from any letter, word or text automatically using a User Defined Function (UDF).
Site article link: goo.gl/GNPUXL
Change color of code: goo.gl/okKRf8
Site: www.funcaoexcel...
Facebook: / funcaoexcel
Twitter: / funcaoexcel
Google+: goo.gl/smbOhY

[@magdanogueira751]

Cara, se eu pudesse dava mil joinhas, rsrs. Salvou meu dia!!!

[@lucasnathan1329]

Muito obrigado mesmo guerreiro, me ajudou muito, muito mesmo !!!

[@zilrr3283]

Super!! Aprendi, obrigada!

[@xiqboom4590]

Você também explicou tudo menos como salvo a função no Excel!!! Não consegui!!!

[@martinsger]

eM TEMPO DE PANDEMIA E FUÇANDO O EXCELL: TENTE ISTO: TIRA ACENTOS E CEDILHA, DENTRE OUTROS CARACTERES ESPECIAIS, PROVENIENTES DE MAINFRAME ETC..... =TIRAR(ARRUMAR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR(A2;"ü";"u"));"û";"u"));"ú";"u"));"ù";"u"));"ö";"o"));"õ";"o"));"ô";"o"));"ó";"o"));"ò";"o"));"ï";"i"));"î";"i"));"í";"i"));"ì";"i"));"ë";"e"));"ê";"e"));"é";"e"));"è";"e"));"ç";"c"));"å";"a"));"ä";"a"));"ã";"a"));"â";"a"));"á";"a"));"à";"a"));"Ü";"U"));"Û";"U"));"Ú";"U"));"Ù";"U"));"Ö";"O"));"Õ";"O"));"Ô";"O"));"Ó";"O"));"Ò";"O"));"Ï";"I"));"Î";"I"));"Í";"I"));"Ì";"I"));"Ë";"E"));"Ê";"E"));"É";"E"));"È";"E"));"Ç";"C"));"Å";"A"));"Ä";"A"));"Ã";"A"));"Â";"A"));"Á";"A"));"À";"A")))) . Pode copiar e colar esta formula no Excel, e trocar a celula A2, pela sua celula .

[@investigacioneseconometric6599]

Gracias!

[@mariceliabarbosa7293]

Tenho uma planilha cheia de símbolos em função de acentos, mas não dá para usar isso na planilha toda, certo?

[@martinsger]

eM TEMPO DE PANDEMIA E FUÇANDO O EXCELL: TENTE ISTO: =TIRAR(ARRUMAR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR(A2;"ü";"u"));"û";"u"));"ú";"u"));"ù";"u"));"ö";"o"));"õ";"o"));"ô";"o"));"ó";"o"));"ò";"o"));"ï";"i"));"î";"i"));"í";"i"));"ì";"i"));"ë";"e"));"ê";"e"));"é";"e"));"è";"e"));"ç";"c"));"å";"a"));"ä";"a"));"ã";"a"));"â";"a"));"á";"a"));"à";"a"));"Ü";"U"));"Û";"U"));"Ú";"U"));"Ù";"U"));"Ö";"O"));"Õ";"O"));"Ô";"O"));"Ó";"O"));"Ò";"O"));"Ï";"I"));"Î";"I"));"Í";"I"));"Ì";"I"));"Ë";"E"));"Ê";"E"));"É";"E"));"È";"E"));"Ç";"C"));"Å";"A"));"Ä";"A"));"Ã";"A"));"Â";"A"));"Á";"A"));"À";"A")))). LEMBRANDO QUE TERA QUE TROCAR A A2, PELA CELULA QUE DESEJAR. nAO SE ASSUSTE FAÇA O CONTROL C e control V, desta megaformula. entao digite em A2, a frase: Café com melão e coração de melão. Veja a magica

[@julianojkz]

copiei, criei a macro, mas na hora do =SemAcento ela nao chama a formula, alguem passou por isso?

[@fellipevianavaz2327]

Na verdade o nome do codigo é "Acento" e não "Sem acento"

[@Ricardo-ur4ip]

cara tentei fazer aqui mas não deu certo ,tem como disponibilizar para download essa tabela pf.

Oi Ricardo, Disponibilizei o arquivo igual ao mostrado no vídeo no post que trata do mesmo assunto lá no site do Função Excel. O link é esse aqui: www.funcaoexcel.com.br/remover-acentos/

[@fellipevianavaz2327]

@ Vale reforçar que no link, vc usa a função "Acento" ao invés de "Semacento" igual da sua vídeo aula. Cara, perfeito obrigado, vou te seguir.

[@euandandopelomundo]

O site está fora do ar. :(

[@martinsger]

eM TEMPO DE PANDEMIA E FUÇANDO O EXCELL: TENTE ISTO: =TIRAR(ARRUMAR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR(A2;"ü";"u"));"û";"u"));"ú";"u"));"ù";"u"));"ö";"o"));"õ";"o"));"ô";"o"));"ó";"o"));"ò";"o"));"ï";"i"));"î";"i"));"í";"i"));"ì";"i"));"ë";"e"));"ê";"e"));"é";"e"));"è";"e"));"ç";"c"));"å";"a"));"ä";"a"));"ã";"a"));"â";"a"));"á";"a"));"à";"a"));"Ü";"U"));"Û";"U"));"Ú";"U"));"Ù";"U"));"Ö";"O"));"Õ";"O"));"Ô";"O"));"Ó";"O"));"Ò";"O"));"Ï";"I"));"Î";"I"));"Í";"I"));"Ì";"I"));"Ë";"E"));"Ê";"E"));"É";"E"));"È";"E"));"Ç";"C"));"Å";"A"));"Ä";"A"));"Ã";"A"));"Â";"A"));"Á";"A"));"À";"A")))). LEMBRANDO QUE TERA QUE TROCAR A A2, PELA CELULA QUE DESEJAR. nAO SE ASSUSTE FAÇA O CONTROL C e control V, desta megaformula.

[@investigacioneseconometric6599]

Gracias!

[@martinsger]

eM TEMPO DE PANDEMIA E FUÇANDO O EXCELL: TENTE ISTO: =TIRAR(ARRUMAR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR((SUBSTITUIR(A2;"ü";"u"));"û";"u"));"ú";"u"));"ù";"u"));"ö";"o"));"õ";"o"));"ô";"o"));"ó";"o"));"ò";"o"));"ï";"i"));"î";"i"));"í";"i"));"ì";"i"));"ë";"e"));"ê";"e"));"é";"e"));"è";"e"));"ç";"c"));"å";"a"));"ä";"a"));"ã";"a"));"â";"a"));"á";"a"));"à";"a"));"Ü";"U"));"Û";"U"));"Ú";"U"));"Ù";"U"));"Ö";"O"));"Õ";"O"));"Ô";"O"));"Ó";"O"));"Ò";"O"));"Ï";"I"));"Î";"I"));"Í";"I"));"Ì";"I"));"Ë";"E"));"Ê";"E"));"É";"E"));"È";"E"));"Ç";"C"));"Å";"A"));"Ä";"A"));"Ã";"A"));"Â";"A"));"Á";"A"));"À";"A")))). LEMBRANDO QUE TERA QUE TROCAR A A2, PELA CELULA QUE DESEJAR. nAO SE ASSUSTE FAÇA O CONTROL C e control V, desta megaformula.