Seçili hücrede bulunan sadece metini panoya kopyalama

[okanaytimur]

Merhaba
Excel de seçili hücrenin içeriğindeki metni kopyalamaya çalışıyorum. Hücre olarak kopyalayabiliyor ama sadece içeriğindeki metni kopyalamanın bir yolunu bulamadım.
Aşağıdaki kod gibi hücre içeriğindeki metini bir değişkene atayıp o değişkeni de panoya eklemek istiyorum.
Bir çözümü var mı acaba?
Teşekkür ederim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim pano As String
pano = Selection.Value
pano.Copy

End Sub

 

[okanaytimur]

Arkadaşlar problemin çözümünü @Korhan Ayhan Hocamızın daha önceki bi konuya cevabı ile buldum.

Kendisinin yazmış olduğu kodu Worksheet_SelectionChange metodu içerisine ekleyince tam olarak istediğim gibi çalıştı.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim DataObject As Object
    Set DataObject = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    DataObject.SetText Selection.Value
    DataObject.PutInClipboard

End Sub

Kaynak :

Hücre İçeriğini Değer Olarak Kopyalama

Kolay gelsin. Activecell.copy ile hücre kopyalanıyor. Ama Hücre içeriği alınmış olmuyor sanırım. Farklı programa yapıştır dediğimde veri gelmiyor. F2 yapıp veriyi seçip kopyaladığımda programa yapışıyor. Bu şekilde kopyalama imkanı var mı?

www.excel.web.tr