Toplu Köprü Oluşturma

[simonadebisi]

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]

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..

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

 

[simonadebisi]

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.

 

[alicimri]

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.

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]

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.

 

[hacigultekin]

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..

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.

 

[turboaksesuar]

Ö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]

Merhaba,

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

=KÖPRÜ(B2;"SİPARİŞ VER")

 

[turboaksesuar]

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.

 

[OnnuuR]

Merhaba peki bunu şu şekilde yapabilir miyiz: alt alta sıralı kodlar ve o kodlara ait(aynı isimde) pdf dosyaları olsa her kodun olduğu hücreye ilgili pdf dosyasını köprü yapmam lazım.
Teşekkür ederim.

 

[OnnuuR]

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..

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

VİP üyelik aldım ama bahsettiğim gibi bişey bulamadım

 

[Korhan Ayhan]

Linkteki çözüm belki işinize yarayabilir..

Soru - Klasördeki pdf leri excelde açma

Merhaba klasörün içinde PDF ft lar ve excelde fatura numarasına çift tıkladığımda faturayı açmak istiyorum çift tıklayıncada ft kapansın mümkün mü acaba ? teşekkürler

www.excel.web.tr

 

[OnnuuR]

Linkteki çözüm belki işinize yarayabilir..

Soru - Klasördeki pdf leri excelde açma

Merhaba klasörün içinde PDF ft lar ve excelde fatura numarasına çift tıkladığımda faturayı açmak istiyorum çift tıklayıncada ft kapansın mümkün mü acaba ? teşekkürler

www.excel.web.tr

Çok teşekkürler formül işime yaradı