SAYFALARA LİNK VERMEK

[red_lion_72]

SAYFALARA LÝNK VERMEK

SELAM,

SAYFA İSİMLERİNE DİREKT LİNK VERMENİN KOLAY BİR YOLU VARMI?

YANİ 30 ADET SAYFASI OLAN BİR EXCEL DOSYAMA, İNDEX SAYFASI YAPMAK İSTİYORUM. HEPSİNE TEK TEK LİNK YAZMAKTANSA BİR SEFERDE BU İÃžİ BİTİREBİLİRMİYİM :?

KOLAY GELSİN.

 

[red_lion_72]

LİNKTEN KASTIM KÃ?PRÜ YAPABİLİRMİYİM?

 

[Haluk]

XL'in ControlID'lerini bulmak için aşağıdaki çalışmayı yapmıştım bir zamanlar.

O dosyada istediğin tür bir örnek var, incelersen yararlanacaksın.

http://raider.europe.webmatrixhosting.net/ControlID.zip

 

[Hüseyin]

Daha basitçe,
ama belki çözüm olabilir.

Bunun çalışabilmesi için sayfa isimlerinin başı aynı isim, devamı artan numara şeklinde olması gerekir.
Ã?rneğin :
Dosyanızın adı : dosya.xls olsun ve sayfa isimleride
"Sheet1","Sheet2","Sheet3" gibi

A1'e
=ROW()
B1'e
=HYPERLINK("[dosya.xls]Sheet"&A1&"!A1";"Sheet"&A1)
Sonra bunu sayfa sayınız kadar aşağıya doğru çekerek doldurun.

Fazla fantastik bir çözüm oldu galiba :hiho:

 

[Haluk]

Fantastik olmayan bir çözüm ise;

Sub Test()
    With Sheets(1)
        For i = 1 To Sheets.Count
            Cells(i, 1) = Sheets(i).Name
                    .Hyperlinks.Add Anchor:=Cells(i, 1), _
                     Address:="", SubAddress:=Sheets(i).Name & "!A1"
                Sheets(i).Range("A1") = Sheets(1).Name
            Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Range("A1"), _
            Address:="", SubAddress:=Sheets(1).Name & "!A1"
        Next
    End With
End Sub

Sheets(1) yerine, index'in yer alacağı sayfa ismini de kullanabilirsin.
Ã?rnek>> Sheets("Sheet1")

 

[red_lion_72]

ARKADAÞLAR CEVAPLAR İÇİN ÇOK TEÞEKKÜRLER...

AMA BEN VERSİYON YAZMADIÐIM İÇİN :kafa: HERKES İNGİLİZCE İÇİN ÇÃ?ZÜM YAZMIÞ. NEYSE Kİ ARTIK BENİMDE VERSİYONUM SORULARIMIN ALTINDA OLACAK :bravo:

TÜRKÇE VERSİYONLAR İÇİN FORMÜL "KÃ?PRÜ" YMÜÞ. ÞİMDİ KÃ?PRÜ FORMÜLÜNDEN SONRA TEK SORUN SAYFA İSİMLERİNİ ALMAKTA.ÇÜNKÜ SAYFALARIM SAYFA1 -2-3 DİYE DEVAM ETMİYOR. SAYFA İSİMLERİNİ HERHANGİ BİR YERE YAZDIRABİLECEK BİR FORMÜL BİLEN VARSA YAZABİLİRSE(MÜMKÜNSE MAKROSUZ) MEMNUN OLURUM.

KOLAY GELSİN

 

[Haluk]

Makro ile bu iş daha basit.

----- ALT + F11 tuşlarına birlikte bas, VBE penceresi ekrana gelsin.
----- Bu pencerede Insert >> Module menusunu tıkla (Ekle >> Modül)
----- Ekranın sağ tarafındaki büyük pencereye, yukarıda verdiğim ikinci cevaptaki kodu kopyalayıp, yapıştır.
----- F5 tuşuna basarak sözkonusu Test isimli prosedurun çalıştırılmasını sağla.