tablo isimlerini sayfa isimlerine vermek

[CONANFORCE]

Merhaba; elimde 160 sayfadan oluşan bir kitap var ve her bir sayfada bir tablo var bu tablo isimlerini sayfalara maro ile nasıl veribilirm.
ve en başta boş bir sayfa açıp bu sayfaların isimlerini alt alta verip köprü kurabilirim.

 

[hamitcan]

Sayfa isimleri hangi hücrede yer alıyor ?

 

[CONANFORCE]

Sayfa isimleri hangi hücrede yer alıyor ?

şöyle izahedeyim. şuan sql den bir progrma ait veri tablolarını excele çektim. Yaklaşık 160 adet sayfa ve bu sayfalarda birer adet tablolar yer almakta.
Ben bu tablo isimlerini, sayfalarada vermek istiyorum hepsini tek tek sağ tıklayıp sayfa ismini değiştir demektense bir makro ile bu tabloların isimlerini sayfalara vermek istiyorum. Bu birinci

bunun haricinde ise kitabın içerisinde bulunan sayfaların isimlerini yeni bir sayfaya A2 sutunundan aşağı doğru otomatik getirtip, herbir ismin köprüsünü de sayfasına vermek istiyorum.
Yani içindekiler kısmı gibi (kitabın içindeki sayfaların isimelrini yazıp köprülerini kuracak.)

 

[hamitcan]

Sub ListSheets()
 
Dim ws As Worksheet
Dim x As Integer
 
x = 1
Sheets.Add: ActiveSheet.Name = "AnaSayfa"
Sheets("AnaSayfa").Range("A:A").Clear
 
For Each ws In Worksheets
 
   Sheets("AnaSayfa").Cells(x, 1).Select
   ActiveSheet.Hyperlinks.Add _
   Anchor:=Selection, Address:="", SubAddress:= _
   ws.Name & "!A1", TextToDisplay:=ws.Name
   x = x + 1
 
Next ws
 
End Sub

 

[CONANFORCE]

Sub ListSheets()

Dim ws As Worksheet
Dim x As Integer

x = 1
Sheets.Add: ActiveSheet.Name = "AnaSayfa"
Sheets("AnaSayfa").Range("A:A").Clear

For Each ws In Worksheets

   Sheets("AnaSayfa").Cells(x, 1).Select
   ActiveSheet.Hyperlinks.Add _
   Anchor:=Selection, Address:="", SubAddress:= _
   ws.Name & "!A1", TextToDisplay:=ws.Name
   x = x + 1

Next ws

End Sub

Tüm sayfaların isimlerini Anasayfa diye bir sayfa oluşturup buraya attı ve köprüleri verdi burası 2. isteğim di çok güzel elinize sağlık.
Fakat ilk isteğim sayfalarda bulunan tablo isimlerini sayfa ismi olarak vermedi.?

 

[hamitcan]

Tablo isimleri hangi hücrede ? Daha önce sormuştum... Kaçırdığım bir yer mi var ?

 

[CONANFORCE]

Tablo isimleri hangi hücrede ? Daha önce sormuştum... Kaçırdığım bir yer mi var ?

Ben net anlatamamış olabilirm. Örnek dosyayı ekliyorum ilginiz için teşekkür ederim.
Tablo isimlerini excel nerede tutuyor onu hiç bilmiyorum. Tablolar verileri çekince otomatik oluşuyor. Tabloya tıklayınca tablo ismi üst bölümde çıkıyor. Sayfada her hangi bir hücre içinde değil tablo ismi (ad tanımlaması gibi özetle)

 

[Merhum İdris SERDAR]

.

Deneyin.

Sub Tablo_Sayfa_Ad()

    Dim syf As Worksheet
    Dim Tbl As ListObject
   
    For Each syf In Worksheets
        For Each Tbl In syf.ListObjects
           syf.Name = Tbl.Name
            Exit For
        Next Tbl
    Next syf
   
End Sub

.

 

[CONANFORCE]

Teşekkür ederim yardımlarınız için, hamitcan ve İdris SERDAR beyin kodlarını birleştirerek çözdüm. Emeğinize sağlık.