köprü fonksiyonu yardım

[benemale1]

excell de yaptığım köprüler başka bir bilgisayara gönderdiğimde orda açılmıyor.
ne yapmam gerekiyor.

 

[leumruk]

excell de yaptığım köprüler başka bir bilgisayara gönderdiğimde orda açılmıyor.
ne yapmam gerekiyor.

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.
Bilgisayar değiştiğinde köprüyü yeniden oluşturmanız gerekiyor.
Uyarlama yöntemi olduğunu sanmıyorum; ama hiç belli olmaz. Excelde olmaz dediğim pek çok meselenin olabildiğini gördüm.

 

[benemale1]

makromu yapmam gerekiyor başka yerde çalışması için köprünün,
en basit şekilde nasıl yapabilirim bunu
tşk

 

[tahsinanarat]

farklı pc de olsa eğer köprü yolları aynı ise çalışır, ama farklı ise yeniden düzenlemeniz gerekmektedir, farklı bilgisayarlarda kullanılacaksa eğer bu ihtimal düşünülerek köprü kurulacak klasörler diğer bilgisayarda da aynı adreste olmalıdırlar. Örnek D:\foto klasöründeki resimler ile köprü kurulmuş iset, diğer bilgisayarda da fotolar D sürücüsünde ve foto klasöründe olmalıdırlar. Anakcak farklı bir köprü olayından söz ediyorsanız örnek dosya eklemelisiniz. Kolay gelsin

 

[benemale1]

üstad
amacım sayfa1 e bir buton yaptım tıklayınca sayfa2 ye yada farklı bi sayfaya gitsin. bunun için bi makromu yazman gerekiyor.
tşk

 

[tahsinanarat]

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.

 

[sekozzy]

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.

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?

 

[gazolay]

köprü makro veya vga ile çalışmaz...klasördeki jpej veya pdf veya mpgav format ne ise onuda exelle beraber aynı klasöre koyacaksın sonra beraber tasıyacaksın o exeli the end

 

[tahsinanarat]

Linkleri görmek istediğiniz sayfanın kod bülümüne;
Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim l As Long
l = 1
With Me
.Columns(1).ClearContents
.Cells(1, 1) = "Sayfa1"

End With

For Each wSheet In Worksheets
If wSheet.Name <> Me.Name Then
l = l + 1
With wSheet
.Range("A1").Name = "Start_" & wSheet.Index
End With
Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:="", _
SubAddress:="Start_" & wSheet.Index, TextToDisplay:=wSheet.Name
End If
Next wSheet
End Sub