Tablo Adlarını Listeleme
Tablo Adlarını Listeleme isimli içerikte, çalışma kitabınızda yer alan tablo ya da tabloların isimlerinin bir MsgBox'ta listelenmesini sağlayacak hazır makro kodları yer almaktadır.Excel Tablolarını Listeleme
Kod:
Sub SayfadakiTablolarıListeleme()
Dim Sayfa As Worksheet
Dim Tablo As ListObject
Dim TabloAdları As String
For Each Sayfa In ThisWorkbook.Worksheets
For Each Tablo In Sayfa.ListObjects
TabloAdları = TabloAdları & Tablo.Name & vbNewLine
Next Tablo
Next Sayfa
MsgBox TabloAdları, vbInformation, "Tablo Adları"
End SubUygulama Adımları
[*]Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
[*]Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
[*]Araç çubuklarından Insert -> Module yazısına tıklayın.
[*]Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
[*]Üstteki kodu yapıştırın.
Açıklama
Bir Excel çalışma kitabında yer alan sayfalarda, Tablo olarak hazırlanmış veriler bulunabilir. Normak veri aralıklarına göre çok daha avantajlı olan Tabloların her biri için ayrı ayrı isimler verilmektedir. Aksi değiştirilmekdikçe bu isimler, "Tablo1", "Tablo2".. şeklinde sistem tarafından otomatik olarak adlandırılır. Tabloların isimlerine, tablonun bir hücresi seçiliyken, Şerit Menü -> Tablo Tasarımı kısmından erişebilirsiniz.Üstteki hazır kodlarımızın işlevi ise, bir çalışma kitabında yer alan tablo ya da tabloların isimlerini nasıl kolayca listeleyebileceğinizi sağlamaktır.
Faydalanmanız temennisiyle.
