Soru Buton İle Veri Kopyalama

[Hsn55]

Merhabalar;
Ekli dosyada D17 hücre içerisindeki metni buton ile kopyalayabilir miyiz?. Kopyalama yapıldıktan sonra veri kopyalandı uyarısı verecek ve bu uyarının altında kopyalanan veriyi gösterecek. Ben daha sonra Ctrl+V ile herhangi bir yere yapıştıracağım. Yardımcı olursanız sevinirim.

İndir tebliğ

Dosyayı indir tebliğ

dosya.co

 

[numan şamil]

Merhaba
Range("D17").Copy
MsgBox Range("D17").Value, vbInformation
Şeklinde denermisiniz

 

[Hsn55]

Sayın Numan bey kopyalamayı yapıyor. fakat sayfadan çıkıp örneğin word belgesine yapıştır dediğimde olmuyor.

 

[numan şamil]

Sayın Numan bey kopyalamayı yapıyor. fakat sayfadan çıkıp örneğin word belgesine yapıştır dediğimde olmuyor.

Excel dosyasını kapatmadan yapıştırı dener misiniz

 

[Hsn55]

O Şekilde oluyor. Bunu excelden çıkınca da yapsa öyle bir makro yapabilir misiniz Numan bey

 

[numan şamil]

maalesef o konuda bilgim yok

 

[Hsn55]

Tşk ederim

 

[Hsn55]

İyi akşamlar 1 Nolu mesajımda belirtmiş olduğum konuya desteğinizi bekliyorum

 

[Korhan Ayhan]

Aşağıdaki yöntemle değer olarak kopyalama işlemi yapabilirsiniz.

Option Explicit

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

 

[Hsn55]

Korhan bey merhabalar;
Yardımınız için çok teşekkür ederim.Şuanki kod D17 hücresini kopyalıyor. Bu koda ilave olarak D18 hücresinide kopyalayabilir mi?
Yalnız iki satır olarak kopyalayacak. Ben herhangi bir yere yapıştırdığım zaman D17 1. satır D18 2.satır olarak görünecek. Kod aşağıda ben sayfa tanımlaması yaptım.

Option Explicit

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

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

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

 

[Hsn55]

Korhan bey son olarak veriyi herhangi bir yere yapıştıracağımız zaman biçimlendirmesini;
Yatay: İki Yana Yasla
Dikey:Üst
Metni Kaydır
şeklinde kopyalanması ve yapıştırılması mümkün mü?

 

[Korhan Ayhan]

Bu teknikle sadece değer kopyalayabilirsiniz.

Biçimlendirme işlemini elle kendiniz yapmanız gerekir.

 

[Hsn55]

Teşekkür ederim Korhan bey;

 

[Hsn55]

Korhan bey merhabalar;
Yapmış olduğunuz kopyalama makrosunda kopyalanan veriyi başka bir yere yapıştırdığımda 2 adet kare şeklinde kutucuk çıkıyor. Birkaç defa kopyala dediğimde veriyi yapıştır yaptığımda kopyaladığım veriyi yapıştırabiliyorum. Çözümü nedir ? .Yardımcı olursanız sevinirim

 

[Korhan Ayhan]

Merhaba,

Paylaştığınız dosyada önerdiğim kodu deniyorum. Makroyu çalıştırıyorum. Sonrasında Word-Excel-Notepad dosyaları açıp yapıştır dediğimde bahsettiğiniz sorunu yaşamadım.