Converter número em texto ?

[Trafix]

Oh eu de nv pessoal,

Tenho uma tabela com uma coluna que contém vários números, mais esses números estão em formato texto.

Já fiz de tudo e não consigo resolver , alguém pode me ajudar ?

Obrigado @

[zinhovba]

Boa noite!!!!

Imagine que você tem, uma única célula nesta situação.

na parte superior do lado esquerdo, tem um ponto verde.

ao encostar o mouse nele, verá algumas opções, selecione a opção, cnverter em formato de números.

Veja mais em:

http://office.microsoft.com/pt-br/excel-help/ocultar-valores-e-indicadores-de-erro-nas-celulas-HP010070515.aspx

Att

[Trafix]

Zinho , boa noite !

Já tinha utilizado essa opção mais o problema é que tenho mais de 40 mil linha para converter em número, no qual demora muito esse processo .

Para converter uma coluna de 20 mil números levou mais de 4Horas.

Imagine ?

Se tiver uma outra alternativa mais eficaz me ajude ?

Abrs,

[zinhovba]

Boa noite!!

Tente assim.

Sub ZinhoVBA()

'Selecione seu intervalo
    For Each cell In Selection
        cell.Value = Val(cell.Value)
    Next
    Selection.NumberFormat = "General"
End Sub

Boa noite!!

Outra forma

Sub ZinhoVBA_II()
Application.ScreenUpdating = 0
    Range("A:A").Select 'Altere conforme a coluna desejada
    With Selection
        Selection.NumberFormat = "General"
        .Value = .Value
    End With
Application.ScreenUpdating = 1
End Sub

[Trafix]

Zinho, boa tarde !

O código está demorando muito para converter tambem, coloquei para rodar e já tem mais de 2H convertendo .

Existe uma outra forma mais rápida ?

Obrigado!

[Patropi]

Boa noite Trafix

Experimente colocar no inicio e no final do código essas linhas para passar o calculo para manual e depois retornar para automático.

Pois quando passa de Texto para número as fórmulas são recalculadas deixando lento.

Logo após o nome da macro:

Application.Calculation = xlCalculationManual

Antes do End Sub

Application.Calculation = xlCalculationAutomatic

Dê retorno.

Um abraço.

[zinhovba]

Boa noite!!

Tente...

Sub ZinhoVBA_II()
Application.ScreenUpdating = 0
Application.Calculation = xlCalculationManual
    Range("A:A").Select 'Altere conforme a coluna desejada
    With Selection
        Selection.NumberFormat = "General"
        .Value = .Value
    End With
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = 1

End Sub

[Trafix]

Boa noite Patropi !

Cara é por isso que sou seu fã, kkk

Deu certinho aqui, quando coloquei o código que você mandou no inicio e no final não levou nem 1min para converter mais de 50mil linhas.

Zinho, você também é o cara sem sua iniciativa não teria conseguido, muito obrigado meu mestre!

Um grande abraço a todos !

Resolvido .......

[Patropi]

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