Hücreye çift tıkla pdf ve world dosyası aç

[irfancantr]

Hayırlı akşamlar,
Geçmiş konuları çok araştırdım ama bulamadım.

Dosyada örnek oluşturmaya çalıştım,
D klasörümde "Kayıt" adlı klasör içerisinde bulunan
A1019.02.2010a.pdf
A1019.02.2010c.pdf
B1819.02.2010b.pdf
adlı world ve pdf dosyalarım mevcut.

Örneğin A10 sayfasında D7 hücresine tıkladığımda hücrede değer var ise bana "A1019.02.2010a.pdf" adlı dosyayı açabilir mi?
Yani ilk olarak sayfa ismi daha sonra tarih son olarak A sütununda hücrenin karşılığına gelen harf, dosya isimleri hep bu tarzda oluyor.

 

[irfancantr]

İyi günler,

Sorumu kademe kademe sorsam belki de daha iyi olacak sanırım;

Sayfa içerisinde aktif olan hücrenin yada tıkladığım herhangi bir hücrenin bulunduğu sayfa ismi + sütun başlığı + satır başlığını birleşik bir isim olarak msgbox bilgisi olarak nasıl getirebilirim?

Buna bağlı olarakta ;
Bu yakaladığım isimde bilgisayarımda ki "D" klasörünün içerisinde bu isimde böyle bir (dosya formatı farklı olabilir) dosya var ise o dosyayı açabilmek...

Konu halen günceldir, yardımlarınızı bekliyorum. Şimdiden teşekkürlerimi sunarım.

 

[irfancantr]

Günaydın, konu halen günceldir.
Yardımcı olan herkese şimdiden teşekkürlerimi sunarım.

 

[halit3]

Burada D7 hücresine tıklayınca a sutünundaki değeri nasıl bulacak a sutünundaki değer bir kaç hücrede birleştirilmiş olarak var hangisini nasıl bulacak

Siz a sutünundaki birleşik hücreleri çözün ve a sutünundaki hücrelere değerleri verin

Kodu ThisWorkbook 'un içine koyun

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Value = "" Then Exit Sub
klasor = "D:\Kayıt\"
Sayfa_Adı = ActiveSheet.Name
baslik = Cells(1, ActiveWindow.Selection.Column).Value
dosya_adi = Cells(ActiveWindow.Selection.Row, 1).Value
 
Dim Uzanti(5)
Uzanti(1) = "doc": Uzanti(2) = "pdf": Uzanti(3) = "xlsm":
Uzanti(4) = "xlsx": Uzanti(5) = "xls":
For i = 1 To 5
Dosya = klasor & Sayfa_Adı & baslik & dosya_adi & "." & Uzanti(Val(i))
MsgBox Dosya
If CreateObject("Scripting.FileSystemObject").FileExists(Dosya) = True Then
If Dosya <> "" Then
CreateObject("Shell.Application").Open (Dosya)
End If
Exit For
End If
Next i
End Sub

 

[halit3]

Yukarıdaki hücrelerin çözülmesini söylemiştim buna gerek kalmadı
Kod:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Value = "" Then Exit Sub
yer = ActiveWindow.RangeSelection.Address
klasor = "D:\Kayıt\"
Sayfa_Adı = ActiveSheet.Name
baslik = Cells(1, ActiveWindow.Selection.Column).Value
Cells(ActiveWindow.Selection.Row, 1).Select
adres1 = ActiveWindow.RangeSelection.Address
a = InStr(Trim(adres1), ":") - 1
If a = -1 Then
dosya_adi = Range(adres1).Value
Else
dosya_adi = Range(Range(Mid(adres1, 1, a)).Address(False, False)).Value
End If
Dim Uzanti(5)
Uzanti(1) = "doc": Uzanti(2) = "pdf": Uzanti(3) = "xlsm":
Uzanti(4) = "xlsx": Uzanti(5) = "xls":
For i = 1 To 5
Dosya = klasor & Sayfa_Adı & baslik & dosya_adi & "." & Uzanti(Val(i))
MsgBox Dosya
If CreateObject("Scripting.FileSystemObject").FileExists(Dosya) = True Then
If Dosya <> "" Then
CreateObject("Shell.Application").Open (Dosya)
End If
Exit For
End If
Next i
Range(yer).Select
End Sub

 

[irfancantr]

Yukarıdaki hücrelerin çözülmesini söylemiştim buna gerek kalmadı

Hocam emeğine sağlık, hemen denemeye çalıştım fakat bir türlü ne pdf dosyası neden world dosyasını açmakta başarılı olamadım. İş yerinde denediğim için bir problem olduğunu düşünmeye başladım, eve gittiğimde tekrar deneyeceğim. En kısa zamanda bilgi vereceğim. Tekrardan çok teşekkürlerimi sunarım, saygılar.

 

[halit3]

Hocam emeğine sağlık, hemen denemeye çalıştım fakat bir türlü ne pdf dosyası neden world dosyasını açmakta başarılı olamadım. İş yerinde denediğim için bir problem olduğunu düşünmeye başladım, eve gittiğimde tekrar deneyeceğim. En kısa zamanda bilgi vereceğim. Tekrardan çok teşekkürlerimi sunarım, saygılar.

Yukarıdaki mesajdaki kodu düzelttim sayfa adını unutmuşum.

Not; Hücreye tıkladığın zaman mesaj gelecektir o mesaj dosya yoluna aittir gelen mesajdaki dosya yolu doğru ise dosya açılacak bu arada kod beş ayrı isimli uzantılı dosyayı açmaktadır.

Kod düzenli çalışıyorsa aşağıdaki mesaj bölümünü silin.

MsgBox Dosya

 

[irfancantr]

Yukarıdaki mesajdaki kodu düzelttim sayfa adını unutmuşum.

Not; Hücreye tıkladığın zaman mesaj gelecektir o mesaj dosya yoluna aittir gelen mesajdaki dosya yolu doğru ise dosya açılacak bu arada kod beş ayrı isimli uzantılı dosyayı açmaktadır.

Kod düzenli çalışıyorsa aşağıdaki mesaj bölümünü silin.

MsgBox Dosya

Üstad aklına emeğine sağlık, tekrardan çok teşekkür ederim.

 

[halit3]

Üstad aklına emeğine sağlık, tekrardan çok teşekkür ederim.

iyi çalışmalar

 

[Mahir64]

Halit Bey,
Elinize sağlık, arşivlik bir çalışma olmuş.

 

[halit3]

Halit Bey,
Elinize sağlık, arşivlik bir çalışma olmuş.

Teşekkürler iyi çalışmalar