Hoe kan ik 2 codes samen voegen?

[Excelvbas01]

Beste allen,
Ik heb 2 knoppen met daar onder de codes die afzonderlijk goed werken.
Ik wil deze 2 samen voegen tot 1 code (Knop)

- 1e (knop) is om tekst van filter te kopiëren. Ik wil dan ook dit behouden. Ik wil filteren en kunnen kopiëren.
- 2e (knop) is om de gekopieerde tekst samen te voegen in een cel in dit geval cel L3.

Dus een knop om te kopiëren gekopieerde tekst samenvoegen en plakken.

Hopelijk heeft iemand een idee.

 

[edmoor]

Je bedoelt zoiets?

 

[snb]

Ook samen en voegen moet je samenvoegen.

 

[AccessGuru]

Maar dat geldt dan weer niet voor bakstenen .

 

[Excelvbas01]

Edmoor,
is korter dan ik dacht. Het werkt niet helemaal. Soms werkt het en soms krijg ik een foutmelding "Opject vereist".

 

[edmoor]

Werkt hier prima.
Dus ga na wat je gedaan hebt voordat je op de knop klikt en die melding krijgt.

 

[Excelvbas01]

Het werkt uitstekend. Mijn dank is groot.

Ik heb nog een ding.
Ik wil plakken in de volgende lege rij en ik gebruik deze formule daarvoor:

Dim NextRow As Range
 Sheets("Sheet3").Range("B2") = Join(Application.Transpose(Range("A2:A" & Range("A1").End(xlDown).Row).SpecialCells(xlCellTypeVisible)), " ")
 Sheets("Sheet3").Select
 Set NextRow = ActiveSheet.Cells(Cells.Rows.Count, 2).End(xlUp).Offset(1, 0)
 NextRow.Select
 Selection.PasteSpecial (xlValues), Transpose:=True

Het probleem hier is dat er niets gebeurd ook geen fout melding. Ik zie een lege rij.
Wat doe ik hier fout.

 

[edmoor]

Het is mij niet duidelijk wat je nu precies waar wilt plaatsen.