Makro ile Aktif Çalışma Sayfasını Kopyalama

Dosya ne işe yarar?​

Bu dosya, üzerinde çalışılan aktif sayfayı yeni bir çalışma kitabına kopyalayan bir makro içerir. Sayfanın ayrı bir dosya olarak kaydedilmesi veya başkalarına gönderilmesi gerektiğinde, kopyalama işlemi tek adımda yapılır. Dosya adı: aktif_calisma_sayfasini_kopyalama.xlsm

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: B3:F9 aralığında örnek bir tablo bulunur. Formül, doğrulama, grafik veya özet tablo yoktur; kopyalama işleminin sonucu bu sayfa üzerinde denenebilir.
• Module1: Kopyalama makrosunu içeren VBA modülüdür.

Makrolar​

• AktifÇalışmaSayfasınıYeniÇalışmaKitabınaKopyalama: Önce Workbooks.Add ile boş bir çalışma kitabı açar, ardından ThisWorkbook.ActiveSheet.Copy komutuyla aktif sayfayı bu yeni kitabın ilk sayfasının önüne kopyalar. Kodda dosya silme veya dışarıya bağlantı gibi zararlı bir işlem yoktur.

Yeni kitap açıldığında içinde Excel'in varsayılan boş sayfaları da bulunur; kopyalanan sayfa bunların başına eklenir. Kopya yeni kitapta kalır, kaydetme işlemi kullanıcıya bırakılır.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Kopyalamak istediğiniz sayfayı aktif hale getirin.
3. Alt+F8 tuşlarıyla makro listesini açın, makroyu seçip Çalıştır düğmesine basın.
4. Yeni çalışma kitabı açılır ve sayfa bu kitapta yer alır; dilediğiniz adla kaydedin.

Makro, kendi dosyalarınızda kullanmak için VBA düzenleyicisinden (Alt+F11) kopyalanıp başka bir modüle eklenebilir. Bu durumda ThisWorkbook ifadesi, makronun bulunduğu kitabı gösterir.