Bu dosya, çalışma kitabında o anda açık olan sayfayı yeni bir çalışma kitabına kopyalayan bir VBA makrosu içerir. Sayfanın yedeğini almak veya tek bir sayfayı ayrı bir dosya olarak göndermek için kullanılabilir.
Bu işlev sıradan bir Excel fonksiyonu değil, modüldeki VBA fonksiyonudur; bu nedenle makrolar etkin değilse sonuç üretmez.
Dosyanın içeriği
- Sheet1: F2 hücresinde "Resme Tıklat" yazısı bulunur; makro bu alandaki resme tıklanarak çalıştırılır. F10 hücresinde dosyanın adı görüntülenir.
- Module1: İki prosedür içeren VBA modülüdür.
Kullanılan formüller
F10 hücresindeki formül, aşağıda yer alan özel işlevi çağırarak dosyanın adını getirir:=FileName()
Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.- CopyWorksheetToNewWorkbook: Makronun çalıştırıldığı çalışma kitabındaki aktif sayfayı, yeni oluşturulan boş bir çalışma kitabının ilk sayfasının önüne kopyalar. Kod yalnızca yeni bir kitap açar ve sayfayı kopyalar; dosya silme veya dış bağlantı gibi bir işlem yapmaz.
- FileName: Makronun bulunduğu çalışma kitabının adını döndüren fonksiyondur ve F10 hücresinde kullanılır.
Nasıl kullanılır
- Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
- Kopyalanmasını istediğiniz sayfayı aktif hale getirin.
- Makroyu çalıştırın: Alt+F8 tuşlarıyla CopyWorksheetToNewWorkbook makrosunu seçin veya Sheet1 üzerindeki "Resme Tıklat" resmine tıklayın.
- Açılan yeni çalışma kitabında kopyalanan sayfayı kontrol edin ve dosyayı istediğiniz adla kaydedin.