sekme indekslemede hücredeki isimi vermek

[euphrates55]

Sub SayfaIndex()
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  If WorksheetExists("SayfaIndex") Then Sheets("SayfaIndex").Delete
  Set NewSh = Sheets.Add(Before:=Sheets(1))
  NewSh.Name = "SayfaIndex"

  Cells.ClearContents
  kolon = 1
  satir = 2
  Cells(1, 1).Select
  ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="SayfaIndex!A1", TextToDisplay:="SayfaIndex"
 
  For i = 2 To Sheets.Count
    Cells(satir, kolon).Value = Sheets(i).Name
    Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Cells(1, 1), Address:="", SubAddress:="SayfaIndex!A1", TextToDisplay:="SayfaIndex"
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(satir, kolon), Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name
    satir = satir + 1
    If satir = 26 Then
       kolon = kolon + 1
       satir = 2
    End If
  Next i
 
  Cells.Select
  Cells.EntireColumn.AutoFit
  Range("E1").Select
 
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True
End Sub

Public Function WorksheetExists(ByVal WorksheetName As String) As Boolean
   On Error Resume Next
   WorksheetExists = (Sheets(WorksheetName).Name <> "")
   On Error GoTo 0
End Function

bu kodda tüm sekmelerin isimlerini bir sekmede listeleyerek ve köprüleyerek oluşturuyor. çok sayıdaki sekmelerle boğuşurken kullanışlı olabiliyor. peki ben bu listeyi her sekmedeki v3 hücresinin ismi ile listelemek istesem nereyi değişmeliyim.

 

[Ömer BARAN]

Merhaba.
Aşağıdaki değişikliği yaparak deneyiniz.

...............
  For i = 2 To Sheets.Count
    Cells(satir, kolon).Value = Sheets(i).[V3].Value
...............

 

[euphrates55]

Merhaba.
Aşağıdaki değişikliği yaparak deneyiniz.

...............
  For i = 2 To Sheets.Count
    Cells(satir, kolon).Value = Sheets(i).[V3].Value
...............

teşekkürler... ama olmadı ömer bey.

 

[Ömer BARAN]

Tekrar merhaba.
Aşağıdaki gibi sorunsuz görünüyor.

.............
For i = 2 To Sheets.Count
    Cells(satir, kolon).Value = Sheets(i).[v3].Value
    Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Cells(1, 1), Address:="", SubAddress:="SayfaIndex!A1", TextToDisplay:="SayfaIndex"
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(satir, kolon), Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).[v3].Value
.............

 

[euphrates55]

teşekkürler.