Format to text was not sufficient
Bruce
Try this. Sub aaa() Range("h65536").End(xlUp).Select While ActiveCell.Row 11 If WorksheetFunction.IsNumber(ActiveCell.Value) Then ActiveCell.Value = "'" & ActiveCell.Value End If ActiveCell.Offset(-1, 0).Select Wend End Sub Tony -----Original Message----- I have a column of 400 rows or so of data where the characters are all numbers but the field I'm uploading to is alpha. Formatting these entries as text does now work in this situation. Example below: 52006000 would be entered as '52006000 So, what I need is to convert an undetermined number of cells in a column. I need the macro beginning in cell h12 in this case and it needs to figure out how many rows there are from there on down so that it will have a stop value. Then I would need a for loop that would go into each cell. It would need to add the apostrophe at the beginning of the cell entry in the fashion shown above if it is not already there. Thanks for your help... Bruce . |
All times are GMT +1. The time now is 10:09 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com