Bir Klasör İçinde Dosya ve Sekmelerine Erişebilme Hakkında Bilgi

[Yesilyurtlu]

Tüm Ağabeylerime Kolay Gelsin.

Kafama takılan bir konu hakkında siz değerli ağabeylerimden bilgi istiyorum.
Konuyu kısaca arz edeyim.
Belgelerim klasöründe (TAŞINIR) adında bir klasör ve bu klasörün içine 26 yada 27 tane dosya oluşturulmuş.Bu dosyalar birbirleri ile bağlantılı bilgiler içermekte. Her bir dosya en aşağı 6 sayfadan oluşmakta.

Aşağıda istediğim şey acaba excelde olur mu diyerek sizlerden bilgi istiyorum.

TAŞINIR Klasörün içine ANADOSYA diye bir dosya oluştursak ve bu dosyaya
Muhammen Bedel Dosyası
..... sayfası
..... sayfası
.....sayfası diye belirtsek ve bunlara link atsak ve direk o sayfayı açsak açtığımız sayfaya da ANADOSYA diye geri dönebileceğimiz bir düğme koysak

Bu istediğim excelde mümkün mü? Ya da daha farklı yolu var mı? Yardımlarınızı bekliyorum.
Allah Razı olsun

 

[Ömer]

Merhaba,

Ekle / Köprü seçeneğinden Link vererek yapabilirsiniz..

.

 

[Yesilyurtlu]

espiyonajl uzmanım

Bunun haricinde başka bir yol olabilirmi? Varsa eğer paylaşabilirmisiniz.
Allah Razı Olsun

 

[tahsinanarat]

Sub linkver()
Range("a:a").ClearContents
Dim col As New Collection
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
col.Add "c:\Sevk"
bas = 1: son = 1
tara:
For x = bas To son
yol = col(x)
GoSub alt_dizinleri_bul
Next
If col.Count > son Then
bas = son + 1
son = col.Count
GoTo tara
Else
GoTo dosyalar
End If

alt_dizinleri_bul:
Set fp = fso.GetFolder(yol).subfolders
If Not fp Is Nothing Then
For Each S In fp
col.Add S.Path, S.Path
Next S
End If
Return
dosyalar:
For Each fdir In col
Set Sub_Dir = fso.GetFolder(fdir).Files
For Each dosya In Sub_Dir
t = t + 1
ActiveSheet.Hyperlinks.Add Anchor:=Cells(t, 1), Address:=dosya.Path, TextToDisplay:=dosya.Path
Next dosya
Next fdir
Set Sub_Dir = Nothing
Set fp = Nothing
Set fso = Nothing
End Sub

 

[baydeniro]

Sayın tahsinararat çok teşekkür ederim.

 

[Yesilyurtlu]

Sevgili Tahsin ARAT Ağabeyim.

İşyerinde internete bağlanmamız sorun teşkil ettiği için TEŞEKKÜR edemedim. Affınıza sığınırak Sonsuz teşekkürlerimi gecikmeli olarak sunuyorum. Allah sizden ve espiyonajl uzmanımdan razı olsun.