Linkli Sayfa Indexi


Bir onceki konumuzda sayfa isimlerini listelemeyi gormustuk, simdi ise bunlari linklemeyi gorelim ki bu sayfamizdan hareketle tum sayfalarimiza ulasalim;

VBA Kodlari

Sub Sayfalari_Listele()
Dim sayfa As Worksheet
Dim i As Integer
i = 1
Sheets(“Sheet1”).Range(“A:A”).Clear
For Each sayfa In Worksheets
Sheets(“Sheet1″).Cells(i, 1).Select
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, Address:=””, SubAddress:= _
sayfa.Name & “!A1”, TextToDisplay:=sayfa.Name
i = i + 1
Next sayfa
End Sub

bir onceki konumuzdaki yonlendirmeleri yine dikakte aliniz..

Sayfa İsimlerini Listeleme

 

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

“Linkli Sayfa Indexi” için 4 yorum

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


1 + 8 =