verplaatsen per 2 kolommen naar kolom A en B

[Gerald Baalhuis]

Bijgevoegd een geimporteerd txt bestand (met dank aan plagvreugd en snb).
Het aantal kolommen dat gevuld wordt tijdens het importeren is variabel.
Ook zijn de rijen niet allemaal even lang, zoals je ziet in het bijgevoede bestand.

Nu wil ik graag alle gegevens onder elkaar hebben.
Zelf had ik een macro opgenomen, maar die loopt niet goed meer zodra er een lege cel in een kolom staat.

Is hier iets op te bedenken?

Ik ben nu al een tijdje aan het zoeken, maar kom er niet uit.

Gerald

 

[tilpi]

Bijgevoegd een geimporteerd txt bestand (met dank aan plagvreugd en snb).

??????????????

Mvg

Piet

 

[danny147]

Beste Gerald Baalhuis

Denk dat je het bestandje vergeten bent

Groetjes Danny. :thumb:

 

[Gerald Baalhuis]

Oops

Inderdaad. Maar dan hierbij...

 

[tilpi]

Ik krijg hem niet open.

Mvg

Piet

 

[snb]

Gebruik geen code die je niet begrijpt:

Sub [COLOR="blue"][B]tst5[/B][/COLOR]()
  Open "E:\OF\0_medicatie.txt" For Input As #1
    sq = Split(Input(LOF(1), #1), vbCrLf)
  Close #1
    
  For j = 0 To UBound(sq) - 1
    For jj = 0 To (Len(sq(j)) - 95) \ 46 - 1
      c1 = c1 & Left(Right(Trim(Mid(sq(j), 96 + jj * 46, 46)), 9), 1) & "|" & Right(Trim(Mid(sq(j), 96 + jj * 46, 46)), 8) & [COLOR="Blue"][B]vbcr[/B][/COLOR]
    Next
  Next
 [COLOR="blue"][B] sq=split(c1,vbcr)[/B][/COLOR]
  With Sheets(1)
     .Cells(1, 1).Resize(UBound(sq)) = [COLOR="blue"][B]worksheetfunction.transpose(sq)[/B][/COLOR]
     .Columns(1).TextToColumns , 1, -4142, , False, False, False, False, True, "|"
  End With
End Sub

 

[Gerald Baalhuis]

snb,

Deze code is gebruikt om het txt bestand in te lezen vanaf bepaalde posities.
Het xls bestand komt er dan uit te zien als bijgaand voorbeeld in mijn eerdere vraag.

Gerald

 

[snb]

Gerald: goed lezen en testen.
Deze code is niet hetzelfde en doet dan ook heel iets anders.
Maar blijft staan: gebruik geen code die je niet begrijpt.

 

[Gerald Baalhuis]

snb,

Sorry voor mijn wat overhaaste reactie (vanf het werk, want ik was benieuwd of er al gereageerd was).
Ik ga even googlen op de blauwe items in je stukje code.
Een mens is nooit te oud om te leren,. hoewel ik eerlijk moet toegeven dat ik vaak gewoon de aangedragen suggesties gebruik zonder het te snappen

Gerald