• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

kolom horizontaal filteren

Status
Niet open voor verdere reacties.
J

JoostvanDijk

Nieuwe gebruiker
Lid geworden
10 mei 2017
Berichten
4
Goedemorgen,

Ik heb een uitdaging waar ik zelf niet uitkom.

Ik heb een kolom A met meerdere dezelfde nummers en kolom B met allemaal verschillende nummers.
Deze moet ik achter elkaar zien te krijgen voor een csv bestand.
Het zijn alleen 7500 rijen, dus handmatig is het niet te doen.

Hieronder het voorbeeld zoals ik deze nu heb...

Kolom A Kolom B
230594 230594
940045 0.194.5464.2
243767-16 243767
IM0123 209929
IM0123 0209929
IM0123 D80065
IM0177 200/42309P
IM0177 200/42311
IM0177 G15686
IM0177 G33536
IM0177 8534954
IM0191 DC 9047
IM0191 30753

En hier zoals deze moet worden....

Kolom A Kolom B
230594 230594
940045 0.194.5464.2
243767-16 243767
IM0123 209929 0209929 D80065
IM0177 200/42309P 200/42311 G15686 G33536 8534954
IM0191 DC 9047 30753

Kan dit met een formule of op een andere manier..

Alvast bedankt voor de hulp!
 
Kun je niet een voorbeeldbestandje meesturen? Dat kijkt wat makkelijker.
 
Met een macro.

Code: 
Sub VenA()
ar = Blad1.Cells(1).CurrentRegion
  With CreateObject("scripting.dictionary")
    For j = 1 To UBound(ar)
      .Item(ar(j, 1)) = .Item(ar(j, 1)) & ar(j, 2) & " "
    Next j
    Blad1.Cells(1, 10).Resize(.Count, 2) = Application.Transpose(Array(.keys, .items))
  End With
End Sub
 
Goedemorgen VenA,

Dank je voor je mail en oplossing.
Ik heb een macro gemaakt met de text zoals je die gestuurd, maar krijg een foutmelding. (ik weet overigens ook niet exact hoe ik een macro precies toe kan passen). :shocked:

Bekijk bijlage Kolommen in Rijen verwerken.xlsx

Hierbij het complete bestand, zou je eens kunnen kijken of dit de macro veranders voor alle regels en misschien de toepassing van een macro kunnen uitleggen (of als deze ergens anders op het forum staat zoek ik die graag op).

Ik ben echt een leek hierin, alleen heb het echt nodig.

Alvast vriendelijk bedankt!!
 
De code is wat langer geworden omdat het met transponeren niet lukt. (met dank aan @E v R en @snb)

Code: 
Sub VenA()
ar = Sheets("Blad2").Cells(1).CurrentRegion
  With CreateObject("scripting.dictionary")
    For j = 2 To UBound(ar)
      .Item(ar(j, 1)) = .Item(ar(j, 1)) & ar(j, 2) & " "
    Next j
    For Each it In .keys
      .Item(it) = it & "|" & .Item(it)
    Next
    ar = .items
  End With
  With CreateObject("New:{8BD21D20-EC42-11CE-9E0D-00AA006002F3}")
    .List = ar
    Sheets("Blad3").Cells(1).Resize(UBound(ar)) = .List
  End With
  Sheets("Blad3").Columns(1).TextToColumns , , , , 0, 0, 0, 0, -1, "|"
End Sub
 

Bijlagen

HELD!! echt heel erg bedankt. Ik kan nu perfect een csv maken en deze inlezen!

Ik was hier echt nooit zelf achter gekomen ;) en ben echt heel erg blij met de hulp.

Ook @E v R en @snb bedankt uiteraard.
 
Meteen toevoegen/gebruiken VenA, top!:thumb:
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan