VBA Autofill importeren data

[Nappie84]

Timshel, Het werkt! Je heb gelijkt, het is makkelijk als alles in een keer wordt gedaan!:d
Excuses voor de verwarring en bedankt voor je hulp!:thumb:

 

[snb]

Dit gaat veel sneller.
Assumptie: alle gegevens in bestand "G:\OF\cjib.txt"

Sub M_snb()
   sy = Application.Transpose(Sheets("OIN").Columns(1).SpecialCells(2))
   sz = Application.Transpose(Sheets("OIN").Columns(1).SpecialCells(2).Offset(, 1))
   
   sn = Split(Replace(Replace(CreateObject("scripting.filesystemobject").opentextfile("G:\OF\cjib.txt").readall, vbCrLf, ",wk 17,,0,0,,," & vbLf), Chr(34), ""), vbLf)
   
   For j = 1 To UBound(sn) - 1
      sp = Split(sn(j), ",")
      sp(10) = IIf(InStr(sp(7), "OTA"), "o", "p")
      If Not IsError(Application.Match(Val(sp(3)), sy, 0)) Then sp(11) = sz(Application.Match(Val(sp(3)), sy, 0))
      If Not IsError(Application.Match(sp(5), sy, 0)) Then sp(12) = sz(Application.Match(sp(5), sy, 0))
      sp(13) = IIf(InStr(sp(7), "CPA"), Mid(sp(7), InStr(sp(7), "CPA"), 4), "niet bekend")
      Cells(20 + j, 1).Resize(, UBound(sp) + 1) = sp
   Next
End Sub