Cift tiklama ile link acma sorunu

[aniluy]

selam arkadaslar, cevabini henüz bulamadigim sorumu ekte sunuyorum. Cevabina pazartesi gününe kadar ihtiyacim var. ben eger baska biryerden bulmayi basarirsam sizede aciklarim. tesekkürler..

Anil

 

[Levent Menteşoğlu]

Açılacak dosyaların bulunduğu klasörün yolunu yazarmısınız.

 

[aniluy]

selamlar levent bey,

acilacak dosyalarin bulundugu klasör henüz belirlenmedi. Ama yarin belirlerim is yerinde. daha sonra klasörü degistirme lüksümüz var mi? tesekkürler..anil

 

[Levent Menteşoğlu]

Aşağıdaki kodu "kullanici penceresi" isimli sayfanın kod sayfasına kopyalayın. Dosyalarınızın C:\dosya klasöründe olduğu kabul edilmiştir. Bu yolu kendinize göre değiştirebilirsiniz.

[vb:1:10bcdd3d94]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
On Error GoTo 10
If Intersect(ActiveCell, [e6:e14]) Is Nothing Then Exit Sub
Workbooks.Open Filename:="C:\dosya\" & ActiveCell & ".xls"
Exit Sub
10 MsgBox ActiveCell & " İSİMLİ DOSYA BULUNAMADI"
End Sub
[/vb:1:10bcdd3d94]

 

[aniluy]

sahane oldu levent bey, yardiminiza minnettarim. bu raporlama sheetinde *.pdf leri acrobatla, *.doc lari wordle, *.html leri explorerla acmamiz mümkün mü?

 

[Levent Menteşoğlu]

Bunun için yazılan verininde hangi uzantıda olduğunun tanımlanması gerekir. Bunu nasıl yapacağınız belirtirseniz bir kod önerisinde bulunabilirim.

 

[aniluy]

tekrar selamlar,

görüyorsunuz saat 5 lerde calisiyoruz. bu yolla *.xls dosyalarinin yaninda cogunlukta *.doc dosyalarinida acmak istiyorum....tabi eger *.pdf lerini acarsam ekstradan iyi olur.tekrar tesekkürler...

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Fakat kodun çalışması için formüllerinizde dosya uzantısınıda belirtmeniz gerekir. Ã?rneğin: =DÜÞEYARA(B10;Bilgiler!$A$2:$N$12;7;DOÐRU)&".doc"

[vb:1:259f2abdae]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
On Error GoTo 10
If Intersect(ActiveCell, [e6:e14]) Is Nothing Then Exit Sub
uzanti = Right(ActiveCell, 3)
If uzanti = "doc" Then
Shell "WINWORD.EXE " & "C:\dosya\" & ActiveCell.Value, vbNormalFocus
Exit Sub
End If
If uzanti = "pdf" Then
Shell "C:\Program Files\Adobe\Acrobat 6.0 CE\Reader\AcroRd32.exe " & "C:\dosya\" & ActiveCell.Value, vbNormalFocus
Exit Sub
End If
If uzanti = "htm" Then
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & "C:\dosya\" & ActiveCell.Value, vbNormalFocus
Exit Sub
End If
Workbooks.Open Filename:="C:\dosya\" & ActiveCell & ".xls"
Exit Sub
10 MsgBox ActiveCell & " İSİMLİ DOSYA BULUNAMADI"
End Sub
[/vb:1:259f2abdae]

 

[aniluy]

tesekkürler levent bey, cok güzel calisti. yardimlariniz icin cok tesekkür ederim. esenlikler dilerim..

anil