Düğme kopyalama

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,580
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Merhaba Arkadaşlar,
Uğraştığım çalışmada sayfalarda 4 tane düğme var. Sayfa kopyalanırken bu düğmelerin de kopyalanması için ne yapmalıyım?
(not: bu kopyalama işlemini excele yaptırmayı denedim
Kod:
Sub Dugmeleri_Kopyala()
    Sheets("A").Select
    ActiveSheet.Shapes.Range(Array("Button 2", "Button 3", "Button 4", _
        "Button 5")).Select
    Selection.Copy
    Sheets("TxtAl").Select
    Sheets([AI1].Text).Select
    ActiveSheet.Buttons.Add(1037.25, 33, 159.75, 36).Select
    ActiveSheet.Buttons.Add(1037.25, 99, 159.75, 33.75).Select
    ActiveSheet.Buttons.Add(1037.25, 162, 159.75, 33.75).Select
    ActiveSheet.Buttons.Add(1037.25, 225, 159.75, 33.75).Select
    ActiveSheet.Paste
    Range("DU5").Select
End Sub
böyle bir kod çıktı. Bu sefer de mevcut 4 düğmeyi kopyalarken ayrıca 4 düğme de kendi ekliyor. Bu konuda düşüncelerinizi paylaşırsanız sevinirim.
Saygılarımla
 
Son düzenleme:

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Merhaba.

Aşağıdaki kodu kullanabilirsiniz.

Kod:
Sub Dugmeleri_Kopyala()
    Worksheets("A").Shapes.Range(Array("Button 2", "Button 3", "Button 4", "Button 5")).Select
    Selection.Copy
    Worksheets("TxtAl").Paste
End Sub
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Eğer sayfadaki bütün düğme gibi nesnelerin hepsini kopyalayacaksanız

Aşağıdaki kodu kullanabilirsiniz.
Hem böylelikle her nesnenin adını tek tek yazmak zorunda kalmazsınız.


Kod:
Sub Dugmeleri_Kopyala()
    Worksheets("A").Shapes.SelectAll
    Selection.Copy
    Worksheets("TxtAl").Paste
End Sub
 

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,580
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Sayın Dalgalıkur,
İlginize çok teşekkür ederim. Deneyip size bilgi vereceğim.
Saygılarımla
 

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,580
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Merhaba Sayın Dalgalıkur,
Her ikisi de, düğmeleri seçiyor, paste satırına geldiğinde yapıştıramıyor. (yapıştırdım zannediyor)
Saygılarımla
 

Ekli dosyalar

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Şimdi tekrar denedim aşağıdaki kod A sayfasındaki bütün butonları B sayfasına kopyalıyor.

Kodu o kadar uzatmaya gerek yok aşağıdaki şekilde gayet normal çalışıyor.

Kod:
Private Sub CommandButton1_Click()
    Worksheets("A").Shapes.SelectAll
    Selection.Copy
    Sheets("B").Paste
End Sub
 

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,580
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Merhaba Sayın Dalgalıkur,
Örnek içinde mi denediniz? Ben şimdi yine denedim. Yapamadı. Ben nerede hata yaptım acaba?
Saygılarımla
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Rica ederim iyi çalışmalar.
 
Üst