• 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.

Samenvoegen Rijen

  • Onderwerp starter Onderwerp starter sear
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

sear

Gebruiker
Lid geworden
19 apr 2010
Berichten
17
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:
1eafbeelding.gif


Mijn bedoeling is om deze materialen allemaal achter elkaar te krijgen zoals:
2eafbeelding.gif


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
 
Als je de cellen selecteert, en dan dit uitvoert, lukt het:

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

Uiteraard kan je ipv de MsgBox de output ook op een andere manier doen.
 
Als je de cellen selecteert, en dan dit uitvoert, lukt het:

Code:
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:
foutmelding.gif


Jij weet daar vast meer van,

Bedankt alvast!
 
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 ?
 

Bijlagen

Laatst bewerkt:
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
 
Plaats een voorbeeldbestandje met een 50-tal regels zodat we iets hebben om mee te werken.
 
In de bijlage een voorbeeld met een 50-tal regels

Mvg,

Sear
 

Bijlagen

Dit is een mogelijke oplossing ---> zie bijlage.
Voer macro1 uit.
 
Een alternatief waarbij de oorspronkelijke lijst intact blijft en geen rijen gedeleted worden.
 

Bijlagen

Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan