listelenen verilere otomatik köprü yada kısayol eklemek

[kmlblgn]

örnekte bir dosya yolladım bu dosyadaki makro sadece listeleme yapabiliyor bu makroya ek yaparak listelemedeki sayfa isimlerinin yanına o sayfalara ait kısayol yada köprü eklemeli bunu yapabilecek bir arkadaşımız varmı acaba...

 

[msinan987]

örnekte bir dosya yolladım bu dosyadaki makro sadece listeleme yapabiliyor bu makroya ek yaparak listelemedeki sayfa isimlerinin yanına o sayfalara ait kısayol yada köprü eklemeli bunu yapabilecek bir arkadaşımız varmı acaba...

Dosyanıza köprü oluşturdum. Bakalım olmuşmu

 

[Ömer]

Merhaba,

ArrFeuil.Cells(i, 1).Value = Sheets(i).Name

[COLOR=red]ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:="", SubAddress:= _
"'" & Sheets("Sayfa1").Range("A" & i).Value & "'!A1"
[/COLOR]
Next i

Kırmızı bölümdeki kodları dosyanızdaki kodların arasına kopyalayınız..

.

 

[kmlblgn]

teşekkür...

çok teşekkür ederim arkadaşlar emeğinize sağlık beni büyük bir yükten kurtardınız çok saolun...