Opgelost Macro samenvoegen geselecteerde cellen

[hmwul]

In een willekeurige kolom heb ik blokjes tekst staan - veelal blokjes van 3 regels.
Nadat ik die geselecteerd heb, wil ik ze samenvoegen, op deze manier.
de samenvoeging iedere keer op de eerste regel van het geselecteerde 'blokje'.

Ik weet dat je met aparte kolommen kan werken en dan zoiets als A1", "&A2&", "&A3

Een macro is veel handiger, denk ik.

Iemand een suggestie?

Bij voorbat dank.

Excel van Microsoft 365

 

[HSV]

Minimaal 2 cellen selecteren.

 

[peter59]

Of met power query?

de samenvoeging iedere keer op de eerste regel van het geselecteerde 'blokje'.

Dat is op dit moment helaas niet zo.

 

[AHulpje]

Of misschien zo:

 

[hmwul]

Hartelijk dank voor de reacties. Ben ze aan het bekijken.

@AHulpje : het resultaat komt helaas 1 regel láger uit.
Ik bedoel: in tab 'bron' staat de eerste regel op F2
Het resultaat (in tab resultaat) komt op F3

Is daar iets aan te doen?
Ik heb 2 sheets gebruikt: 'bron' en 'resultaat', eigenlijk voor de duidelijkheid, zoiets van 'zo is het' en 'zo moet het worden'.

Maar de bedoeling is om gegevens in 'bron' worden overschreven (dus niet in een aparte sheet).

Thanks!

 

[HSV]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim nw
 If Target.Count > 1 And Target.Columns.Count = 1 Then
   nw = Join(Application.Transpose(Selection), ", ")
   Selection.ClearContents
   Target.Cells(1) = nw
 End If
End Sub

 

[AHulpje]

Zo beter?

 

[hmwul]

@HSV dank voor de macro. Ik ben geen expert, dat moet gezegd worden.
Wanneer ik de macro toevoeg (alt-F11, etc.) en ik wil de macro oproepen (Developer > Macros) dan verschijnt de macro niet in de lijst. Geen idee waarom niet. ZOu het iets met 'Private' te maken hebben?
Nogmaals, geen idee.

@AHulpje Ik krijg een compile error (?)

(Zie attachment)

Wat doe ik verkeerd?

Thanks.

 

[AHulpje]

Werkt bij mij prima. Maar probeer het hier dan eens mee:
P.S.
De oplossing van HSV berust op een werkblad gebeurtenis, die wordt automatisch uitgevoerd op de cellen die je selecteert.

 

[HSV]

De code moet in de module van het blad (daarom zie je het niet in het venster onder macro's), Bij Alt+F11 dubbelklik je aan de linkerzijde onder VBAProject op Blad1(bron).
Als je meer dan twee cellen selecteert gaat het automatisch.

Je mag onderstaande ook in een standaard module zetten en dan op jouw manier uitvoeren (dan zie je de code wel).
De andere code wel verwijderen.
Het gaat dan niet automatisch.

Sub hsv()
Dim nw
  nw = Join(Application.Transpose(Selection), ", ")
  Selection.ClearContents
  ActiveCell = nw
End Sub

 

[peter59]

@hmwul
Ik ben eigenlijk heel nieuwsgierig naar wat je gedachtegang achter deze procedure is, en dan vooral als het gaat om iets overschrijven van wat je al hebt.

 

[HSV]

Samenvoeging excl. geselecteerde lege cellen.

 

[hmwul]

Werkt bij mij prima. Maar probeer het hier dan eens mee:
P.S.
De oplossing van HSV berust op een werkblad gebeurtenis, die wordt automatisch uitgevoerd op de cellen die je selecteert.

WOW, deze werkt perfect.

Super.
Heel hartelijk dank!

Reden is dat het voorkomt dat geimporteerde gegevens onder elkaar staan en die je wil je vanwege de overzichtelijkheid, samenvoegen tot 1 cel. Alles past dan vaak op 1 pagina, ipv 2 of 3 pagina's.

Overigens, ook blij te zien dat het onderstaande ook werkt!
Zaken als dubbele komma's zijn niet van belang (simpel zoek en vervang), het is het gedoe om het in 1 cel samen te kunnen voegen.

Nogmaals hartelijk dank!

Bericht automatisch samengevoegd: Vandaag om 17:00

Wil bij deze uiteraard Iedereen bedanken voor de hulp!

Bericht automatisch samengevoegd: Vandaag om 17:20

@AHulpje
Ik vind het vervelend hierop terug te komen.

Vraagje: klopt het de macro alleen werkt in kolom A en kolom F ?
Wanneer ik dezelfde data in (b.v.) kolommen B,C,D,E, H, K plaats en ik doe hetzelfde als kolom F, dan gebeurt er niets.
Thanks.