SAYFA SEKME ADLARI

[met07]

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.

 

[Levent Menteşoğlu]

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]

 

[Levent Menteşoğlu]

Kod aşağıdaki gibide olabilir.

[vb:1:017a75284a]Sub sayfaadlari()
For a = 1 To Worksheets.Count
Range("A" & a) = Sheets(a).Name
Next a
End Sub[/vb:1:017a75284a]

 

[Haluk]

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]

 

[met07]

İLGİNİZDEN DOLAYI HEPİNİZE TEÞEKKÜRLER. ELİNİZE SAÐLIK ÇOK GÜZEL OLMUÞ...