View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.misc
Gord Dibben Gord Dibben is offline
external usenet poster
 
Posts: 22,906
Default Change Row of text to values

You might want to refine that a bit so's it doesn't operate on the entire
column.

Sub change_to_nums()
Dim rng As Range
Dim xCell as Range
Set rng = Range(Range("AB1"), Range("AB" & Rows.Count). _
End(xlUp).Address)
For Each xCell In rng
xCell.Value = xCell.Value
Next xCell
End Sub


Gord Dibben MS Excel MVP

On Wed, 14 Nov 2007 09:34:01 -0800, SteveT
wrote:

I Found It :)

Simple solution found through MS Direct sight. For those interested its
below:

Columns("AB:AB").Select
For Each xCell In Selection
xCell.Value = xCell.Value
Next xCell



"SteveT" wrote:

Hello,

I am trying to convert a column of #'s formatted as text ( GENERAL )
to values for use in calculation/lookup functions.

I would like to plug solution into existing macro that performs these
mentioned functions.

The column is 'AB' and I need no 'nice messages or if variable if statements',
Only for entire column to be converted into a # format.

The #'d cells have the green "ERROR" indicator in top left corner of cell and
I get desired results by:

1) clicking cell
2) clicking "ERROR" indicator popup
3) choosing "Convert to Number'

but it does not record these actions with the VBA recorder



This is Driving me Nuts, can someone help with simple solution?

Brgds, SteveT