Soru Buton İle Veri Kopyalama

Katılım
7 Şubat 2021
Mesajlar
434
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,229
Excel Vers. ve Dili
Ofis 2013 Türkçe
Merhaba
Range("D17").Copy
MsgBox Range("D17").Value, vbInformation
Şeklinde denermisiniz
 
Katılım
7 Şubat 2021
Mesajlar
434
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
434
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
434
Excel Vers. ve Dili
2010, Türkiye
İyi akşamlar 1 Nolu mesajımda belirtmiş olduğum konuya desteğinizi bekliyorum
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,327
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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
434
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,327
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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
434
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,327
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Bu teknikle sadece değer kopyalayabilirsiniz.

Biçimlendirme işlemini elle kendiniz yapmanız gerekir.
 
Katılım
7 Şubat 2021
Mesajlar
434
Excel Vers. ve Dili
2010, Türkiye
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,327
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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.
 
Üst