Toplu Köprü Oluşturma

simonadebisi

Altın Üye
Katılım
7 Mart 2014
Mesajlar
20
Excel Vers. ve Dili
excel 2010
Merhabalar,
Excel'de toplu köprü oluşturma ile ilgili sorum olacaktı.
Örneğin bir klasörün içinde 20 farklı PDF var. Klasör (A)

boş bir excel sayfası açtığım herhangi bir satırdan başlayarak aşağı doğru gidecek şekilde ilgili klasördeki 20 farklı PDF'e ait köprü oluşturması mümkün olabilir mi ?
Döngü ile yapmaya çalıştım fakat hata veriyor.

Yardımcı olabilirseniz gerçekten çok sevinirim.
Teşekkür ederim şimdiden.
 

Murat OSMA

Altın Üye
Altın Üye
Katılım
23 Mayıs 2011
Mesajlar
5,500
Excel Vers. ve Dili
Microsoft 365 TR-EN
Merhaba
Aradığınız tüm soruların yanıtları aslında Excel Arşivi'nde mevcut.

Örnek dosyalar:
https://www.excelarsivi.com/2016/05/klasordeki-dosyalari-listeleyip-kopruler/
https://www.excelarsivi.com/2016/10/dizinde-ne-varsa-listeleyip-koprulemek/

İhtiyacınız olan kod bu.. (y)

PHP:
Sub Emre()
    Dim Evn As Object, yol$, a%
    Set Evn = CreateObject("Scripting.FileSystemObject")
    yol = ThisWorkbook.Path & "\"
    For Each dosya In Evn.getfolder(yol).Files
        If InStr(1, dosya.Name, "pdf") > 0 Then
            a = a + 1
            Cells(a, "A").Value = dosya.Name
            ActiveSheet.Hyperlinks.Add Anchor:=Cells(a, "A"), _
            Address:=yol & Cells(a, "A"), TextToDisplay:="" & Cells(a, "A") & ""
        End If
    Next dosya
    MsgBox "İşlem Tamamlandı.", vbInformation, "Www.ExcelArsivi.Com"
    a = Empty: yol = vbNullString: Set Evn = Nothing
End Sub
 
Son düzenleme:

simonadebisi

Altın Üye
Katılım
7 Mart 2014
Mesajlar
20
Excel Vers. ve Dili
excel 2010
Bilgi için çok teşekkür ederim , ilgili arşive de üye oldum çok pratik tablolar var.
döngüdeki hatamı da görmüş oldum kodu gördükten sonra.
tekrar teşekkürler.
 
Katılım
12 Aralık 2015
Mesajlar
1,200
Excel Vers. ve Dili
Türkçe Ofis 2007
Alternatif
Köprü oluşturmadan; tıkladığınız hücrede uzantısız olarak klasörde mevcut dosyalardan birinin adı yazıyorsa, PDF dosyasını açabilirsiniz.
Kodu ilgili sayfanın modülüne yapıştırın.
Klasör (myPDF) yolunu kendinize göre uyarlayın.
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
myPDF = "C:\vvvvvv\" & Target & ".pdf"
If Dir$(myPDF) <> "" Then
myAdobeReader = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
Shell myAdobeReader & " /A " & myPDF, vbNormalFocus
End If
End Sub
 

Murat OSMA

Altın Üye
Altın Üye
Katılım
23 Mayıs 2011
Mesajlar
5,500
Excel Vers. ve Dili
Microsoft 365 TR-EN
Bilgi için çok teşekkür ederim , ilgili arşive de üye oldum çok pratik tablolar var.
döngüdeki hatamı da görmüş oldum kodu gördükten sonra.
tekrar teşekkürler.
Detaylıca inceledikten sonra ne kadar geniş bir Excel Arşivi olduğunu göreceksiniz. :)
Hayırlı günler. (y)
 
Katılım
29 Mayıs 2018
Mesajlar
1
Excel Vers. ve Dili
2007
Merhaba
Aradığınız tüm soruların yanıtları aslında Excel Arşivi'nde mevcut.

Örnek dosyalar:
https://www.excelarsivi.com/2016/05/klasordeki-dosyalari-listeleyip-kopruler/
https://www.excelarsivi.com/2016/10/dizinde-ne-varsa-listeleyip-koprulemek/

İhtiyacınız olan kod bu.. (y)

PHP:
Sub Emre()
    Dim Evn As Object, yol$, a%
    Set Evn = CreateObject("Scripting.FileSystemObject")
    yol = ThisWorkbook.Path & "\"
    For Each dosya In Evn.getfolder(yol).Files
        If InStr(1, dosya.Name, "pdf") > 0 Then
            a = a + 1
            Cells(a, "A").Value = dosya.Name
            ActiveSheet.Hyperlinks.Add Anchor:=Cells(a, "A"), _
            Address:=yol & Cells(a, "A"), TextToDisplay:="" & Cells(a, "A") & ""
        End If
    Next dosya
    MsgBox "İşlem Tamamlandı.", vbInformation, "Www.ExcelArsivi.Com"
    a = Empty: yol = vbNullString: Set Evn = Nothing
End Sub
Hocam ben excel sayfasını indirdim orada hedef klasörünü belirtince köprülenmiş şekilde geliyor ben o bağlantı linklerini makrosuz olan diğer excel sayfama nasıl çekebilirim. Düşeyara komutuyla denedim "yok" hatası alıyorum.
 
Katılım
9 Ağustos 2022
Mesajlar
10
Excel Vers. ve Dili
2013 - Türkçe
Öncelikle herkese merhaba, vakit ayıran herkese şimdiden teşekkürler
Konuyu fark edemedim başlık açtım ve sağolsun bir arkadaşımız buraya yönlendirdi
İnceledim ve benim isteğimle benzer ancak tam olarak klasör mantığında değil de hücredeki bilgiler ile bunu yapmak istediğim için buradaki bilgiler ile yapamadım.
Kısaca şöyle özetleyeyim
Benim elimde 22 bin civarı ürün olan bir liste var
Listedeki ürünleri hepsini farklı bir toptancıdan alıyoruz.
Karışıklık olmaması için bir formül yaptım ama toplu bir şekilde nasıl düzenleyeceğimi bulamıyorum.
Liste şu şekilde (Örneğini de link vereceğim)

-------A-----------------B-----------------C-----------------D--------
SİPARİŞ VER------SİPARİŞ LİNK------FİRMA TEL------ÜRÜN ADI---

A B
KÖPRÜSÜYLE BİRLİKTE
SİPARİŞ VER YAZISI ="https://wa.me/"&C2&"?text=Merhaba, 3 Adet "&D2&" Siparişimizdir. Stoğunuzda yoksa bilgilendirirseniz memnun olurum. İyi çalışmalar"

A SÜTUNUNDAKİ SİPARİŞ VER YAZISINA B SÜTUNUNDAKİ KÖPRÜYÜ GÖMMEK İSTİYORUM AMA 22 BİN ÜRÜN İÇİN TOPLU ŞEKİLDE

ÖRNEK ÇALIŞMA LİNK
https://we.tl/t-6ixdGjPTiB
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,325
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

A2 hücresine uygulayıp alta doğru ihtiyacınız kadar sürükleyiniz.

C++:
=KÖPRÜ(B2;"SİPARİŞ VER")
 
Katılım
9 Ağustos 2022
Mesajlar
10
Excel Vers. ve Dili
2013 - Türkçe
Korhan Hocam Allah razı olsun, bilgi çok değerli bir şey. Verdiğiniz ufacık bir kod beni saatlerce işten kurtardı. Teşekkür ederim.
 
Üst