Düğme kopyalama

[Tevfik_Kursun]

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

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

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu kullanabilirsiniz.

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]

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.

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

 

[Tevfik_Kursun]

Sayın Dalgalıkur,
İlginize çok teşekkür ederim. Deneyip size bilgi vereceğim.
Saygılarımla

 

[Tevfik_Kursun]

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

 

[Muzaffer Ali]

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

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

 

[Tevfik_Kursun]

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]

Dosyanız ekte.

 

[Tevfik_Kursun]

Sayın Dalgalıkur,
İlginize çok teşekkür ederim.
Saygılarımla

 

[Muzaffer Ali]

Rica ederim iyi çalışmalar.