Dag Allen,
Sorry voor deze vraag nogmaals,
Ik had een goed werkende VBA van jullie voor een tekstbestand naar kolommen in te voegen.
Werkt prima waarvoor dank.
Doch het ene tekstbestand is het andere niet.
Kolommen
Pick Plaats art Nr Art Naam MPrk verpakking stuks kg stuks kg
Met extra kolommen
[color=red]Plaats Plaatsnaam PZrtij: PxtPrn:[/color] Pick Plaats art Nr Art naam MPrk verpakking stuks kg
Vroegere VBA welke natuurlijk niet werkt op huidig bestand, maar misschien zijn bepaalde mits aanpassing bruikbaar
Sub Knop1_Klikken()
[blad1!b1] = ['TXT Bestand'!a11].Value
[blad1!a3] = ['TXT Bestand'!a15].Value
[blad1!a4].Resize(2) = ['TXT Bestand'!a17:a18].Value
[blad1!a7] = ['TXT Bestand'!a62].Value
x = Range(Sheets("TXT Bestand").Range("a64"), Sheets("TXT Bestand").Range("a64").End(xlDown)).Rows.Count
[blad1!a8].Resize(x) = ['TXT Bestand'!a64].Resize(x).Value ' fout 1004
With Sheets("blad1")
.Range("A3:A52").TextToColumns Destination:=Range("A3"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(8, 1), Array(42, 1), Array(53, 1), Array(58, 1), _
Array(65, 1), Array(71, 1), Array(83, 1), Array(84, 1)), TrailingMinusNumbers:=True
.Range("D:E,H:I").Delete Shift:=xlToLeft
.Range("B8").End(xlDown).Offset(1, -1).Resize(20).ClearContents
.Columns("A:E").Columns.AutoFit
End With
End Sub
In bijlage Tabbladen in rood "Tekstbestand 2" en een deel als voorbeeld "gewenst"
Is dit mogelijk aan te passen ?
Indien té veel gevraagd, toch bedankt om de vraag te lezen
Groetjes
Georgyboy