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

Selectie van gevulde cellen samenvoegen met leesteken

Status
Niet open voor verdere reacties.

BarryVdW

Gebruiker
Lid geworden
18 nov 2018
Berichten
38
Beste,

Hoe kan je een macro maken voor het samenvoegen van de gevulde cellen uit kolom B door een selectie die je maakt uit kolom N.

Wat ik zou willen is dus een macro om alle LA nummers van de selectie die je maakt in een lege cel gescheiden door een ; te plaatsen.
Uitkomst van de macro zou dus zijn voor de selectie in de test file: LA8321;LA9042;LA7665;LA9070;LA8187;LA7640;LA20011;LA7664;LA7643;LA8110;LA7758
Hopelijk is het een beetje duidelijk?

Met vriendelijke groeten,
Barry Van de Wauwer
 

Bijlagen

zie bijlage
 

Bijlagen

14 regels minder.

Code:
Sub hsv()
 If ActiveSheet.AutoFilter.Filters(14).On Then Range("U1") = Join(Application.Transpose(Me.AutoFilter.Range.Offset(1, 1).Resize(, 1).SpecialCells(12).Value), ";")
End Sub
 
Nog altijd 14 regels minder maar met code die wel werkt.
Code:
Sub verzamel()
 If ActiveSheet.AutoFilter.Filters(14).On Then Range("U1") = Join(Application.Transpose([COLOR="#FF0000"]ActiveSheet[/COLOR].AutoFilter.Range.Offset(1, 1).Resize(, 1).SpecialCells(12).Value), ";")
End Sub
 
Zet mijn code in de module van het werkblad en je kan 'activesheet' vervangen door 'Me' om de tellisence in beeld te krijgen of misschien wel weglaten zodat het alsnog werkt ;)
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan