from num to text - end sub

  • Thread starter יריב החביב
  • Start date
×

יריב החביב

Hello,

We have this code to transform data from num to text

I want to exit this code (loop) when there are no more value's in the column
(empty)

what do i have to edit to that code ?

Range("H1:H5200").Select
Selection.NumberFormat = "@"

Dim cell As Object
For Each cell In Selection
cell.Value = " " & cell.Value
cell.Value = Right(cell.Value, Len(cell.Value) - 1)
Next
 
B

Bob Phillips

Dim cell As Object

Range("H1:H5200").NumberFormat = "@"
For Each cell In Range("H1:H5200")
If cell.Value <> "" Then

cell.Value = Right(cell.Value, Len(cell.Value) - 1)
Else

Exit For
End If
Next cell
 
×

יריב החביב

thank you Bob, but it make all the range as 'text'
 
D

Dave Peterson

This line formats the entire range as text:
Range("H1:H5200").NumberFormat = "@"

If you only want to format the cells that are changed to text:
 
Top