from num to text - end sub

[יריב החביב]

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

 

[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'

 

[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:

 

[יריב החביב]

that make the different, thank you.