[turbine]

Hej, mam takie makro. Zaznaczam kilka komórek (w jednej kolumnie), klikam makro i tworzy sie lista po przecinku w polu L2, i dodatkowo kopiuje do schowka. Czy mozna jakos zrobic aby to wszystko dzialo sie bez uzywania pola L2 (tak jakby w pamieci?)? Tzn. zaznaczam pola, klikam makro i kopiuje do schowka. Nie chce korzystac z pola L2, bo nie roznych plikach cos w tym polu L2 moze byc i wtedy jak puszcze makro to pole sie zmienia. Nie znam sie na vba, to z czego korzystam to posklejałem jakos z info znalezionych w google i dalej nie wiem jakby to zmienic.

#vba
#programowanie
#excel

[Limonene]

@turbine: poka to makro

[turbine]

@Limonene:

Dim Rng As Range
Set Rng = Selection

Range("L2").numberformat = "@"
Range("L2").Value = Join(Application.Transpose(Selection), ",")
Range("L2").Copy

[dr_Cyban]

@turbine:

Sub PutCellValueInClipboard()
Dim MyData
Set MyData = New DataObject
MyData.SetText ActiveCell.Value
MyData.PutInClipboard
End Sub

[brak_nicku]

@turbine: tu jest gotowe rozwiązanie:

https://stackoverflow.com/a/60896244

[turbine]

@dr_Cyban: rozumiem ze musze to przerobic pod swoje makro?

[dr_Cyban]

@turbine:

Po prostu stworz nowe Macro i wklej to:

Private Sub PutCellValueInClipboard()
Dim MyData As DataObject
Set MyData = New DataObject
MyData.SetText ActiveCell.Value
MyData.PutInClipboard
End Sub

na razie dziala tylko na jedna komorke, zaraz poprawie jak chchesz wiecej zaznaczonych

[turbine]

@dr_Cyban: bo chcialbym zeby kopiowalo do schowka, ale nie komórkę tylko tak jak by "wynik" odpalonego makra:

Dim Rng As Range
Set Rng = Selection

Range("L2").numberformat = "@"
Range("L2").Value = Join(Application.Transpose(Selection), ",")
Range("L2").Copy

[konciko]

@turbine tak, mozesz to zrobic za pomoca array