E1-L1 arasını kopyala / panoya al

[ismail-34]

Excel web ailesine selamlar.

Benim sorum her sabah belli bi alanı kopyalayıp whatappta gruba yapıştırıyoruz.ancak google sheetste (ingilizce) çalışsın istiyorum.

Bunu yapan bir makro düğmesi işime yarardı.

örnek ektedir.

Herkese saygılar sevgiler.

 

[Haluk]

Google Sheets'de Windows'un clipboard nesnesine script ile erişim olmadığı için yapamazsınız.

.

 

[ismail-34]

Anladım hocam.normal Türkçe excell için çözüm alablirmiyim acaba.belki Google sheets den vazgecilir ilerde.

 

[Korhan Ayhan]

Arşiv konularını inceleyebilirsiniz.

Sorgu için arama sonuçları: clipboard

www.excel.web.tr

 

[ismail-34]

Arşiv konularını inceleyebilirsiniz.

Sorgu için arama sonuçları: clipboard

www.excel.web.tr

Merhaba değerli korhan hocam.
aşağıdaki kodunuzu buldum ama D1: D17 yapınca çalışmıyor. aralığı nasıl belirtebiliriz ? .bi revize ederseniz sevinirim.

Option Explicit

Sub Kopyala()
Dim DataObject As Object
Set DataObject = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
DataObject.SetText Range("D1").Value
DataObject.PutInClipboard
MsgBox "Veri kopyalandı." & vbCr & vbCr & Range("D1").Value, vbInformation
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Kopyala()
    Dim DataObject As Object, My_Data As Variant
   
    Set DataObject = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
       
    Range("E1:L1").Copy
   
    With DataObject
        .GetFromClipboard
         My_Data = .GetText
        .Clear
        .SetText My_Data
        .PutInClipboard
    End With

    Set DataObject = Nothing
End Sub

 

[ismail-34]

eyw hocam saat gibi çalışıyor

 

[Haluk]

Bu da yeterli olur;

Sub Kopyala2()
    Range("E1:L1").Copy
End Sub

.

 

[ismail-34]

Bu da yeterli olur;

Sub Kopyala2()
    Range("E1:L1").Copy
End Sub

.

eyw hocam.peki seçili bölgeyi kopyalayan versiyonu nasıl bişi olur ?

 

[Haluk]

selection.copy

.

 

[ismail-34]

eyw haluk hocam.
tek sorunu çoklu seçimlerde çalışmaması sanırım ?