could somebody please explain me why the
below code of macro converts
from text to numbers the 24, but not the 24,5
Sub textonumbers()
Dim tempR As Range
'find a blank cell
Set tempR = Cells(ActiveSheet.UsedRange.Count +
1)
'format the selection as a number
Selection.NumberFormat = "0"
'copy tempR, which is a blank cell
tempR.Copy
'add tempR's value to the cells in the selection
Selection.PasteSpecial Paste:=xlValues,
operation:=xlAdd
'clear the clipboard
Application.CutCopyMode = False
End Sub
below code of macro converts
from text to numbers the 24, but not the 24,5
Sub textonumbers()
Dim tempR As Range
'find a blank cell
Set tempR = Cells(ActiveSheet.UsedRange.Count +
1)
'format the selection as a number
Selection.NumberFormat = "0"
'copy tempR, which is a blank cell
tempR.Copy
'add tempR's value to the cells in the selection
Selection.PasteSpecial Paste:=xlValues,
operation:=xlAdd
'clear the clipboard
Application.CutCopyMode = False
End Sub