DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Köprü oluşturulan bilgisayarın dosya yoluna göre oluşuyor. Bilgisayar değiştiğinde dosya yolu değişeceği için, köprünün başvurusu boşa çıkıyor.excell de yaptığım köprüler başka bir bilgisayara gönderdiğimde orda açılmıyor.
ne yapmam gerekiyor.
Arkadaşlar bu kod ile köprü oluşturduğumda sayfa isminde boşluk olanlara köprü vermiyor. Bu kodu boşluklu sayfa isimlerine de köprü verecek şekilde revize edebilir misiniz mümkünse? Yardımcı olabilecek var mı acaba?Sub Tabellennamen_auflisten()
Dim i As Integer
Dim myRange As Range
Set myRange = ActiveCell
myRange.Resize(Worksheets.Count).Select
If (MsgBox("UYARI: Sayfalara köprü oluşturulacak... !" & vbCrLf & _
Chr(13) & " Emin misin ?", vbYesNo)) _
<> vbYes Then Exit Sub
For i = 1 To Worksheets.Count
With myRange.Cells(i)
.Value = Worksheets(i).Name
.Hyperlinks.Add _
Anchor:=myRange.Cells(i), _
Address:="", _
SubAddress:=.Value & "!" & .Address, _
ScreenTip:="Blatt (" & .Value & ")", _
TextToDisplay:=.Value
End With
Next i
myRange.Select
MsgBox (" Toplam ") & ThisWorkbook.Worksheets.Count & _
(" Çalışma sayfasına köprü oluşturuldu"), vbOKOnly, ThisWorkbook.Name
End Sub
Yukarıdaki kodu bir modüle yerleştirip çalıştırınız.