Macro para remover acentos e caracteres especiais de células especificas

[Felipe Ver]

Bom dia pessoal, como estão?

 

Ca estou com mais uma dúvida..

Preciso de uma macro que remova acentos, pontos, traços e barras de células específicas.

Estou montando um pequeno sistema de cadastro que posteriormente fará a comunicação com o sistema, para isso algumas células precisam seguir o padrão do sistema e ele não permite acentos e caracteres especiais.

 

Conseguem me ajudar?

Anexo segue exemplo da planilha e uma imagem.

 

 

Desde ja agradeço pessoal!!

 

 

Formulário - projeto - Copia.xlsx

[Felipe Ver]

Amigos, encontrei esse código que funcionou, mas não automaticamente.

 

Sub Retirar_Caracteres()
 
Cells.Replace What:="-", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:=".", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:=",", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="Ç", Replacement:="C", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="Á", Replacement:="A", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
End Sub

 

Vou fazer todas as linhas com as combinações que eu preciso, entretanto, alguém poderia me auxiliar na questão abaixo?

 

Queria que esse código funcionasse automaticamente em determinadas células.

O que é necessário no código pra que isso ocorra?

 

Abraços!!!!

[Basole]

Veja o exemplo que remove automaticamente, ao digitar um alguma letra com acento, na celula C2 por exemplo:

 

 

Formulário - projeto - Copia.zip

[Felipe Ver]

Basole!!! doidera cara!!

É exatamente isso... Pelo que estou entendendo, foi criado uma função e depois uma macro para acionar ela, é isso?

 

Sou iniciante, mas to aprendendo muito aqui no fórum!!

Me ajudou demais, vou estudar o código... muito obrigado Basole..

[Basole]

Citação

É exatamente isso... Pelo que estou entendendo, foi criado uma função e depois uma macro para acionar ela, é isso?

Sim esta nesta função voce concentra todas as ocorrências de acentos e caracteres, ao invés de usar a função Replace para cada situação.