Macro substituir

[Jorge Albuquerque]

Olá Pessoal

Estou com pepino na mão! uma planilha planilha de excel no qual preciso fazer a tabulação de vário dados da empresa e nesta planilha tem algumas restrições, sendo.

 

A planilha não pode ter: Barra(/), Ponto(.), traço(-) que contém nos CPF e CNPJ.

Neste caso preciso trocar estes símbolos por"nada". Exemplo CPF (012.345.678-90) precisa ficar desta forma (01234567890)

Exemplo CNPJ (01.234.567/0001-89) precisa ficar desta forma (01234567000189)

 

A planilha também não pode ter nenhum tipo de acentos nos nomes, Ex. José. Então preciso verificar todos os nomes e substituir estas letras (Á), (Ã), (Â), (É), (Ê), (Í), (Ó), (Ô), (Ú).

Exemplos: trocar a letra (É) por (E); trocar a letra (Ã) por (A) e assim por diante.

José precisa ficar Jose

Sebastião precisa ficar Sebastiao

 

Talvez eu tenha que ter várias Macros, mas será muito mais rápido do que ter que ficar preenchendo o substituir sempre.

 

Detalhe, seria mais fácil digitar estas planilha sem estas informações, mas como são milhares de nomes todos os meses, todas estas informações são enviadas já digitadas, mas cada um digita de uma maneira e eu preciso compilar todas estas informações em outra planilha sem os acentos e símbolos comentado acima.

 

Se puderem me ajudar ficaria grato, pois vai economizar muito tempo.

 

abç

 

[CasaDoHardware]

Amigo eu fiz essa com o gravador de macros

 

 

Sub Macro1()
'
' Macro1 Macro
'

'
    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:="A", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        
End Sub

 

Nesta esta . por "", - por "", / por "" e à por A, como são muitas variações sugiro que você faça o mesmo com o gravador de macros 

 

Ligue o gravador de macros

 

Ctrl + U 

 

Em localizar digite o que você precisa localizar à por exemplo

Em substituir digite o que você precisa que fique no lugar no exemplo A

 

Clique em substituir tudo,

 

Faça esse processo ( um pouco braçal e verdade) com todas as variações que você precisar  e pare a gravação

 

Sua macro estara pronta e você poderá utiliza-la quando precisar

 

Pra retirar /, - e . do CNPJ/CPF basta deixar o campo substituir sem colocar nada.

 

Se nao conseguir (acho difícil), disponibilize parte do seu arquivo informando todas as variações possiveis.

[Jorge Albuquerque]

Bom dia, Obrigado pela Ajuda e sugestão.

Liguei o gravador de macro e fiz o que você sugeriu e deu certo!

 

Segue a macro 1 que fiz

 

Sub ACENTOS()
' Á Macro
    Application.ScreenUpdating = Falso
    Range("G:G").Select
    Cells.Replace What:="Á", Replacement:="A", 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
   Cells.Replace What:="Â", Replacement:="A", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   Cells.Replace What:="É", Replacement:="E", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   Cells.Replace What:="Ê", Replacement:="E", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   Cells.Replace What:="Í", Replacement:="I", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   Cells.Replace What:="Ó", Replacement:="O", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   Cells.Replace What:="Ô", Replacement:="O", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   Cells.Replace What:="Ú", Replacement:="U", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    MsgBox "ACENTOS RETIRADOS COM COM SUCESSO", , "RETIRAR ACENTOS"
    Range("A1").Select

End Sub

 

 

Macro 2 que fiz

 

Sub SIMBOLOS()
'SIMBOLOS Macro
  Application.ScreenUpdating = False
    Range("B:B,F:F").Select
        Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        Selection.Replace What:="-", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        Selection.Replace What:="/", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("A1").Select
    MsgBox "SIMBOLOS RETIRADOS COM SUCESSO", , "RETIRAR SIMBOLOS"
End Sub

 

Abç e obrigado mais uma vez