0 a esquerda !!

alanvsp · 6 de julho de 2013

Boa tarde!

Novamente estou com duvidas, tenho 2 colunas A e B nelas contem numeros com 0 inicial, porém outros numeros já não os contém e preciso descarta-los todos o 0 iniciais segue uma basse:

COL A

042028

042029

042031

042033

128768

128706

128693

128688

128682

00027654

00064799

00065015

...

COL B

02

1

99

Tem alguma macro que faça isso para mim ?

alanvsp · 8 de julho de 2013

Sera que não tem um codigo em VBA que faça isso para mim ?? Ninguem até agora postou nada

Patropi · 8 de julho de 2013

Boa noite Alan

Se você postar um exemplo da tua planilha fica mais fácil do pessoal te ajudar.

Use o:

www.sendspace.com

Att.

alanvsp · 9 de julho de 2013

Boa noite Alan
Se você postar um exemplo da tua planilha fica mais fácil do pessoal te ajudar.

Use o:

www.sendspace.com

Att.

Conforme solicitado !

http://www.sendspace.com/file/l0l50m

Patropi · 9 de julho de 2013

Alan

Pelo que eu entendi você quer transformar os textos da coluna em números.

Se for isso, copie e cole este código num módulo:

Sub Enter_Values()
    For Each xCell In Selection
        xCell.Value = xCell.Value
    Next xCell
End Sub

Selecione o intervalo da coluna onde tem os dados --> clique em ALT+F8 e execute a macro.

Att.

alanvsp · 10 de julho de 2013

Alan
Pelo que eu entendi você quer transformar os textos da coluna em números.

Se for isso, copie e cole este código num módulo:
Sub Enter_Values()
    For Each xCell In Selection
        xCell.Value = xCell.Value
    Next xCell
End Sub
Selecione o intervalo da coluna onde tem os dados --> clique em ALT+F8 e execute a macro.

Att.

Acrescentei isso ao codigo :

Range("B2:C2").Select

Range(Selection, Selection.End(xlDown)).Select

For Each xCell In Selection

xCell.Value = xCell.Value

Next xCell

Ficou perfeito, a macro selecionou para mim toda a coluna "B" e "C" depois limpou os zeros.

Pode fechar PATROPI!