locked
Como limpar todas as células que contiverem vírgula ? RRS feed

  • Pergunta

  • Preciso deixar em branco todas as células da coluna "O" que tiverem "," mas não consegui usar um Contains... Alguma dica ?
    Tec. Virtual - Micro Computadores. Grandes Idéias!
    domingo, 13 de fevereiro de 2011 17:19

Respostas

  • Segue...


    Sub Limpar()


    Range("o:o").Select


    Selection.Delete



    End Sub


    zinho
    • Marcado como Resposta Tec. Virtual sexta-feira, 18 de fevereiro de 2011 19:04
    domingo, 13 de fevereiro de 2011 18:51
  • Sub limparVirgula()
    Dim r As Range
    For Each r In Range("O:O")
      If InStr(r.Value, 1, ",") Then
        r.Value = ""
      End If
    Next
    End Sub
    
    

    Caio Vitullo
    • Marcado como Resposta Tec. Virtual sexta-feira, 18 de fevereiro de 2011 19:04
    segunda-feira, 14 de fevereiro de 2011 02:58
  • Selecione a Coluna O, depois Ctrl+L (localizar), em Lo calizar: digite *,* depois clique em Sub stituir e não digite nada em Su bstituir por:

    Mais abaixo acione Substituir t udo
    • Marcado como Resposta Tec. Virtual sexta-feira, 18 de fevereiro de 2011 19:04
    quarta-feira, 16 de fevereiro de 2011 03:58

Todas as Respostas

  • Segue...


    Sub Limpar()


    Range("o:o").Select


    Selection.Delete



    End Sub


    zinho
    • Marcado como Resposta Tec. Virtual sexta-feira, 18 de fevereiro de 2011 19:04
    domingo, 13 de fevereiro de 2011 18:51
  • Sub limparVirgula()
    Dim r As Range
    For Each r In Range("O:O")
      If InStr(r.Value, 1, ",") Then
        r.Value = ""
      End If
    Next
    End Sub
    
    

    Caio Vitullo
    • Marcado como Resposta Tec. Virtual sexta-feira, 18 de fevereiro de 2011 19:04
    segunda-feira, 14 de fevereiro de 2011 02:58
  • Selecione a Coluna O, depois Ctrl+L (localizar), em Lo calizar: digite *,* depois clique em Sub stituir e não digite nada em Su bstituir por:

    Mais abaixo acione Substituir t udo
    • Marcado como Resposta Tec. Virtual sexta-feira, 18 de fevereiro de 2011 19:04
    quarta-feira, 16 de fevereiro de 2011 03:58