Hücreye tıklayınca İstediğim Kitabı açsın

[Mdemir63]

Selamlar

Arkadaşlar Klasör içindeki Fihrist adlı dosyamda klasördeki diğer dosyalar var.
Fihrist dosyamı açtığımda sirayla diğer dosyalar orada sıralı. Benim istediğim Özellikle KÖPRÜ kurmadan orada hangi kitabı seçersem seçtiğim kitabı açsın istiyorum. Nasıl yapabilirim.

Saygılar

 

[conari]

Daha Önce Sayın Haldun Alay isimli bir kişinin Sık kullanılan Excel belgeleri için Oluşturduğu bir adres çubuğu eklentisi var elimde bunu burda paylaşayım.

Dosya Eklenti olarak Excel e tanıtılmalı
Araç çubuklarından Favoriler aktif edilmeli.


bu arada site yöneticilerine xla uzantılı dosyalar neden siteye eklenemiyor.????

 

[hamitcan]

Aşağıdaki şekilde deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Workbooks.Open Filename:="C:\ÖRNEK\" & Target & ".xls"
End Sub

 

[Mdemir63]

Aşağıdaki şekilde deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Workbooks.Open Filename:="C:\ÖRNEK\" & Target & ".xls"
End Sub

Hocam Teşekkürler

Saygılar

 

[xxcell]

aşağıdaki şekilde yaparsan b2:b5 arasında çift tıkladığın hücredeki dosyayı açıyor

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo cikis
If Intersect(Target, [b2:b5]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
dizin = "c:\"
If Len(Target.Value) < 4 Then
dosya_ismi = dizin & Target.Value & ".xls"
ElseIf Mid(Target.Value, Len(Target.Value) - 3, 4) <> ".xls" Then
dosya_ismi = dizin & Target.Value & ".xls"
Else
dosya_ismi = dizin & Target.Value
End If


Workbooks.Open dosya_ismi
cikis:
End Sub

 

[seismic]

Söz konusu kodları bir süredir kullanmaktayım, hazırlayanlara teşekkür ederim. ancak benim de şöyle bir sorunum var;

Dizin olarak tanımlanan klasör bu kodlarda "C" sürücüsünün "root" bölümü. Benim kullandığım dosyalar ise atıyorum;
C:\Musteriler\Deneme
C:\Musteriler\Yanilma
C:\Musteriler\Sallama

Bu sekilde olduğunda, alt klasörlerdeki dosyaları ne yazık ki açmıyor. Bu konuda ne yapılabilir?

 

[Ayhan Ercan]

Merhaba sn seismic

Bir önceki mesajdaki dizin değişkeni:

dizin = "c:\"

şeklindeydi.

O değişkeni :

dizin = "c:\Musteriler\Deneme"

şeklinde kendinize uyarlayarak deneyiniz...

 

[seismic]

Orası kolay da, C:\Musteriler\ klasörünün altındaki diğer klasörleri nasıl tanıtacağız? Deneme klasöründeki dosyalar çalışacak ancak diğer klasörlerdeki dosyalar çalışmayacaktır. Daha doğrusu, deneme klasöründeki dosyalara erişim sağlanacak, diğerlerine sağlanamayacaktır, haksız mıyım?

 

[Ayhan Ercan]

O zaman,

1.
dizin = "c:\müşteriler\"
olarak atarsınız.
2.
Herhangi bir hücreyide bir alt klasör ismi olarak kullanırsınız ve "dosya_ismi" değişkenine atarsınız.

Yani
Alt klasör ismini yazacağınız hücreyi A1 dersek,

dosya_ismi = dizin &  [a1] & "\" & Target.Value

gibi...

Daha farklı çözümlerde olabilir. Benim aklıma gelen bu.

 

[seismic]

Bu şekilde olabilir belki ama ben çift tıkladığım hücrede yalnızca dosyanın .xls'den önceki ismini yazıyorum. Örnek vermek gerekirse;
C:\Musteriler\Deneme\ bu klasörün altındaki dosyalar, abc.xls, cde.xls, fgh.xls,

A sütununda yer alan değerler ise; A3= abc, A4=cde, A5=fgh,

C:\Musteriler\Yanılma\ bu klasörün altındaki dosyalar, 123.xls, 234.xls, 789.xls,

A sütununda yer alan değerler ise; A6= 123, A7=234, A8=789,

ve bunun gibi birkaç klasör ve değişik isimde dosya daha. Sanırım şimdi sorunu daha iyi anlatabildim.

 

[seismic]

Sayın Ayhan Ercan, verdiğiniz fikir üzerine, D sütununa müşterilerin, dolayısıyla klasörlerin ismini ekledim ve kodları aşağıdaki gibi değiştirdim. Teşekkür ediyorum, umarım başkaları da faydalanır.
Not: Aktif çalışma kitabı bir üst dizinde yer almaktadır ve dosya isimleri de B sütununda yazılmıştır.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo cikis
If Intersect(Target, [b4:b655]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
dizin = ActiveWorkbook.Path & "\Musteriler\"
If Len(Target.Value) < 4 Then
dosya_ismi = dizin & Target.Value & ".xls"
ElseIf Mid(Target.Value, Len(Target.Value) - 3, 4) <> ".xls" Then
dosya_ismi = dizin & ActiveCell.Offset(0, 2).Value & "\" & Target.Value & ".xls"
Else
dosya_ismi = dizin & Target.Value
End If


Workbooks.Open dosya_ismi
cikis:
End Sub

 

[tumay06]

aşağıdaki şekilde yaparsan b2:b5 arasında çift tıkladığın hücredeki dosyayı açıyor

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo cikis
If Intersect(Target, [b2:b5]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
dizin = "c:\"
If Len(Target.Value) < 4 Then
dosya_ismi = dizin & Target.Value & ".xls"
ElseIf Mid(Target.Value, Len(Target.Value) - 3, 4) <> ".xls" Then
dosya_ismi = dizin & Target.Value & ".xls"
Else
dosya_ismi = dizin & Target.Value
End If


Workbooks.Open dosya_ismi
cikis:
End Sub

Benim dosyamdaki bazi hucreler iki yada uc hucrenin birlestirilmesiyle olusmus durumda. Bu nedenle birlestirme yapilmis hucrelerdeki dosyalari acmakta ise yaramiyor bu kod.nasil bir yol izlemek gerekir?

 

[Necdet]

Dosyalara Köprü Kurmak

Merhaba,

İşyerinde bir arkadaş için dün yaptığım dosyayı ekliyorum, umarım yararlı olur.

A sütununa istediğiniz dizin ve alt dizindeki tüm dosyaları getiririrken aynı zamanda köprü de kurar.