Soru Buton İle Veri Kopyalama

Katılım
7 Şubat 2021
Mesajlar
15
Excel Vers. ve Dili
2010, Türkiye
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.
 

numan şamil

Destek Ekibi
Destek Ekibi
Katılım
27 Ocak 2011
Mesajlar
1,201
Excel Vers. ve Dili
Ofis 2013 Türkçe
64 bit
Merhaba
Range("D17").Copy
MsgBox Range("D17").Value, vbInformation
Şeklinde denermisiniz
 
Katılım
7 Şubat 2021
Mesajlar
15
Excel Vers. ve Dili
2010, Türkiye
Sayın Numan bey kopyalamayı yapıyor. fakat sayfadan çıkıp örneğin word belgesine yapıştır dediğimde olmuyor.
 
Katılım
7 Şubat 2021
Mesajlar
15
Excel Vers. ve Dili
2010, Türkiye
O Şekilde oluyor. Bunu excelden çıkınca da yapsa öyle bir makro yapabilir misiniz Numan bey
 
Katılım
7 Şubat 2021
Mesajlar
15
Excel Vers. ve Dili
2010, Türkiye
İyi akşamlar 1 Nolu mesajımda belirtmiş olduğum konuya desteğinizi bekliyorum
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
30,909
Excel Vers. ve Dili
OFFICE 2019 PRO TR
Aşağıdaki yöntemle değer olarak kopyalama işlemi yapabilirsiniz.

C++:
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
 
Katılım
7 Şubat 2021
Mesajlar
15
Excel Vers. ve Dili
2010, Türkiye
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.

Kod:
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

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
30,909
Excel Vers. ve Dili
OFFICE 2019 PRO TR
Deneyiniz.

C++:
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
 
Katılım
7 Şubat 2021
Mesajlar
15
Excel Vers. ve Dili
2010, Türkiye
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

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
30,909
Excel Vers. ve Dili
OFFICE 2019 PRO TR
Bu teknikle sadece değer kopyalayabilirsiniz.

Biçimlendirme işlemini elle kendiniz yapmanız gerekir.
 
Katılım
7 Şubat 2021
Mesajlar
15
Excel Vers. ve Dili
2010, Türkiye
Teşekkür ederim Korhan bey;
 
Üst