Cellen samenvoegen naar clipboard

[hmwul]

Hoogstwaarschijnlijk kan het simpelweg niet
(of ik heb niet goed gezocht)

-samenvoegen van geselecteerde (al dan niet aaneengesloten) cellen
-komma, of punt (of in te stellen ander teken, b.v. een * of - )
-het resultaat -alleen- naar clipboard
-zonder dat de 'bron' aangepast wordt.

Zoiets als het onderstaande.

Ik geloof dat Excel alleen 'aaneengesloten' cellen samenvoegt, basta.
Daarnaast, wanneer men in onderstaand voorbeeld een ctrl-c doet, worden de tussenliggende cellen ook naar clipboard gekopieerd.
(lees: daar heb je dus ook niets aan, helaas )



Names
Paxtyn
Avinash
Adya
Josslynn
Aseel
Gustavo
Caliana
Brantley
Adore
Aharon
Renae
Annabel
Theadora
Dailyn
Jayvion
Blake
Sandra
Keyana
Andraya
Addie

 

[cow18]

en nu nog het clipbord (ergens een indrukwekkende string)

Sub samenvoegen(Optional Sep)
     
     If IsMissing(Sep) Then sSep = "," Else sSep = Sep 'geen separator opgegeven, dan een komma
     For Each c In Selection.Cells
          tekst = tekst & sSep & c.Value
     Next
     MsgBox Mid(tekst, Len(sSep) + 1)
     
End Sub

https://www.helpmij.nl/forum/showth...op-clipboard-plaatsen?highlight=vba+clipboard
werkt blijkbaar maar tijdelijk ???

 

[hmwul]

Sorry voor de late reactie. Verjaardagen, visites, toestanden, diepe zucht, wat een ...
Enfin, ik moet bekennen, ik kom er niet helemaal uit.
Weet even niet wat ik moet doen.

Ik maak overigens gebruik van een clipboard manager.
(wie niet?)

Misschien dat je op weg kunt helpen?

Als het te gecompliceerd wordt, dan maar beter vergeten.

 

[snb]

Sub M_snb()
  For Each it In Range("A13,A7,A19,A6")
    c00 = c00 & "_" & it
  Next
    
  With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    .SetText c00
    .PutInClipboard
  End With
End Sub

 

[cow18]

@snb, dat had ik in die link die ik in #2 meegegeven had, ook al gezien.
Maar wat bedoelden ze toen, dat dit maar tijdelijk werkte ?
Was het niet 100% waterproof, eigenaardig toch ?
Iets werkt of werkt niet.

 

[snb]

Het klembord werkt toch altijd maar tijdelijk ?
Zo gauw er een nieuwe kopieer-aktie wordt ondernomen staan er andere gegevens.

 

[cow18]

ach zo.
Ik zag het praktische nut eigenlijk niet in.

 

[hmwul]

Sub M_snb()
  For Each it In Range("A13,A7,A19,A6")
    c00 = c00 & "_" & it
  Next
    
  With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    .SetText c00
    .PutInClipboard
  End With
End Sub

Hartelijk dank!
Kan dit ook met een variabel aantal andere cellen?

De gedachte is dat ik bepaalde cellen selecteer en die naar mijn clipboard manager kopieer en daar eventueel verder 'bewerk', om die dan ergens anders te kunnen 'pasten'.
Nu moet ik, in de clipboard manager, altijd de tussenliggende cellen verwijderen.

 

[cow18]

als het aantal diezelfde cellen zijn, dan maak je er een gedefinieerde naam van.
Enig probleempje, je bent niet 100% zeker hoe excel die cellen zal aflopen, dus omhoog/omlaag & rechts/links ???
Als je dat aspect nog wil ondervangen, dan moet je nog enkele regels extra code toevoegen, tenzij dat niet belangrijk is of alle cellen individueel benoemen in de gewenste volgorde zoals snb doet.

  For Each it In Range("A13,A7,A19,A6,[COLOR="#FF0000"]c1:d14[/COLOR]")

Het rode stuk, daar zal hij kolom per kolom, de rijen aflopen. Het stuk er voor loopt hij netjes af.

 

[hmwul]

Dank nogmaals.

Okay, punt is wel dat het vaak anders is, ik bedoel, de ene keer zijn die cellen, de andere keer zijn het weer andere.
Om de macro zou dan eigenlijk een soort van script moeten komen (denk ik), dat de gebruiker vraagt om welke cellen het gaat.
De gebruiker selecteert de cellen en die verschijnen in een, laten we zeggen, pop-upje en die worden dan samengevoegd, waarbij je dan kunt aangeven,
komma-spatie, punt-spatie, of een ander teken, of iedere selectie op een nieuwe regel.

In de pop-up komt dan zoiets van
[A3,C6,E3,D7]
[, ]

Tja, ik weet het ook niet, doe maar een suggestie. Op die manier zit je niet vast aan wat er in de macro is 'vastgelegd'.

Zoals gezegd, ik heb vergeefs gezocht. Mogelijk te ingewikkeld?

 

[cow18]

als het er niet veel zijn, dan kan je ze 1 per 1 (gebruik de CTRL of de SHIFT en de muis) selecteren en de macro met "Selection" laten werken

 

[snb]

Niks niet te ingewikkeld nie, maar waarvoor ?