Aktif Sayfayı Kopyalama

[Seyit Tiken]

Merhaba,
İçinde bulunulan sayfayı (sayfayı olduğu gibi) aynı çalışma kitabının sağına kopyalanabilir mi? Butonla. Yani bir çalışma kitabında hangi sayfa açıksa butona basıldığında, sayfayı olduğu gibi (birebir) sağ tarafa kopyalasın. İkinci bir soru da : Açık sayfayı butonla silmek. Direkt silsin. "EVET-HAYIR" sormasın.
Teşekkür ediyorum.

 

[danersin]

İlk sorunuz için
[vb:1:e35a9ed19f]Sub Makro1()
ActiveSheet.Copy after:=Worksheets(Worksheets.Count)
End Sub[/vb:1:e35a9ed19f]


ikinci sorunuz için
[vb:1:e35a9ed19f]Sub Makro2()
Application.DisplayAlerts = False
Worksheets("SilinecekDosyanizinİsmi").Delete
Application.DisplayAlerts = True
End Sub[/vb:1:e35a9ed19f]

Ayrıca worksheet nesnesinin kullanımı ile ilgili açıklama ve örnek dersane bölümünde bulabilirsiniz.
http://www.excel.web.tr/viewtopic.php?t=3866

 

[abazya]

Merhaba

Bunun gibi birşeylermi 1 sayfada sağa gönder butonu 2 sayfada Sil butonu olarak yapmaya çalıştım

Biliyorum senin kitaplarına uymıyacak öylesine ezbere yaptım onunda kolayı kodlardaki hücreleri değiştirerek kendine uyarlaya bilirsin

Aslında verilen linki okumak onları uygulamak en iyisi