Insering newline at every space

post a sample file...

Originally Posted by Rem0ram

post a sample file...

sample file is attached

Data.txt

Does this help?

Sub mandukes()
Range(Cells(2, 1), Cells(2, ActiveSheet.UsedRange.Columns.count)).Copy
Cells(3, 1).PasteSpecial Transpose:=True
Range(Cells(2, 1), Cells(2, ActiveSheet.UsedRange.Columns.count)).Delete
End Sub

assumes original data is on row 2.

Maybe:

Sub mandukes()
    Range("A2").Select
    Selection.TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
        TrailingMinusNumbers:=True
Range(Cells(2, 1), Cells(2, ActiveSheet.UsedRange.Columns.count)).Copy
Cells(3, 1).PasteSpecial Transpose:=True
Range(Cells(2, 1), Cells(2, ActiveSheet.UsedRange.Columns.count)).Delete
End Sub

Assumes original data is on row 2 of a spreadsheet.

Originally Posted by JOHN H. DAVIS

Maybe:

Sub mandukes()
    Range("A2").Select
    Selection.TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
        TrailingMinusNumbers:=True
Range(Cells(2, 1), Cells(2, ActiveSheet.UsedRange.Columns.count)).Copy
Cells(3, 1).PasteSpecial Transpose:=True
Range(Cells(2, 1), Cells(2, ActiveSheet.UsedRange.Columns.count)).Delete
End Sub

Assumes original data is on row 2 of a spreadsheet.

Thank you It works

but it needs to be done in the "text file". When the program runs it would open the text file and do necessary changes and save the file.
Maybe I'm asking too much :P
but thanks for the code