Excel'de tüm aralık adlarını program aracılığıyla kopyalama

Özet

Microsoft Office Excel'de, etkin çalışma kitabındaki tüm aralık adlarını başka bir çalışma kitabına kopyalamak için kullanabileceğiniz bir Microsoft Visual Basic for Applications (VBA) makro oluşturabilirsiniz.

Daha fazla bilgi

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna zımni garantiler, satılabilirlik veya belirli bir amaca uygunluk da dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri belirli bir yordamın işlevselliğini açıklamaya yardımcı olabilir. Ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmeyeceklerdir.

Etkin çalışma kitabındaki tüm aralık adlarını başka bir çalışma kitabına kopyalamak üzere makro oluşturmak ve kullanmak için aşağıdaki örnekteki adımları kullanın:

1. Excel'i başlatın ve yeni bir çalışma kitabında A1 hücreyi seç'e tıklayın.

2. Aşağıdaki eylemlerden birini gerçekleştirin:

   • Microsoft Office Excel 2007'de Formüller sekmesine ve ardından Tanımlı Adlar grubunda Ad Tanımla'ya tıklayın.
   • Microsoft Excel'in ve önceki sürümlerindeki Microsoft Office Excel 2003'te, Ekle menüsünde Ad'ın üzerine gelin ve Tanımla'ya tıklayın.

3. Ad Tanımla iletişim kutusundaki Çalışma kitabındaki Adlar kutusuna Aralık1 yazın ve Tamam'a tıklayın.

4. B1 hücresine tıklayın.

5. Aşağıdaki eylemlerden birini gerçekleştirin:

   • Excel 2007'de Formüller sekmesine tıklayın ve ardından Tanımlı Adlar grubunda Ad Tanımla'ya tıklayın.
   • Excel 2003'te ve Excel'in önceki sürümlerinde Ekle menüsündeAd'ın üzerine gelin ve Tanımla'ya tıklayın.

6. Ad Tanımla iletişim kutusundaki Çalışma Kitabındaki Adlar kutusuna Aralık2 yazın ve Tamam'a tıklayın.

7. Visual Basic düzenleyicisini başlatmak için ALT+F11 tuşlarına basın.

8. Ekle menüsünden Modül'e tıklayın.

9. Modül sayfasında aşağıdaki kodu yazın:

   Sub Copy_All_Defined_Names()
      ' Loop through all of the defined names in the active
      ' workbook.
        For Each x In ActiveWorkbook.Names
         ' Add each defined name from the active workbook to
         ' the target workbook ("Book2.xls" or "Book2.xlsm").
         ' "x.value" refers to the cell references the
         ' defined name points to.
         Workbooks("Book2.xls").Names.Add Name:=x.Name, _
            RefersTo:=x.Value
      Next x
   End Sub
   

10. Excel'e dönmek için ALT+F11 tuşlarına basın.

11. Aşağıdaki eylemlerden birini gerçekleştirin:

    • Excel 2007'de , Microsoft Office Düğmesi'ne tıklayın, Farklı Kaydet'in üzerine gelin, Çalışma Kitabı Macro-Enabled Excel'e tıklayın ve çalışma kitabını Book1.xlsm olarak kaydedin.
    • Excel 2003'te ve Excel'in önceki sürümlerinde, Dosya menüsünde Kaydet'e tıklayın ve çalışma kitabını Book1.xls olarak kaydedin.

12. Aşağıdaki eylemlerden birini gerçekleştirin:

    • Excel 2007'de , Microsoft Office Düğmesi'ne tıklayın, Yeni'ye tıklayın, Boş Çalışma Kitabı'na ve ardından Oluştur'a tıklayın.
    • Excel 2003'te, Dosya menüsünde Yeni'ye tıklayın ve ardından Yeni Çalışma Kitabı görev bölmesinde Boş çalışma kitabı'na tıklayın.
    • Excel 2002'de ve Excel'in önceki sürümlerinde, Dosya menüsünde Yeni'ye tıklayın, Çalışma Kitabı'na ve ardından Tamam'a tıklayın.

13. Aşağıdaki eylemlerden birini gerçekleştirin:

    • Excel 2007'de , Microsoft Office Düğmesi'ne tıklayın, Farklı Kaydet'in üzerine gelin, Çalışma Kitabı Macro-Enabled Excel'e tıklayın ve çalışma kitabını Book2.xlsm olarak kaydedin.
    • Excel 2003'te ve Excel'in önceki sürümlerinde, Dosya menüsünde Farklı Kaydet'e tıklayın ve çalışma kitabını Book2.xls olarak kaydedin.

14. Kitap1'e geçin.

    Not

    Book1 düğmesini görmek için Book2'yi simge durumuna küçültmeniz veya geri yüklemeniz gerekebilir.

15. Aşağıdaki eylemlerden birini gerçekleştirin:

    • Excel 2007'de Geliştirici sekmesine ve ardından Makrolar'a tıklayın.

      Not

      Geliştirici sekmesi görüntülenmiyorsa, Microsoft Office Düğmesi'ne tıklayın, Excel Seçenekleri'ne tıklayın, Popüler'e tıklayın, Şeritte Geliştirici sekmesini göster onay kutusunu seçmek için tıklayın ve ardından Tamam'a tıklayın.

    • Excel 2003'te ve Excel'in önceki sürümlerinde, Araçlar menüsünde Makro'nun üzerine gelin ve Makrolar'a tıklayın.

16. Makro adı listesinde Copy_All_Defined_Names'e ve ardından Çalıştır'a tıklayın.

17. Kitap2'ye geçin ve A1 hücresinin Aralık1 olarak adlandırıldığını ve B1 hücresinin Aralık2 olarak adlandırıldığını unutmayın.