ÇOKLU KÖPRÜDE YAVAŞ AÇILMA VE ÇOKLU KÖPRÜ OTOMATİK EKLEME

[sahin26]

Arkadaşlar merhaba ben kalibrasyon kayıtlarını tutymaktayım. 7000 adet ölçü aletinin sertifikalarını pdf olarak köprü olarak tek tek uğraşmaktayım. ölçü aleti çok olduğundan sayfa geç açılıyor. Acaba bunun için çözüm varmıdır. pdf dosyaları ayrı fabrikalar olarak klasörlenmektedir.

 

[alicimri]

Köprüsüz makro ile pdf dosyalarını açabilirsiniz.
Aşağıdaki makroda
1- Köprünün A Sütununda olduğunu,
2- Sadece dosya adının uzantısız olarak yazılı olduğunu,
3- Tüm Pdf dosyalarının Excel dosyasının bulunduğu klasörde bulunan "dosyalar" klasöründe olduğunu,
varsaydım. Açmak istediğiniz dosyanın yazılı olduğu hücrenin üzerinde çift tıklayın.
Kodları listenin bulunduğu sayfanın modülüne yapıştırın.
Kodları kendinize göre uyarlama yapabilirsiniz.

#If VBA7 Then
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#Else
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If
If Target.Column = 1 Then
On Local Error Resume Next
dosyayol = ThisWorkbook.Path & "\dosyalar\" & Target.Value & ".pdf"
ShellExecute 0, "Open", dosyayol, "", "", vbNormalNoFocus
End If
End Sub


 

[sahin26]

teşekkür ederim, acaba bir örnek dosya hazırlayıp gönderirseniz sevinirim. tam manasıyla excele hakim değilim, henüz işin başında sayılırım. BANA BİR HARF ÖĞRETENİN KIRKYIL KÖLESİ OLURUM.

 

[alicimri]

A Sütunda bir hücrede, bir dosya adı yazıyorsa ve Bu dosya, "dosyalar" klasöründe mevcut ise üzerinde çift tıklayınca pdf dosyası açılacaktır.
Örnek Çalışma Aşağıdaki link de
http://s3.dosya.tc/server16/2xbbqi/dene.zip.html

 

[sahin26]

örnek dosyaya ulaşamadım, yada beceremedim. özür dilerim. linke tıklıyorum dosya bulunamadı yazdı.

 

[alicimri]

Yukardaki indirme link'ini yeniledim.

 

[mdagistanli]

 

[alicimri]

#2 nolu mesajdaki kodu ve #4 nolu mesajdaki link'i yeniledim. Hata versiyon farklılığından kaynaklanıyor.

 

[sahin26]

ELİNİZE EMEĞİNİZE SAĞLIK, ÇOK TEŞEKKÜR EDERİM.