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
|