VBA to convert text to a number

[windsurfit]

My sheet contains many cells (also entire rows and columns) that have data sorted from another sheet. Many results have "text" values that I need converted to numeric.

I want to convert more than one cell at a time (as is done under error checking) using a Macro. Ideally the whole sheet or at least a column at a time.

Hopefully this is fairly simple.

Thx

 

[Rick Rothstein]

My sheet contains many cells (also entire rows and columns) that have data sorted from another sheet. Many results have "text" values that I need converted to numeric.

I want to convert more than one cell at a time (as is done under error checking) using a Macro. Ideally the whole sheet or at least a column at a time.

Give this a try...

Sub ConvertTextNumbersToRealNumbers()
  With ActiveSheet.UsedRange
    .NumberFormat = "General"
    .Value = .Value
  End With
End Sub

 

[windsurfit]

Hi Rick,

Thanks- it seems to work..will try the upload to my internal software and see if it chokes...

Your the best.

 

[windsurfit]

Hey,

OK- after running tests it appears that I don't want the whole sheet converted just specific columns of data..
In this case columns: C:K (only).

Hopefully this is a simple modification to the above.

Thx again..

 

[Rick Rothstein]

OK- after running tests it appears that I don't want the whole sheet converted just specific columns of data..
In this case columns: C:K (only).

This should work...

Sub ConvertTextNumbersToRealNumbers()
  With Intersect(ActiveSheet.UsedRange, Columns("C:K"))
    .NumberFormat = "General"
    .Value = .Value
  End With
End Sub

 

[windsurfit]

Thanks- Perfect...