Klasörleri dikey içindeki dosyaları yatay listeleme.

Katılım
5 Ocak 2020
Mesajlar
73
Excel Vers. ve Dili
2007
Altın Üyelik Bitiş Tarihi
22-02-2023
Merhaba arkadaşlar forumda dosya ve klasör listeletme ile ilgili bir çok konu var ama istediğim şekilde bulamadım.
Bir ana klasör içinde bir çok klasör ve alt klasör var.
Bu klasörlerin bazılarının içinde dosyalar var bazılarının ise alt klasörü var ve onların içinde dosyalar var.

Benim yapmak istediğim, makro ana klasörü tarayacak ve
tüm alt klasörleriyle birlikte içinde dosya olan klasörleri adresiyle birlikte a sütununda listeleyecek aşağı doğru.
Yani içinde açıkta dosya olmayan klasörü listelemeyecek, ama içinde başka bir klasör varsa ve dosyaları varsa onu listeleyek.
Dosyaları ise yatay olarak adresiyle birlikte o klasörün yanına listeleyecek.
Yardımcı olursanız sevinirim.
 

Ekli dosyalar

kulomer46

Altın Üye
Katılım
23 Mart 2007
Mesajlar
1,513
Excel Vers. ve Dili
Microsoft Office LTSC Professional Plus 2021 - Türkçe
Altın Üyelik Bitiş Tarihi
08-06-2027
Değerli Arkadaşım Merhaba

Aşağıdaki bağlantıda talebinizi karşılayan benzer çözüm bulunmaktadır.


Fazladanda örnek dosya Ek 'tedir.

Kolay Gelsin.

Selamlar...

Örnek Resim
234560
 

Ekli dosyalar

Katılım
5 Ocak 2020
Mesajlar
73
Excel Vers. ve Dili
2007
Altın Üyelik Bitiş Tarihi
22-02-2023
Teşekkürler faydalı bir dosya. Klasor adresini a sütununda o klasördeki dosyaları ise yanındaki sütunlara yatay sıralatmak mümkünmü?
 

kulomer46

Altın Üye
Katılım
23 Mart 2007
Mesajlar
1,513
Excel Vers. ve Dili
Microsoft Office LTSC Professional Plus 2021 - Türkçe
Altın Üyelik Bitiş Tarihi
08-06-2027
Merhaba

Bu dosyayı hazırlayalı 6 ayı geçti. Şu an bu programın kod hiyerarşisi ve kodların takib algoritması tam aklımda kalmadı. Yaklaşık 765 satırlık kod algoritmasını yeniden çözmek ve yeni taleplere göre düzenlemek gerekiyor.

Birde şu var. A Sütunundaki klasörün içerisinde alt klasörler ve alt klasörlerinde içerisinde yine dosyalar ve alt klasörler bulunsa, bunu karışıklığa meydan vermeden aynı satırdaki yan sütunlara nasıl yayacağız. Birde bu durum var.

Yukardaki #2 numaralı mesaj ekindeki dosyanın temel seviyede ihtiyacı karşılayacağını düşünüyorum.

Selamlar...
 
Katılım
5 Ocak 2020
Mesajlar
73
Excel Vers. ve Dili
2007
Altın Üyelik Bitiş Tarihi
22-02-2023
Merhaba

Bu dosyayı hazırlayalı 6 ayı geçti. Şu an bu programın kod hiyerarşisi ve kodların takib algoritması tam aklımda kalmadı. Yaklaşık 765 satırlık kod algoritmasını yeniden çözmek ve yeni taleplere göre düzenlemek gerekiyor.

Birde şu var. A Sütunundaki kalsörün içerisinde alt klasörler ve alt klasörlerinde içerisinde yine dosyalar ve alt klasörler bulunsa bunu karışıklığa meydan vermeden yan sütunlara nasıl yayacağız. Birde bu durum var.

Yukardaki #2 numaralı mesaj ekindeki dosyanın temel seviyede ihtiyacı karşılayacağını düşünüyorum.

Selamlar...
Teşekkür ederim.
 
Katılım
5 Ocak 2020
Mesajlar
73
Excel Vers. ve Dili
2007
Altın Üyelik Bitiş Tarihi
22-02-2023
Alternatif olarak
Bu dosyaya bir bak
Halit hocam eline sağlık istediğim gibi olmuş. Dosya isimlerini yazdırırken tam adresiyle yazdırabilirmiyiz?
sayfaya otomatik resim görüntüleme eklemeyi düşünüyorum, aktif hücredeki adresi alıcak.
 

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,800
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Kod:
Cells(sat, sut).Hyperlinks.Add Anchor:=Cells(sat, sut), Address:=yol, SubAddress:="" & firstAddress, TextToDisplay:=fL.GetBaseName(yol)

Cells(sat, sut).Hyperlinks.Add Anchor:=Cells(sat, sut), Address:=dosya, SubAddress:="" & firstAddress, TextToDisplay:=fL.GetBaseName(dosya.Name)
yukarıdaki bölümleri bul ve sırasıyla aşağıdakilerle değiştir.

Kod:
Cells(sat, sut).Hyperlinks.Add Anchor:=Cells(sat, sut), Address:=yol

Cells(sat, sut).Hyperlinks.Add Anchor:=Cells(sat, sut), Address:=dosya
 
Katılım
5 Ocak 2020
Mesajlar
73
Excel Vers. ve Dili
2007
Altın Üyelik Bitiş Tarihi
22-02-2023
Teşekkür ederim tam istediğim gibi oldu.Kandiliniz mübarek olsun.
 
Üst