ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[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.

[Hsn55]

Konuya yardımcı olursanız sevinirim.

[okutkan]

Yüklediğim dosyada ctrl+m ile koplayalama kısayolu ekledim. Bu kısayol ile koplayadığınız hücrenin içeriğini istediğiniz yere ctrl v ile yapıştırabilirsiniz. Kendi dosyanıza uyarlamak için aşağıdaki adımları yapın:
Dosyanızdaki geliştirme sekmesindeki makro kaydet butonuna tıklayın
Çıkan ekranda kısayol kutusuna istediğiniz bir harfi atayın. Bu ctrl c de olabilir.
Daha sonra aşağıdaki dosyada bulunan kodu, kaydettiğiniz makronun içine kaydedin.

[okutkan]

Sadece kod:

Kod: Tümünü seç

Sub kopyalama()

Set mydata = New DataObject
If ActiveCell <> Empty Then
mydata.SetText ActiveCell.Text
mydata.PutInClipboard
MsgBox ActiveCell.Value & " içeriği kopyalandı"
End If

End Sub

[Hsn55]

Sayın Okutkan bey teşekkür ederim. Bunu sadece belirli sayfadaki hücreye nasıl uygularız. Sayfa adı Sheets("GİRİŞ").Range("d17")

[okutkan]

Tek bir hücre için uygulamanın faydası nedir?
Aşağıdakini dener misiniz. Hangi hücrenin aktif olduğunun bir önemi yok. Makro kısayolunu herhangi bir hüvreceyken tıkladığınızda kopyalama yapacaktır.

Kod: Tümünü seç

Sub kopyalama()

Set mydata = New DataObject
If Sheets("GİRİŞ").Range("d17").Text <> Empty Then
mydata.SetText Sheets("GİRİŞ").Range("d17").Text
mydata.PutInClipboard
MsgBox ActiveCell.Value & " içeriği kopyalandı"
End If

End Sub

[Hsn55]

Tek hücreye uygulanmasını istememin sebebi istediğim hücredeki verinin kopyalanıp, internet sayfasındaki yazışma programına yapıştırmak sayın Okutkan

[okutkan]

Denememiştim, Kod çalıştı mı ?

[Hsn55]

Sayın Okutkan hücreyi seçersem kopyalıyor. Hücreyi seçmeden kopyalamıyor. Hücreyi seçmeden kopyalaması gerekiyor. Ben başka sayfada işlem yaptığım zaman butona bastığımda belirtmiş olduğum sayfa ve hücredeki veriyi kopyalaması gerekiyor.

[okutkan]

Kodu denedim, hangi hücrenin seçili olmasının bi etkisi olmadı ve d17 hücresini kopyaladı. Son paylaştığım kodu bir kısayol eklenmiş makro ile çalıştırın.

[okutkan]

Makro kaydet yaparken "çalışma kitabı" nı seçin ve ctrl+C harici bir kısayol ekleyip deneyin.

[Hsn55]

Sayın Okutkan bende olmuyor. Mause ile hangi hücreyi seçersem o hücrenin içerisin deki veriyi kopyalıyor.

[okutkan]

Kullandığınız kodu buraya yazar mısınız. Birde hangi kısayolu kullanıyor sunuz?

[Hsn55]

Ben sadece sizin kodu seçip bir butona bağladım. Şu dediğinizi nasıl uygulanacağını bilmiyorum.
"Makro kaydet yaparken "çalışma kitabı" nı seçin ve ctrl+C harici bir kısayol ekleyip deneyin"

[okutkan]

Adımları takip edin. En alttaki ekran görüntüsünden başlayın. Görüntülerin altlarında Kaçıncı adım olduğu yazıyor.

[Hsn55]

Sayın Okutkan bey çok teşekkür ederim

[okutkan]

Rica ederim.