makro atanmış kutucukları istediğimiz gibi arttırabilme

[ebege]

merhabalar ekteki dosyada sayfa 1'de düğme 1 ve düğme 2 var tıkladığımız zaman bilgiler sayfa 2'ye otomatik olarak dağılıyor... şimdi bu düğmeleri aşağıya istediğimiz kadar arttırabilmek için kısa yoldan ne yapmak gerekir yoksa tek tek elle mi gireceğiz istediğimiz kadar artırmak için kısa bir yol var mı? örneğin 200'e kadar diğerleri (düğme 1 ve düğme2 deki gibi) gibi olmasını istiyorum şimdiden teşekkürler.düğmelere tıkladığımızda satırında bulunan bilgiler otomatik olarak sayfa 2'deki belgeye dağılacak.

 

[uzmanamele]

Merhaba

Aynı işi yaptırmak için 200 adet kod ve buton oluşturmaya gerek yok.
Aşağıdaki kodu sayfanın kod bölümüne yazın.
A sütununda çift tıkladığınız satırdaki bilgiler aktarılacaktır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
aa = Target.Row
Sayfa2.Cells(29, "a") = Sayfa1.Cells(aa, "a")
Sayfa2.Cells(29, "b") = Sayfa1.Cells(aa, "c")
Sayfa2.Cells(29, "c") = Sayfa1.Cells(aa, "b")
Sayfa2.Cells(29, "e") = Sayfa1.Cells(aa, "f")
Sayfa2.Cells(29, "f") = Sayfa1.Cells(aa, "g")
Sayfa2.Cells(29, "g") = Sayfa1.Cells(aa, "d")
Sayfa2.Cells(29, "h") = ""
Sayfa2.Cells(29, "ı") = Sayfa1.Cells(aa, "e")
Sayfa2.Cells(29, "j") = Sayfa1.Cells(aa, "h")
Sayfa2.Cells(29, "l") = Sayfa1.Cells(aa, "k")
Sayfa2.Cells(29, "m") = Sayfa1.Cells(aa, "l")
Sayfa2.Cells(29, "n") = Sayfa1.Cells(aa, "m")
End Sub

 

[ebege]

kusura bakmayın acemilik sayfanın kod bölümü? düğme 1'in üzerine gelip makro ata düzenle diyip demi yoksa?

 

[ebege]

sayfa 1'e sağ tıkladım kod görüntüle dedim çıkan sayfada sol tarafda sayfa 1' e çift tıkladım verdiğiniz kodu yapıştırıp kaydettim A sütununa çift tıkladım hiç birşey değişmedi.