Arkadaşlar çalışma kitabımdaki sayfayarın isimlerini bir giriş sayfasına nasıl atabilirim. Sayfaya kolay ulaşmak amacıyla köprü yapacağım. Yardımlarınazı bekliyorum uyu çalışmalar.
Aşağıdaki kod ile sayfa isimlerini A1 den başlamak üzere aşağıya doğru sıralatabilirsiniz.
[vb:1:d2588fd652]Sub sayfaadlari()
b = 0
For a = 1 To Worksheets.Count
b = b + 1
Cells(b, 1) = Sheets(a).Name
Next a
End Sub[/vb:1:d2588fd652]
kodu aşağıdaki gibi kısaltabiliriz.
[vb:1:d2588fd652]Sub sayfaadlari()
For a = 1 To Worksheets.Count
Cells(a, 1) = Sheets(a).Name
Next a
End Sub[/vb:1:d2588fd652]
leventm arkadaşım herzamanki gibi yine çabuk .....
Köprü inşaatını da ilave edersek :mrgreen:
Ã?rneğin;
[vb:1:e4fcd63b15]Sub Test()
Set IndexSh = Worksheets.Add(Before:=Sheets(1))
IndexSh.Name = "Index"
For j = 2 To Sheets.Count
IndexSh.Cells(j, 1) = Sheets(j).Name
Next j
IndexSh.Cells(1, 1) = "Sayfalar..."
For i = 2 To IndexSh.Cells(65536, 1).End(xlUp).Row
ActiveSheet.Hyperlinks.Add Anchor:=IndexSh.Cells(i, 1), _
Address:="", SubAddress:="'" & IndexSh.Cells(i, 1).Text & "'!A1", _
TextToDisplay:=IndexSh.Cells(i, 1).Text
Next i
IndexSh.Activate
IndexSh.Columns("A:A").AutoFit
End Sub
[/vb:1:e4fcd63b15]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.