SAYFALARA LİNK VERMEK

[red_lion_72]

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.