Çalışma kitabı içindeki sayfaların köprülerini oluşturma

[solomonnsams]

Merhaba,

Bir çalışma kitabı içinde 50 tane sayfa var. Herhangi bi sayfaya girip a sütununa bu 50 sayfanın ismini alt alta yazdım. b sütununda firma isimlerinin karşısına otomatik olarak o sayfalara gidecek linkler oluşturabilir miyim acaba?

Yardımlarınız için şimdiden çok teşekkürler.

 

[DoğanD]

Aşağıdaki gibi deneyebilirsiniz.

=KÖPRÜ(HÜCRE("adres";DOLAYLI(A2&"!A1"));A2)

 

[alicimri]

Köprü oluşturmanıza gerek yok. Sayfa isimlerinin bulunduğu hücre aralığı siz değiştirin.

Herhangi bi sayfaya girip a sütununa bu 50 sayfanın ismini alt alta yazdım

Bu sayfanın kod modülüne aşağıdaki kodu yapıştırın. Sayfa isminin bulunduğu hücrede çift tıklayın.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Application.Intersect(Target, Range("G1:G50")) Is Nothing Then Exit Sub
Sheets(Target.Value).Activate
End Sub

 

[uzmanamele]

Merhaba

Deneyiniz.

Sub SayfayaLink()
Sheets.Add Before:=Sheets(1)
For i = 2 To Sheets.Count
Range("A" & i) = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:="", _
    SubAddress:=Sheets(i).Name & "!" & "A1", TextToDisplay:=Sheets(i).Name
Next
End Sub

 

[solomonnsams]

Merhaba

Deneyiniz.

Sub SayfayaLink()
Sheets.Add Before:=Sheets(1)
For i = 2 To Sheets.Count
Range("A" & i) = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:="", _
    SubAddress:=Sheets(i).Name & "!" & "A1", TextToDisplay:=Sheets(i).Name
Next
End Sub

Zaman ayırdığınız için hepinize ayrı ayrı teşekkür ederim.

Bu kod ile sayfa isimlerini link olarak listeliyor, muhteşem gerçekten. Fakay yeni bi sayfa açıp orada yapıyor bunu. Bu işi macroyu kullanacağım sayfada direkt a sütununda yapması için kodun hangi kısmını değiştirmeliyim?

 

[uzmanamele]

Merhaba
Done adında sayfanız olduğunu varsayalım.

Sub SayfayaLink()
Sheets("Done").Select
For i = 1 To Sheets.Count
Range("A" & i) = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:="", _
    SubAddress:=Sheets(i).Name & "!" & "A1", TextToDisplay:=Sheets(i).Name
Next
End Sub

 

[solomonnsams]

Günaydın,

Sub SayfayaLink()
Sheets("Sheet1").Select
Range("A3:A2500").Clear
For i = 1 To Sheets.Count
Range("A" & i) = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:="", _
SubAddress:=Sheets(i).Name & "!" & "A1", TextToDisplay:=Sheets(i).Name
Next
End Sub

Sizin kodunuza 1 satır ekleyerek A3:A2500 'e kadar veri varsa temizleyip bu işlemi yapmasını sağladım. Ufak bir sorun daha kaldı. Macro sayfa isimlerini A3 ten yazmaya başlasın istiyorum. For i kısmını 1+2 yapınca bunu yapıyor ama bu sefer sayfa isimlerini listelerken ilk iki sayfayı yok sayıp 3.sayfadan itibaren listeleme yapıyor.

 

[Korhan Ayhan]

Böyle deneyiniz.

Sub SayfayaLink()
Sheets("Sheet1").Select
[U]Range("A3:A2500").Clear[/U]
For i = 1 To Sheets.Count
Range("A" & i + 2) = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i + 2), Address:="", _
SubAddress:=Sheets(i).Name & "!" & "A1", TextToDisplay:=Sheets(i).Name
Next
End Sub

 

[solomonnsams]

Bu sefer oldu. Tekrar teşekkür ederim, ellerinize sağlık.