Dosya simgesi

Aktif Sayfayı Yeni Çalışma Kitabına Ekleme

Aktif Sayfayı Yeni Çalışma Kitabına Ekleme
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.

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:
Excel formülü
=FileName()
Bu işlev sıradan bir Excel fonksiyonu değil, modüldeki VBA fonksiyonudur; bu nedenle makrolar etkin değilse sonuç üretmez.

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​

  1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
  2. Kopyalanmasını istediğiniz sayfayı aktif hale getirin.
  3. Makroyu çalıştırın: Alt+F8 tuşlarıyla CopyWorksheetToNewWorkbook makrosunu seçin veya Sheet1 üzerindeki "Resme Tıklat" resmine tıklayın.
  4. Açılan yeni çalışma kitabında kopyalanan sayfayı kontrol edin ve dosyayı istediğiniz adla kaydedin.
Kopyalama aktif sayfaya uygulandığından, makro başka bir çalışma kitabına da aktarılarak farklı sayfalarda kullanılabilir.

ExcelDepo tarafından daha fazla dosya

Detaylar
Yazar
ExcelDepo
İndirme
4
Gösterim
396
İlk sürüm
Güncel
SHA-256
41d4b1905d4141f2a8834abfdd0c48f0e5674eb199b3ae3530e73f8903440ca8

Puanlar

5.00 Oylama 1 İnceleme

En son değerlendirmeler

Faylandığım bir dosya oldu, teşekkürler.
Geri
Üst