• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Pdf Dosyalarını Link Eklemek

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Z

zarifet55

Yeni Üye
Katılım
26 Şub 2024
Mesajlar
10
Aldığı beğeni
1
Excel V
Office 2019 TR
Konu Sahibi
Merhabalar,

Ortak alanda kullandığımız bir excel dosyasında yine ortak alanda bulundurduğumuz pdfleri linklemek istiyoruz. Bu pdflerin adları rakam yada harf olabilir.
Tek tek link ekleme çok vakit kaybettiriyor. Günlük dinamik olarak işlenen bir veri seti mevcut. İlgili hücreye adını yazdığımız PDF dosyasını nasıl otomatik link eklemesi yapabiliriz ?
 
Tarihe göre sırala Oylara göre sırala
Eğer PDF dosyalarının bulunduğu klasörde dosya adlarıyla aynı isimde birer hücre varsa, bu hücrelerdeki adları kullanarak otomatik olarak link oluşturabilirsiniz. Örneğin, PDF dosyalarının adları A1, A2, A3,... gibi hücrelerde bulunuyorsa, B1, B2, B3,... gibi hücrelere aşağıdaki formülü kullanarak linkleri otomatik olarak oluşturabilirsiniz:

Örnek : KÖPRÜ("dosya_yolu/" & A1 & ".pdf"; A1)

Burada "dosya_yolu/" kısmını PDF dosyalarının bulunduğu klasörün yoluyla değiştirmeniz gerekmektedir. Bu formülü kullanarak, her hücredeki adı kullanarak otomatik olarak linkler oluşturabilirsiniz.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Öncelikle dönüşünüz ve değerli desteğiniz için çok teşekkür ederim. Test ettim çalışıyor. Bir de şöyle bir durum var çok nadirde olsa excel dosyası ve mail eklememiz gerekebiliyor aynı klasörler içerisinde. Formüldeki dosya uzantısını nasıl çeşitlendirebilirim ?
Bunu sadece imkan mevcut mu diye merak ediyorum ;
Son olarak excel arka planda o kadar çeşitli tablolara bağlıki bir sutun açmaktan dahi imtina ediyorum. Yeni bir sutun değilde zaten linkleme için kullanılan hüclerin olduğu bir sutun mevcut, direk oraya linklemek istediğimiz dosyanın adını yazdığımızda otomatik link oluşacak bir sistem kurmak mümkün müdür ?
 
Olumlu oy 0 Negatif oyla
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

Bu makroyu kullanarak, bir dosya adı girdiğinizde, makro o dosyanın linkini otomatik olarak bulacak ve ilgili hücreye bağlantı ekleyecektir. Bu kod, varsayılan olarak "Sheet1" olarak adlandırılan sayfada çalışacak şekilde ayarlanmıştır. Kullanmak istediğiniz sayfa adına uygun olarak değiştirebilirsiniz.Linkleri A:A sutununda olduğu varsayılmıştır.Linkler nerdeyse o adresi girerek değiştiriniz
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Malesef çalıştıramadım, makro için direk örnek 1 yol paylaşsam sizinle-
Dosya Yolu = C:\Users\Public
PDF İsimleri
1
2
3
4
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Tekrar Merhaba, makro çalıştı teşekkürler ancak çalıştırdığımda o klasördeki tüm PDF'leri linkliyor.
Sadece excel hücresinde adını yazdığımız evrak ile klasördeki evrakların arasında adı uyuşanları linklemesini sağlayabilir miyiz ?
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Evet denedim o şekilde A2 ve A3 hücresinde ''1'' ve ''2'' yazıyor. Bu pdfleri linkliyor ancak klasörde bulunan 3-4-5 nolu pdf leride altına doğru linklemeye devam ediyor.
 
Olumlu oy 0 Negatif oyla
arzuhalci' Alıntı:
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

A2 sutununa klasördeki pdf isimlerini alt alta yazıp deneyiniz
Genişletmek için tıkla...
Konuyu açan diyorki bir sütunda pdf lerin olduğu yolların adı yazıyor.O sütunda yazanlar linklenecek sadece.

Halbuki başta bir ek ekleseydi şimdiyse çözülmüştü.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Hayır yanlış anlaşılma olmasın, PDF'lerin olduğu yolların adı sabit. Örnek içinde yazdım.
Dosya adları ve formatları değişkendir. Yukarıdaki makroda sadece adını yazdığım PDF'leri değil klasördeki tüm PDF'leri linkliyor
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Konu Sahibi
Çok başarılı bir örnek teşekkür ederim emeğinize sağlık. Son olarak Ekli dosyadaki gibi 2 ayrı sayfada kullanmam mümkün müdür ?
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Konu Sahibi
Sub sss()

Dim klasor_yolu As String: Dim dosya_adi As String: Dim ws As Worksheet
Application.ScreenUpdating = False

Set ws = ThisWorkbook.ActiveSheet
son = ws.Cells(Rows.Count, 1).End(3).Row
klasor_yolu1 = ws.Cells(1, 28): klasor_yolu2 = ws.Cells(1, 29)

For i = 2 To son

dosya_adi2 = ws.Cells(i, 5): dosya_adi1 = ws.Cells(i, 6)

If dosya_adi2 <> Empty Then _
ws.Hyperlinks.Add Anchor:=ws.Cells(i, 5), Address:=klasor_yolu2 & "\" & dosya_adi2, TextToDisplay:=dosya_adi2

If dosya_adi1 <> Empty Then _
ws.Hyperlinks.Add Anchor:=ws.Cells(i, 6), Address:=klasor_yolu1 & "\" & dosya_adi1, TextToDisplay:=dosya_adi1

Next i

Application.ScreenUpdating = True: MsgBox "Dosya bağlantıları başarıyla eklendi.", vbInformation, "userx-Excelcozum.com"


End Sub

Ekli dosyayı görüntüle 3832
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Makro sizin dosyanızda kusursuz çalışıyor, kendi dosyama alırken hata alıyorum. Sanıyorum sarı ile işaretli alandan kaynaklı kontrol etmenizi rica edebilir miyim ? Başka bir çalışmaya entegre ederken nerde hata yapıyorum.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst