Excel Makro ile Hücre değerine klasör açma

[u.L.a.s]

Merhabalar

Excel sayfamın A sütununda 1 den başlayıp sırayla numaralandırma vardır

1
2
3
4
..
..
...
5000
5001
5002

diye uzayıp giden.

Bir ağ ortamındada

"\\s1\tt\dosyalar\"

diye bir dizinim var. bu dosyalar dizini altında yine 1 den başlayıp sırayla isimlendirilmiş klasörler var.

ben istiyorum ki.

3028 tıklayınca \\s1\tt\dosyalar\3028 klasörü explorer olarak açılsın.

yani a sütununda hangi rakamın üstüne tıklarsam o rakama ait o yol altındaki klasör açılsın... Eğer Tıkladığım rakam adı altında bir klasör yoksa hatada vermesin bana belirtilen dosya numarası yoktur gibi bir uyarı mesajı verebilir.

Bilgi ve yardımlarınızı rica ederim

Teşekkürler.

 

[ÖmerBey]

Merhabalar;
1. Bu isteğinizi köprü olayıyla çözebilirsiniz. Her hücreye köprü eklenip belirtilen klasöre gidebilirsiniz. A sütunundaki her hücre için hücre değerine göre köprü ekleyebileceğiniz makro kodu aşağıdadır.

Sub KOD()
For a = 1 To Range("A65500").End(3).Row
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(a, 1), Address:="[COLOR="Red"]\\s1\tt\dosyalar\[/COLOR]" & Cells(a, 1).Text
Next
End Sub

2. İlgili sayfanın kod kısmına aşağıdaki kodu kopyalayarak a sütunundan bir hücreye tıklanması halinde explorer ile ilgili klasörü açabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Or Target.Cells.Count > 1 Then Exit Sub
On Error GoTo hata
ChDir ("\\s1\tt\dosyalar\" & Target.Text)
ac = Shell("Explorer [COLOR="red"]\\s1\tt\dosyalar\[/COLOR]" & Target.Text, 1)
Exit Sub
hata:
MsgBox "Belirtilen klasör bulunamadı.", vbCritical
End Sub

 

[u.L.a.s]

Bilgine sağlık

yardımların için çok teşekkür ederim

 

[koztopal]

Merhaba arkadaşalar,

benim sorunumda size benziyor ama bir türlü yapamadım,

deneme klasörünün içinde bulunan dosyalar var a1 hüçresindeki dosya adı klasörde yok ise hata mesajı vermesini ,eğer dosya var ise açmasını istiyorum,

yardım edebilirmisiniz,