Bug in Text to columns.

[Revathi]

Hi,

I have automated a small part for "Text to columns" but recently i have noticed after doing the text to columns it is reflecting in a some other format eg. Correct data - 18110274E9 AFTER AUTOMATED - 1.181E+16.


Please can someone help me on this.. if it is required i will share my file to you. The below is the code which i have used for Text to columns..

Thanks.


Sub Sample5()
Worksheets("Test").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A22:A600").Select
Selection.TextToColumns Destination:=Range("A22"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(8, 1), Array(12, 1), Array(30, 1), Array(51, 1), _
Array(64, 1), Array(77, 1), Array(92, 1), Array(101, 1), Array(122, 1), Array(127, 1), _
Array(132, 1), Array(134, 1), Array(137, 1), Array(145, 1), Array(162, 1), Array(176, 1)) _
, TrailingMinusNumbers:=True

 

[Norie]

Re: Bug in Text to columns. Please help

In the FieldInfo array try using 2 (Text) instead of 1 (General) for the column data type.

 

[Revathi]

Re: Bug in Text to columns. Please help

Thanks a lottttttttttttttttttt. you really made my day.. thank you so much