Samenvoegen Rijen

[sear]

Hallo Allemaal,

Ik zit met een probleem waar ik van denk dat jullie wel het antwoord weten.
Het gaat om het volgende:

Ik heb een bepaald item dat bestaat uit verschillende materialen:

Mijn bedoeling is om deze materialen allemaal achter elkaar te krijgen zoals:

Mijn vraag luidt dus of hier een snellere manier voor is , dan het zelf handmatig achter elkaar zetten. Dit omdat het nogal een lange rij is met items.

Bij voorbaat dank,

Sear

 

[Wigi]

Als je de cellen selecteert, en dan dit uitvoert, lukt het:

Sub samenvoegen()
MsgBox Join(Application.Transpose(Selection), ",")
End Sub

Uiteraard kan je ipv de MsgBox de output ook op een andere manier doen.

 

[sear]

Als je de cellen selecteert, en dan dit uitvoert, lukt het:

Sub samenvoegen()
MsgBox Join(Application.Transpose(Selection), ",")
End Sub

Uiteraard kan je ipv de MsgBox de output ook op een andere manier doen.

Allereerst bedankt voor je snelle reactie!

Alleen als ik de macro uitvoer , krijg ik het volgende probleem:

Jij weet daar vast meer van,

Bedankt alvast!

 

[Warme bakkertje]

Probeer het eens met deze

PS:Heb de code van Wigi geprobeerd, en deze werkt nochtans ook perfect hoor.
Had je wel een bereik geselecteerd alvorens de macro te draaien ?

 

[sear]

Bedankt voor je reactie bakkertje.

Ik ben inmiddels al een stuk dichter bij de oplossing. Nu selecteer ik echter de reeks B2:B7 maar ik moet dit nu toepassen op een sheet met 2500 regels. De materialen moeten per artikelnummer komen. Hoe ga ik dit doen?

Ik hoor graag van jullie.

Mvgr,

Sear

 

[Warme bakkertje]

Plaats een voorbeeldbestandje met een 50-tal regels zodat we iets hebben om mee te werken.

 

[sear]

In de bijlage een voorbeeld met een 50-tal regels

Mvg,

Sear

 

[zapatr]

Dit is een mogelijke oplossing ---> zie bijlage.
Voer macro1 uit.

 

[sear]

Geniaal, held! Eindelijk!

 

[WHER]

Een alternatief waarbij de oorspronkelijke lijst intact blijft en geen rijen gedeleted worden.