köprü yardımı

[vivaayew_ts]

Merhabalar;
Ekteki dosyamda ana sayfamda buton yardımı ile a sütununa, excel dosyamdaki tüm sekmelerin isimlerini yazdırıyorum. (kullandığımız klasörde 5 adet dosya ve her birinde 200 üstü sekme sayısı mevcut) Bu sekmelerden gerekli hücrelerden bilgileri çekiyorum. Gerektiği taktirde bu sekmelerden birine hemen ulaşmam gerekiyor.
Bu yüzden acaba a sütununa,yani sekme isimlerini yazdırdığım hücrelere aynı isimde olan o sekmeye gitmek için köprü oluşturmanın kısa bir yolu var mıdır?

 

[Huseyinkis]

Merhabalar;
Ekteki dosyamda ana sayfamda buton yardımı ile a sütununa, excel dosyamdaki tüm sekmelerin isimlerini yazdırıyorum. (kullandığımız klasörde 5 adet dosya ve her birinde 200 üstü sekme sayısı mevcut) Bu sekmelerden gerekli hücrelerden bilgileri çekiyorum. Gerektiği taktirde bu sekmelerden birine hemen ulaşmam gerekiyor.
Bu yüzden acaba a sütununa,yani sekme isimlerini yazdırdığım hücrelere aynı isimde olan o sekmeye gitmek için köprü oluşturmanın kısa bir yolu var mıdır?

kodları aşağıdaki kod ile değiştirip denermisiniz.

Sub sayfalar()
Dim Rng As Range
Dim i As Long
Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("A2").Select
Set Alan = Range("A2")
For Each Sheet In ActiveWorkbook.Sheets
Alan.Offset(i, 0).Value = Sheet.Name
Alan.Offset(i, 0).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        Sheet.Name & "!A1", TextToDisplay:=Sheet.Name

i = i + 1
Next Sheet
End Sub

 

[vivaayew_ts]

Teşekkür ederim sayın Huseyinkis
Tam istediğim gibi olmuş..

 

[vivaayew_ts]

Sayın Huseyinkis
Dosyamda bir hata ile karşılaştım : Eğer sekme isminde boşluk varsa mesela sekme ismi "sayfa1" değilde "sayfa 1" olursa köprü hata veriyor. Bunu düzeltebilmemiz mümkünmü acaba?

 

[vivaayew_ts]

İlgilenebilecek olan var mı arkadaşlar?

 

[vivaayew_ts]

İlgilenebilecek olan var mı arkadaşlar?

 

[vivaayew_ts]

İlgilenebilecek olan var mı arkadaşlar?

 

[vivaayew_ts]

İlgilenebilecek olan var mı arkadaşlar?

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub SayfaKopru()
 
    Dim i As Integer
 
    Application.ScreenUpdating = False
    Sheets("SERİ NO").Select
    Range("A2:A" & Rows.Count).ClearContents
    
    sat = 3: Range("A2") = "Sayfalar"
    For i = 1 To Worksheets.Count
        With Sheets(i)
            If .Name <> ActiveSheet.Name Then
                Cells(sat, "A") = .Name
                ActiveSheet.Hyperlinks.Add Cells(sat, "A"), "", "'" & .Name & "'!A1"
                sat = sat + 1
            End If
        End With
    Next i
 
    Application.ScreenUpdating = True
    
End Sub

.