İyi Çalışmalar Diliyorum,
Masaüstünde bulunan bir klasörde 1.pdf, 2.pdf, 3.pdf, .... 3000.pdf dosyaları mevcut.Yine masaüstünde bulunan excel dosyasının B sütununda B3=1, B4=2, B5=3, .....,B3002=3000 değerleri var. Yapmak istediğim klasördeki dosya isimlerini okutup, excel dosyasındaki B3 den başlayan hücrelerdeki değerlerle eşleştirmek ve köprü atamak. Aşağıda yapmaya çalıştığım kodlarda bir kısmını yapıyor ve hata veriyor. İlgilenecek arkadaşlara teşekkür ederim.
Sub pdfköprü()
Dim i As Integer
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("C:\Documents and Settings\KULLANICI\Desktop\PDF DOSYASI")
Set dc = f.Files
For Each dosya In dc
For i = 3 To 3002
If Range("B" & i) & ".pdf" = dosya.Name Then
Range("B" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"C:\Documents and Settings\KULLANICI\Desktop\PDF DOSYASI\" & dosya.Name
GoTo atla
End If
Next
atla:
Next
End Sub
Masaüstünde bulunan bir klasörde 1.pdf, 2.pdf, 3.pdf, .... 3000.pdf dosyaları mevcut.Yine masaüstünde bulunan excel dosyasının B sütununda B3=1, B4=2, B5=3, .....,B3002=3000 değerleri var. Yapmak istediğim klasördeki dosya isimlerini okutup, excel dosyasındaki B3 den başlayan hücrelerdeki değerlerle eşleştirmek ve köprü atamak. Aşağıda yapmaya çalıştığım kodlarda bir kısmını yapıyor ve hata veriyor. İlgilenecek arkadaşlara teşekkür ederim.
Sub pdfköprü()
Dim i As Integer
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("C:\Documents and Settings\KULLANICI\Desktop\PDF DOSYASI")
Set dc = f.Files
For Each dosya In dc
For i = 3 To 3002
If Range("B" & i) & ".pdf" = dosya.Name Then
Range("B" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"C:\Documents and Settings\KULLANICI\Desktop\PDF DOSYASI\" & dosya.Name
GoTo atla
End If
Next
atla:
Next
End Sub