Apagar caracteres no VBA.

AlysonR · 9 de janeiro de 2013

Eu tenho uma coluna no excel que esta totalmente errada. Queria apagar apenas alguns caracteres desta coluna para que fique o texto que eu precise.

Caracteres a ser apagados:

": "
"        -"
"       -"

Exemplo da tabela:

: LPV917 -

: LPV950 -

: TFR102 -

: TPS133 -
: TPS133 -
: TPS133 -
: TPS133 -
: TPS133 -
: TPS133 -
: TPS133 -

: TPS278 -

: FIT003 -
: FIT003 -
: FIT003 -
: FIT003 -
: FIT003 -
: FIT003 -
: FIT003 -
(Coluna A)

Muito obrigado desde já.

jeffsilveira · 9 de janeiro de 2013

Não precisa vba, numa coluna à parte experimente:

=ARRUMAR(SUBSTITUIR(SUBSTITUIR(A2;":";"";1);"-";"";1))

Arraste para baixo. Depois copie e cole especial 'valores' e delete a coluna repetida.

Se precisar realmente ser em macro, avise.

Abraços.

AlysonR · 10 de janeiro de 2013

Otimo código, teria como fazer esse código em VBA?

Não precisa vba, numa coluna à parte experimente:
=ARRUMAR(SUBSTITUIR(SUBSTITUIR(A2;":";"";1);"-";"";1))
Arraste para baixo. Depois copie e cole especial 'valores' e delete a coluna repetida.

Se precisar realmente ser em macro, avise.

Abraços.

Realmente preciso pois a planilha está completamente automática, somente esta coluna ficou fora do padrão.

A questão é que este arquivo é para pessoas que não tem muito conhecimento usarem então seu eu deixar o código elas simplesmente podem apagar (como já aconteceu varia vezes ^^

Alguém sabe como usar o código replace?

Consegui com este código.

Muito obrigado jeffsilveira, pela formula que me deu a ideia deste código ^^.

Sub Alterar()
 Dim LR As Long, k As Long
 LR = Cells(Rows.Count, "A").End(xlUp).Row
  Application.ScreenUpdating = False
  For k = LR To 1 Step -1
   If Cells(k, "A").Value <> "" Then
    c1 = Cells(k, "A").Replace(":", "", xlPart)
    c2 = Cells(k, "A").Replace(" ", "", xlPart)
    c3 = Cells(k, "A").Replace("-", "", xlPart)
   End If
  Next k
  Application.ScreenUpdating = True
End Sub