- Katılım
- 27 Kasım 2019
- Mesajlar
- 11
- Excel Vers. ve Dili
- Excel 2013-türkçe
bir sayfada tüm sayfa adları yazılı olan hücreler vardır. yan taraflarındaki hücrelere veya aynı hücreye o hücrede yazan sayfaya bağlantı yapma...
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub kopruleme()
son = Cells(Rows.Count, "A").End(3).Row
For i = 1 To son
If Cells(i, "A") <> "" Then
For j = 1 To Sheets.Count
If Sheets(j).Name = Format(Cells(i, "A"), "@") Then
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, "B"), Address:="", SubAddress:= _
"'" & Cells(i, "A") & "'!A1"
j = Sheets.Count
End If
Next
End If
Next
End Sub
Sub KöprüEkle()
' A1 hücresinden itibaren A sütununda yer alan her bir dolu hücre için içindeki değerin adındaki sayfaya köprü ekler.
LastRow = ActiveSheet.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
For i = 1 To LastRow
Range("A" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
ActiveCell.Value & "!A1", TextToDisplay:=ActiveCell.Value
Next i
Range("A1").Select
End Sub