Teksti sarakkeisiin

pom kirjoitti:

Mikähän mättää kun "Teksti sarakkeisiin" jää ikään kuin päälle? Kun kopion muualta tekstiä ja liitän sen soluun niin joka sana menee eri soluun vaikkei pitäisi. Ongelma ilmenee ainoastaan tämän nauhoitetun makron käytön jälkeen.

Sub TekstiSarakkeisiin()

Application.ScreenUpdating = False
Columns("B:B").Select
Selection.Cut Destination:=Columns("G:G")
Columns("G:G").Select
Selection.TextToColumns Destination:=Range("G1"), 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)), TrailingMinusNumbers:=True
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), 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)), TrailingMinusNumbers:= _
True
Cells.Select
Selection.Columns.AutoFit
Columns("A:K").Select
Selection.Copy
Sheets("Taul2").Select
Cells.Select
ActiveSheet.Paste
Sheets("Taul3").Select
Range("A1").Select
Application.ScreenUpdating = True
End Sub

kirjoitti:

Anonyymi

Kirjoita kommentti

5000

Lähetä