none
Como limpar células com determinados valores RRS feed

  • Pergunta

  • Olá. Estou desenvolvendo uma planilha de custos em Excel, porém estou com uma dificuldade: Tenho uma planilha (Plan1) com um banco de dados onde várias células (aleatórias) possuem os seguintes valores: ":" (2 pontos) e " :"(espaço e 2 pontos). Como sou novato em vba, preciso de uma macro que apague apenas as células que contenham esses valores na referida planilha, mas não sei criar esse código. Será que alguém poderia me ajudar? Obrigado!!!
    sábado, 31 de janeiro de 2015 22:14

Respostas

  • Olá Leo395!

    Neste caso, você mesmo pode gravar uma macro utilizando o comando "Substituir tudo" (CRTL+U) e então mande substituir o ":" por nada e o " :" por nada. O Código fica assim:

    Sub Macro1()
    
        Cells.Replace What:=":", Replacement:="", LookAt:=xlWhole, SearchOrder _
            :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        Cells.Replace What:=" :", Replacement:="", LookAt:=xlWhole, SearchOrder _
            :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    End Sub

    Abraços!


    Rafael Kamimura

    sábado, 31 de janeiro de 2015 23:45

Todas as Respostas

  • Olá Leo395!

    Neste caso, você mesmo pode gravar uma macro utilizando o comando "Substituir tudo" (CRTL+U) e então mande substituir o ":" por nada e o " :" por nada. O Código fica assim:

    Sub Macro1()
    
        Cells.Replace What:=":", Replacement:="", LookAt:=xlWhole, SearchOrder _
            :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        Cells.Replace What:=" :", Replacement:="", LookAt:=xlWhole, SearchOrder _
            :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    End Sub

    Abraços!


    Rafael Kamimura

    sábado, 31 de janeiro de 2015 23:45
  • Muito Obrigado pela ajuda Rafael Kamimura.

    Funcionou perfeitamente.

    Abraços

    segunda-feira, 2 de fevereiro de 2015 14:59