Workbooktaki sheetleri listelemek ve hyperlinklemek

[darumla]

İyigünler,

Bir workbookumda 100 ü aşkın sheet var. Bunları bir sheette listelemek ve mümkünse hyperlinkli şekilde listelemek istiyorum. Yani sadece sheetin adı çıkmayacak, adı hyperlinkli şekilde olacak ve o sheete yönlendirecek. Bu mümkün müdür acaba?

 

[irfancantr]

Merhaba,

Bu kod işinizi görecektir sanırım, boş bir modüle kopyalayın ve makroyu çalıştırınız.

Sub ListelemeYap()
Sheets.Add
With Sheets(1)
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
.Hyperlinks.Add Anchor:=Cells(i, 1), _
Address:="", SubAddress:=Sheets(i).Name & "!A1"
Next
End With
End Sub

Bu kod ise ek olarak tüm sayfaların A1 hücresine çalışma kitabın da bulunan ilk sayfanın köprü atamasını yapacaktır.

Sub ListelemeYap1()
Sheets.Add
With Sheets(1)
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
.Hyperlinks.Add Anchor:=Cells(i, 1), _
Address:="", SubAddress:=Sheets(i).Name & "!A1"
Sheets(i).Range("A1") = Sheets(1).Name
Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Range("A1"), _
Address:="", SubAddress:=Sheets(1).Name & "!A1"
Next
End With
End Sub

 

[darumla]

Teşekkürler. Verdiğiniz kod sorunumu çözdü.