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..
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
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]
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...
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]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.