Zaman ayırdığınız için hepinize ayrı ayrı teşekkür ederim.
Bu kod ile sayfa isimlerini link olarak listeliyor, muhteşem gerçekten. Fakay yeni bi sayfa açıp orada yapıyor bunu. Bu işi macroyu kullanacağım sayfada direkt a sütununda yapması için kodun hangi kısmını değiştirmeliyim?
Merhaba
Deneyiniz.
Sub SayfayaLink()
Sheets.Add Before:=Sheets(1)
For i = 2 To Sheets.Count
Range("A" & i) = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:="", _
SubAddress:=Sheets(i).Name & "!" & "A1", TextToDisplay:=Sheets(i).Name
Next
End Sub
Deneyiniz ...
Sub test_link_Ekle()
For i = 2 To ActiveSheet.Cells(Rows.Count, 1).End(3).Row
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 2), Address:= _
Cells(i, 1) & "/" & Cells(i, 2)
Next
End Sub
iyi çalışmalar
...i As Long
Application.ScreenUpdating = False
For i = 5 To Cells(Rows.Count, "A").End(3).Row
Range("A" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\Users\SS\Desktop\PDF\" & Cells(i - 4, "A") & ".pdf"
Next i
Application.ScreenUpdating = True
MsgBox "Link...
...= Dir(DosyaYolu & "*.*")
Do While DosyaAdi <> ""
If DosyaAdi <> "." And DosyaAdi <> ".." Then
ActiveSheet.Hyperlinks.Add Anchor:=Cells(Satir, 1), Address:=DosyaYolu & DosyaAdi, TextToDisplay:=DosyaAdi
Satir = Satir + 1
End If
DosyaAdi =...
...yer = Right(Fnd.Address, 1)
.Cells(yer, "E").Value = Cells(R, 1).Value
ActiveSheet.Hyperlinks.Add Cells(R, 1), Address:="", SubAddress:="'" & ActiveSheet.Name & "'!D" & yer ' Hyperlink eklendi
End If
Next R
End With...
...Klasor = "dosya yolunu buraya yazın"
Dosya = Dir(Klasor & "*.*", vbNormal)
i = 1
Do While Dosya <> ""
Cells(i, 1) = Dosya
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:= _
Klasor & "\" & Dosya
i = i + 1
Dosya = Dir
Loop
End Sub
...' İstediğiniz dosya yolunu yapıştırın
For Each bulunandosya In klasor.Files
Cells(i + 1, 1) = bulunandosya.Name
Cells(i + 1, 2) = bulunandosya.Path
ActiveSheet.Hyperlinks.Add Cells(i + 1, 2), Cells(i + 1, 2).Value 'hyperlinke çevir
i = i + 1
Next
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.