klasör içindeki tüm klasörlere otomatik köprü

[mrtyzc]

başlık yeterince açık sanırım..

genelde klasör içindeki dosyaları excel sayfasına liste şeklinde yazdırıp otomatik link yapan bir çok macro var.. ama klasör içindeki klasörleri linklememiz mümkün mü
yani o linke tıklayınca ilgili klasörü açmak istiyorum.. dosyayı değil..

şimdiden yardımlarınız için teşekkür ederim..

 

[Erdem Akdemir]

Eğer statik bir klasör olacaksa adresini verebilir misiniz.
Dinamik olacak şekilde kodlanırsa her defasında klasör seçmeniz gerekecek.

 

[mrtyzc]

klasör kısmına herhangi birşey yazabilirsiniz.. ben duruma göre değiştirebilirim.. yada dediğiniz gibi her seferinde klasör seçmemde bir sıkıntı yok.. ilginiz için teşekkürler

 

[Erdem Akdemir]

Merhaba,

Deneyebilir misiniz.

Sub denemefs1()
Columns(1).Clear
Set Klasor = CreateObject("shell.application").BrowseForFolder(0, "Klasoru Secin", 50, &H0)

Set fso = VBA.CreateObject("scripting.filesystemobject")
yol = Klasor.SELF.Path

klst = yol
tekrar:
For Each kls In fso.getfolder(yol).subfolders
klst = klst & "#" & kls & "\"
Next

deg = Split(klst, "#")

x = x + 1
yol = deg(x)

If fso.getfolder(yol).subfolders.Count > 0 Then GoTo tekrar:

For Each klsr In deg
t = t + 1
ActiveSheet.Hyperlinks.Add Anchor:=Range("a" & t), Address:=klsr, TextToDisplay:=klsr
Next

End Sub

 

[mrtyzc]

elinize sağlık çalışıyor macro.. tam istediğim gibi oldu..