Soru Klasördeki pdf leri excelde açma

[NADİR YILDIZ]

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

 

[NADİR YILDIZ]

arkadaşlar bunun çözümü varmıdır

 

[Zeki Gürsoy]

Çift tıklandığında açılmasına açılır da, zaten açıldığında aktif pencere olarak gelir. Aktif pencere olarak açılmış dökümanın "X" butonuna basmak yerine, forma çift tıklayıp kapatmak için tekrar pencere mi değiştireceksiniz? Çift tıklandığında kapatma konusu biraz fantastik bir istek olarak algılandığından olsa gerek saatlerdir cevap gelmemiş...

.

 

[Korhan Ayhan]

Merhaba,

Bu işlem için excelin KÖPRÜ fonksiyonunu kullanabilirsiniz.

B2 hücresine aşağıdaki formülü uygulayınız ve alta doğru sürükleyiniz.

=KÖPRÜ(SOLDAN(HÜCRE("DOSYAADI";$A$1);BUL("[";HÜCRE("DOSYAADI";$A$1))-1)&A2&".pdf";A2)

 

[NADİR YILDIZ]

Korhan bey

Üstat gerçekten tebrikler zor görünen makro ile olurmu dediğim bir sorunu
çok pratik bir çözüm önerinizle her zaman gibi 10 numara 5 yıldız valla

teşekkürler & iyi çalışmalar

 

[NADİR YILDIZ]

Çift tıklandığında açılmasına açılır da, zaten açıldığında aktif pencere olarak gelir. Aktif pencere olarak açılmış dökümanın "X" butonuna basmak yerine, forma çift tıklayıp kapatmak için tekrar pencere mi değiştireceksiniz? Çift tıklandığında kapatma konusu biraz fantastik bir istek olarak algılandığından olsa gerek saatlerdir cevap gelmemiş...

.

EVET FANTASTİK OLMUŞ GERÇEKTEN & uyarı için teşekkürler

 

[Bilgemen]

Bir çözümde benden gelsin
user formda bulunan listboxa göre hazırlandı.





Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Faturano.Text = ""
Faturano.Text = ListBox1.List(ListBox1.ListIndex, 1)
Call pdfyiac
Faturano.Text = ""
End Sub



Sub pdfyiac()


If ListBox1.ListIndex < 0 Then Exit Sub
On Error Resume Next

isim = Faturano.Text

Yol = "\PDFLER"
PDF = Application.ActiveWorkbook.Path & Yol & "\" & isim & ".pdf"

Set Fs = CreateObject("Scripting.FileSystemObject")
If Fs.FileExists(PDF) Then
CreateObject("Shell.Application").Open (PDF)
Else

MsgBox "Dosya Mevcut Değil Kontrol Ediniz", vbCritical
End If


End Sub