Makro ile sayfa kopyalamak

[Erdal]

Merhabalar normalde sayfayı, sırasıyla " taşı ve kopyala / sona taşı / kopya oluştur / tamam " butonlarını kullanarak kopyalıyorum. Kopyaladığımda yeni oluşan sayfanın ismi, otomatik olarak önceki sayfanın bir fazlası oluyor. Yani 8 sayfasını kopyaladığımda oluşan yeni sayfanın ismi 9 oluyor.
Yapmak istediğim ise şu;
Oluşturduğum düğmeye tıkladığımda mevcut sayfayı kopyalayacak (Düğme dahil) ve sona taşıyacak. Bu işlemi yaptıktan sonra bu düğme ile işim bitiyor. Bunu makro kaydet yöntemi ile yapabiliyorum ama oluşan yeni sayfadaki düğmeye tıkladığımda bir evvelki sayfayı kopyalıyor. Yani; 8 sayfasını düğme ile kopyaladığımda 9 sayfası oluşuyor. Daha sonra 9 sayfasındaki düğmeye tıkladığımda ise 8(1) sayfası oluşuyor. Benim istediğim ise 10 sayfasının oluşması.
İkinci talebim ise, kopyalamak için kullandığım butonun kullanıldıktan sonra mümkünse bir daha kullanılamaması. Çünkü sayfayı oluşturduktan sonra bir daha sayfa oluşturmak karışıklığa yol açacaktır.
Saygı ve selam ile ...

 

[yanginci34]

Merhaba aşağıdaki kodu denermisiniz.
Sub yeni()

Sheets("8").Select
ActiveSheet.Buttons.Add(99, 3.75, 123.75, 21).Select
Sheets("8").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = ActiveSheet.Range("a1")
End Sub

 

[Erdal]

Merhaba aşağıdaki kodu denermisiniz.
Sub yeni()

Sheets("8").Select
ActiveSheet.Buttons.Add(99, 3.75, 123.75, 21).Select
Sheets("8").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = ActiveSheet.Range("a1")
End Sub

İlginiz için teşekkür ederim Sn. yanginci34
Verdiğiniz kodu bir commandbutton'a bağladım. Kod güzel çalışıyor, fakat sıkıntı şurada; hep ilk sayfayı kopyalıyor. Ben 8 sayfasını kopyaladıktan sonra 8 ile benim işim bitiyor. Butonu yeniden tıkladığımda artık 8'i değil yeni oluşan 9 sayfasını kopyalayacak. Buşekilde devam edecek. Umarım anlatabilmişimdir.
Saygı ve selam ile ...

 

[yanginci34]

Buyrun.
Sub yeni()
ActiveSheet.Buttons.Add(99, 3.75, 123.75, 21).Select
ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = ActiveSheet.Range("a1")
End Sub

 

[Erdal]

Teşekkür ederim Sn. yanginci34
Kod çok güzel çalışıyor fakat cahilliğimi bağışlayın ben bu kodu düğmeye bağlayamadım bunun yerine commandbutton'a bağlayabildim. Ozaman da butona tıkladığımda resimdeki gibi ilave olarak bir buton daha oluşturuyor. acaba bu konuda yardımcı olabilir misiniz? Saygı ve selam ile ...

 

[yanginci34]

Teşekkür ederim Sn. yanginci34
Kod çok güzel çalışıyor fakat cahilliğimi bağışlayın ben bu kodu düğmeye bağlayamadım bunun yerine commandbutton'a bağlayabildim. Ozaman da butona tıkladığımda resimdeki gibi ilave olarak bir buton daha oluşturuyor. acaba bu konuda yardımcı olabilir misiniz? Saygı ve selam ile ...

ActiveSheet.Buttons.Add(99, 3.75, 123.75, 21).Select satırını silip deneyin

GM 8 d cihazımdan Tapatalk kullanılarak gönderildi

 

[Erdal]

ActiveSheet.Buttons.Add(99, 3.75, 123.75, 21).Select satırını silip deneyin

Teşekkür ederim Sn. yanginci34
Hakkınızı helal edin.

 

[yanginci34]

Teşekkür ederim Sn. yanginci34
Hakkınızı helal edin.

Rica ederim helal olsun iyi çalışmalar

GM 8 d cihazımdan Tapatalk kullanılarak gönderildi