bütün sekmelere bir yerden ulaşmak

[ismail86]

ARkadaşlar rar dosyasının içindeki excel dosyasında bir sürü sekmesi olan bir çalışma var. ben bunların bir ana ekran halinde ilk sekmede görmek istiyorum. ekranda tıkladığım sekmeye otamatik gitmesini istiyorum. makro bilmiyorum. ne istediğimi anlamanız için bir de örnek ekliyorum.

yardımcı olursanız sevinirim

 

[Ömer BARAN]

Aşağıdaki kod'u kullanabilirsiniz.

Belgeniz açıkken Alt+F11 tuşlarına birlikte basıp VBA ekranı açılınca;
üstte Insert menüsünden Module'yi seçin sağda açılacak boş alana
aşağıdaki kodu yapıştırın.
Sonra F5 tuşuna basarak kodun çalışmasını sağlayınız.
Sayfa1 deki KÖPRÜ EKLENMİŞ listeden tıklayarak istediğiniz sayfaya gidebilirsiniz.

Sub SayfalaraKopru()
For Each sayfa In ThisWorkbook.Worksheets
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=sayfa.Name & "!A1", TextToDisplay:=sayfa.Name
Next sayfa
End Sub

***Kodlar alıntıdır.

İyi günler dilerim.

 

[Korhan Ayhan]

Merhaba,

Vermiş olduğunuz örnek dosya excelin "köprü" özelliği kullanılarak hazırlanmış.

EKLE menüsünden ulaşabilirsiniz. Çok zor bir işlem değil kendinizde biraz çabalayarak kolaylıkla yapabilirsiniz.

 

[Ömer BARAN]

Sayfa sayınız az olsaydı elbette Sayın Korhan Beyefendinin söylediği
asıl olan yöntemdir.
Belgenizdeki sayfa sayısı fazla olduğu için yukarıdaki kodu gönderdim.

Gönderdiğim kod'un yaptığı işlem de zaten Korhan Bey'in söylediği yöntemin topluca uygulanmasıdır.

İyi günler dilerim.

 

[ismail86]

Belgeniz açıkken Alt+F11 tuşlarına birlikte basıp VBA ekranı açılınca;
üstte Insert menüsünden Module'yi seçin sağda açılacak boş alana
aşağıdaki kodu yapıştırın.
Sonra F5 tuşuna basarak kodun çalışmasını sağlayınız.
Sayfa1 deki KÖPRÜ EKLENMİŞ listeden tıklayarak istediğiniz sayfaya gidebilirsiniz.

Sub SayfalaraKopru()
For Each sayfa In ThisWorkbook.Worksheets
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=sayfa.Name & "!A1", TextToDisplay:=sayfa.Name
Next sayfa
End Sub

***Kodlar alıntıdır.

İyi günler dilerim.

hocam dediğinizi aynen yaptım ancak tıklayınca başvuru geçerli değil diyor

 

[ismail86]

Allah razı olsun

hocam anladım yaptım çok teşekkür ederim. hepinizden Allah razı olsun