Excel Çalışma Sayfasına Gözat Butonu eklemek

[orrhankaya]

Butonu tıklayınca Windows Gezginini görmek ve:
1. Dosyanın adını seçtiğimde Konumunu örneğin "C:\Belgelerim\Kitap1.xls" A2 hücresine yazılmasını,
2. Klasörün adını Seçtiğimde, Klasördeki Dosyaların B2, B3, B4, .... hücrelerinde listelenmesini,
3. Örneğin B2 Hücresini tıkladığımda B2 hücresinde yazılı olan dosyanın açılmasını, istiyorum.

Yedeklediğim dosyalara daha kolay ulaşabilmek için faydalı bir çalışma olacağı ve bundan başka amaçlarla da kullanılabileceği düşüncesiyle yardımlarınızı talep ediyorum. Teşekkür ederim.

 

[Mahmut Kök]

aşağıdaki adreste gözat örneği var, belki size fikir verebilir.

http://www.excel.web.tr/showthread.php?t=23152

 

[orrhankaya]

Teşekkür ederim sayın Mesleki,
Verdiğiniz Link sayesinde Seçtiğim dosya ismini aşağıdaki kod ile A2 Hücresine yazdırabiliyorum. A2 hücresini tıklayınca ilgili dosyayı açacak kod için yardımlarınızı bekliyorum.

Private Sub CommandButton1_Click()
Dim dosya
dosya = Application.GetOpenFilename
Range("A2").Value = dosya
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın. A2 hücresini çift tıkladığınızda ilgili dosya açılacaktır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Address <> "$A$2" Then Exit Sub
Workbooks.Open Filename:=[a2]
End Sub

 

[orrhankaya]

...... 2. Klasörün adını Seçtiğimde, Klasördeki Dosyaların B2, B3, B4, .... hücrelerinde listelenmesini,.......

Sayın Leventm, Teşekkür ederim.
cevapsız kalan 2.soruyla ilgili ne yapabiliriz.

 

[Levent Menteşoğlu]

Aşağıdaki linkte sorularınıza cevap bulabileceğiniz kapsamlı bir çalışma vardır. Bu linki inceleyin.

http://www.excel.web.tr/showthread.php?t=14847

 

[orrhankaya]

Özür dilerim sayın Leventm,
Boş yere sizi meşgul ettim. Forum içinde arama yapmadan, bu soruları hemen sormamam gerekirdi. "klasorsec-dosyaac" dosyanızı indirip şöyle bir baktım. Sorumun bütün cevabını burada bulacağımı ve kendime uyarlayabileceğimi sanıyorum.