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

[askm]

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ı?

 

[Korhan Ayhan]

Clipboard ifadesi ile arama yapınız.

 

[askm]

Korhan Bey ilginiz için teşekkürler. Office 2010 32 bit kurulu ve Microsoft Form 2.0 referansı mevcut değil. Dll dosyası yüklemeden işlem yapma imkanı var mı? Kod başınca clipboardı temizleyip B1 hücresini hafızaya alan bir kod lazım. https://wellsr.com/vba/2015/tutorials/vba-copy-to-clipboard-paste-clear/ sitede geniş bilgi var ama bilgisayardaki office nedeniyle yapamadım.

 

[Korhan Ayhan]

Deneyiniz.

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

 

[askm]

Korhan Bey çok teşekkür ederim.