Soru Kopyala ve Yapıştır Butonu

[ekremmk]

İyi günler. Bir buton vasıtasıyla daha önceden belirlediğimiz hücreleri kopyalayıp farklı bir butonla da yine belirlenen yerlere yapıştırabilir miyiz?
Örneğin
Sayfa1!A1:O24, Sayfa1!B30:B50, Sayfa2!C20:250 hücrelerini kopyala tuşu ve aynı yerlere yapıştırma tuşu yapmam lazım. Nasıl yapabilirim aceba?

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki şekilde yapabilirsiniz.

Sub test()
    Dim Kopyala As Range
    Dim Yapistir As Range
    Set Kopyala = Worksheets("Sayfa1").Range("A1:B4")
    Set Yapistir = Worksheets("Sayfa2").Range("B3") 'Burada yapıştırmak istediğimiz alanın ilk hücresini belirtmemiz yeterli.
    Kopyala.Copy Yapistir
End Sub

 

[ekremmk]

Merhaba.
Aşağıdaki şekilde yapabilirsiniz.

Sub test()
    Dim Kopyala As Range
    Dim Yapistir As Range
    Set Kopyala = Worksheets("Sayfa1").Range("A1:B4")
    Set Yapistir = Worksheets("Sayfa2").Range("B3") 'Burada yapıştırmak istediğimiz alanın ilk hücresini belirtmemiz yeterli.
    Kopyala.Copy Yapistir
End Sub

İlgin için teşekkür ederim sayın hocam.
Ama sanırım beceremedim Userformlarımdaki bilgileri bozuyor kullanmaya çalıştığımda.
Sadece buton olarak denedim o da olmadı.
Örnek dosyayı buraya ekledim.

 

[Muzaffer Ali]

Dosyanızdaki bütün kodları silin. Sayfa1 in kod kısmına aşağıdaki kodları kopyalayın.

Private Sub CommandButton1_Click()
    Dim Kopyala As Range
    Dim Yapistir As Range
    Set Kopyala = Worksheets("Sayfa1").Range("A1:F10")
    Set Yapistir = Worksheets("Sayfa2").Range("A1") 'Burada yapıştırmak istediğimiz alanın ilk hücresini belirtmemiz yeterli.
    Kopyala.Copy Yapistir
End Sub

Sayfa1 deki "Kopyala" düğmesine bastığınızda kodlar çalışacak ve hem kopyalama ve hem de yapıştırma işlemi gerçekleştirilmiş olacak.
Sayfa2 deki "Yapıştır" düğmesine ihtiyaç yok onu silebilirsiniz.

 

[ekremmk]

hocam farklı excellere kopyala yapıştır yapacağım için hem kopyala hem de yapıştır butonları daha işlevsel benim için.
Sizin verdiğiniz kodu

Private Sub CommandButton1_Click()
Dim Kopyala As Range
Set Kopyala = Worksheets("Sayfa1").Range("A1:F10")
Kopyala.Copy
End Sub

bu hale getirerek kopyala butonunu yaptım ama yapıştır butonunu yapamadım.
Ayrıca kopyalama yaparken bir sayfadan A1:F10 ve G20:H20 gibi iki veya daha fazla aralık yerler kopyalamam gerekecek. Denedim bazı şeyler ama olmadı.

 

[Muzaffer Ali]

Excelde zaten böyle bir şey var. Yeniden yapmaya ne gerek var ki?
Yapıştıracağın hücreyi seç sağ tıklat yapıştı ı seç.

 

[ekremmk]

Excelde zaten böyle bir şey var. Yeniden yapmaya ne gerek var ki?
Yapıştıracağın hücreyi seç sağ tıklat yapıştı ı seç.

Hocam farklı excel programlarında aynı olan bölümler var. Ortak olan yerleri tekrar tekrar yazmayı engellemek için birinde kopyalaya basıp diğer exceli açınca yapıştır tuşuna basarak halletmek istiyorum. Bütün çalışmayı anasayfada yaptığım için gizli olan bir sayfadan kopyalama yapacak. Diğer türlü gizli sayfayı aç kopyala yapıştır kapat olarak baya uzatacak yapılacak işi. Ve yaptığım işin biraz profesyonel görünmesini istiyorum o yüzden tek bir sayfada tuşlarla işleri halletmek istiyorum açıkcası. Malesef istediğim şeyler çok ama excel bilgim sadece kodlarla oynayarak bişeyler yapabilecek düzeyde. Sıfırdan kod yazamıyorum henüz

 

[Muzaffer Ali]

Aşağıdaki kodlar ile kopyaladığınız veriyi yapıştırabilirsiniz.

Private Sub CommandButton1_Click()
    Dim Yapistir As Range
    Set Yapistir = Worksheets("Sayfa2").Range("c11") 'Burada yapıştırmak istediğimiz alanın ilk hücresini belirtmemiz yeterli.
    Paste Yapistir
End Sub

 

[ekremmk]

Aşağıdaki kodlar ile kopyaladığınız veriyi yapıştırabilirsiniz.

Private Sub CommandButton1_Click()
    Dim Yapistir As Range
    Set Yapistir = Worksheets("Sayfa2").Range("c11") 'Burada yapıştırmak istediğimiz alanın ilk hücresini belirtmemiz yeterli.
    Paste Yapistir
End Sub

Teşekkür ederim hocam.