Apagar caracteres no VBA.

[AlysonR]

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]

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]

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

  jeffsilveira disse:

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

[jeffsilveira]

Quem sabe, sabe!

Entrei para te passar a macro e você já fez! Parabéns!

Creio que a fórmula deu mais trabalho de elaborar que a macro em si, mas fica pra quem precisar.

Abraços!

[Patropi]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.