Makro ile belirli sayfalara gitme

[td877]

Arkadaşlar merhaba,

İndex sayfamda excel dosyamda açtığım tüm sekmelerin (reel) isimleri var. İndex sayfamdan bu sekmelere kolaylıkla gidebileceğim bir otomatik köprü makrosu yazılabilir mi?

Örnek bir dosya gönderiyorum.

 

[BedriA]

Örnek dosya ektedir.

Sub bir()
Sheets("1").Select
End Sub

Sub iki()
Sheets("2").Select
End Sub

Sub uc()
Sheets("3").Select
End Sub

Sub dort()
Sheets("4").Select
End Sub

Sub bes()
Sheets("5").Select
End Sub

Sub alti()
Sheets("6").Select
End Sub

 

[Korhan Ayhan]

Alternatif;

Formülle çözüm için B1 hücresine aşağıdaki formülü uygulayıp deneyiniz.

=KÖPRÜ("[ÖRNEK.xlsx]"&A1&"!A1";"SAYFAYA GİT")

Makro ile çözüm için;

İNDEX sayfasının kod bölümüne aşağıdaki kodu uygulayınız.

"A" sütunundaki hücrelere çift tıkladığınızda sayfaları otomatik açar.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Cancel = True
    If Target <> "" Then Sheets(Target.Text).Select
End Sub

 

[td877]

Sayın BedriA ve Korhan Ayhan,

Yardımlarınız için teşekkür ederim makrolar tam işevinde çalışıyor.