converter números armazenados como texto em números com vba

[Dioniton]

Olá

Tenho um planilha que importa dados de um arquivo de texto, quando ocorre a importação dos dados a coluna de valores fica com números armazenado como texto. Então eu consigo converter os valores em números mas isto é feito manualmente. Como posso fazer isso só que com uma macro?

Att.

Dioniton

:wacko:

Editado Outubro 13, 2009 por Dioniton

[Paulo H Grando]

Como você está realizando a importação? Se deixar a opção Geral marcada para a coluna que deseja, no passo 3 do Assistente de Importação, números armazenados como texto são convertidos em números.

[Dioniton]

Na importação está como você mencionou, mas ai descobri que o problema não está na importação mas quando eu retiro os valores de parte das células importadas.

Para retirar o valor das seguinte célula:

VALOR OPERADOR :---------3,20-------

OBS: onde está tracejado -------- na realidade são espaço quando vou postar a resposta é retirado os espaços por isto coloquei os traços

uso:

valor = LTrim(RTrim(Mid(valor_da_celula, 17)))

mesmo assim os valores ficam com um caracter que não consigo identificar no final do valor da célula e que a torna o número armazenado como texto.

Ao editar o valor da célula posiciono o cursor após o valor e ai pressiono a tecla delete, dai apaga o caracter oculto e torna o valor da célula um número.

como diz a Bozena do Toma lá da cá.

"dai tudo fica certo dai "

Mas como acertar isto para que não precise ficar editando as células ?

Editado Outubro 14, 2009 por Dioniton

[Dioniton]

Bom pessoal

"Matutei" bastante além de ter pesquisado por algumas funções no próprio excel consegui resolver o meu problema.

segue o código da solução do problema.

For Each cell In [b1:b500]
       If cell > "" Then
       numero = Str(cell.Value)
       cell.Activate
      ActiveCell.FormulaR1C1 = numero
    
  Else
  End If
  Next

Att.

Dioniton

Editado Outubro 15, 2009 por Dioniton

[Dioniton]

Problema Resolvido !!!!

[lucinea]

Bom pessoal

"Matutei" bastante além de ter pesquisado por algumas funções no próprio excel consegui resolver o meu problema.

segue o código da solução do problema.

For Each cell In [b1:b500]
       If cell > "" Then
       numero = Str(cell.Value)
       cell.Activate
      ActiveCell.FormulaR1C1 = numero
    
  Else
  End If
  Next

Att.

Dioniton

Por favor, me ajude, preciso converter texto em numero numa planilha e já tentei tudo que vi nestes posts e não consigo.

[Patropi]

Boa tarde Lucinea

Seja bem vindo ao fórum!

você já tentou com a função =VALOR(A1)

Podemos tentar te ajudar, mas para facilitar poste a tua planilha num site gratuito como:

http://www.sendspace.com/

Depois cole o link da planilha aqui no fórum.

Um abraço.

Editado Setembro 1, 2011 por Patropi

[Vanessa Kotowey]

Em 14/10/2009 at 14:44, Dioniton disse:

Bom pessoal

 

"Matutei" bastante além de ter pesquisado por algumas funções no próprio excel consegui resolver o meu problema.

 

segue o código da solução do problema.

 

 

 

For Each cell In [b1:b500]
       If cell > "" Then
       numero = Str(cell.Value)
       cell.Activate
      ActiveCell.FormulaR1C1 = numero
    
  Else
  End If
  Next

 

 

Att.

 

Dioniton

Estava com o mesmo problema. Deu certo pra mim tb! Obrigada!

[npontes]

Sou totalmente leigo e bem iniciante em programação, então primeiramente agradeço a paciência nas explicações.

Tenho que converter uma planilha simples em arquivo TXT com delimitador do tipo "pipeline".

Com o código que repasso abaixo consegui realizar parte da necessidade, porém, necessito que os números estejam preenchidos com zero à esquerda... alguém pode me ajudar?

Como exemplo, coloco a tabela abaixo: (o título das colunas começam na segunda linha da planilha)

COD	EVENTO	HORAS	VALOR
01234	213	00348	000000531
00265	008	00003	000000091
00326	213	00303	000000426
00349	214	00000	000017016
00292	213	00424	000000614
00298	214	00000	000012758

e o arquivo TXT deverá ficar com o seguinte formato:

01234|213|00348|000000531
00265|008|00003|000000091

...

O problema é que quando exporto, sai da seguinte forma:

1234|213|348|531
265|208|3|91

Ou seja, os "Zeros" da esquerda desaparecem.

Como deve colocar no Código VBA para resolver esse problema?

Segue abaixo o script que estou usando:

Sub Macro1()
'Determina o tamanho da planilha (considerando que a coluna "A" esta preenchida.
UltLin = Cells(Cells.Rows.Count, "A").End(xlUp).Row

'Abre o arquivo Saida
Open "C:\FOLHA.txt" For Output As #1

' Executa um loop da linha 3 até a ultima linha de dados

For i = 3 To UltLin
' Monta a linha
LinExp = Left(Cells(i, 1), 5)
LinExp = LinExp & "|" & Left(Cells(i, 3), 3)
LinExp = LinExp & "|" & Left(Cells(i, 4), 5)
LinExp = LinExp & "|" & Left(Cells(i, 5), 10)

' Grava a linha no arquivo
Print #1, LinExp

Next i

'Fecha o arquivo
Close #1

End Sub

 

Agradeço toda ajuda e atenção.