Çözüldü Klasör İçeriğini Excele Aktar Yardım

[hasanyaprak]

Merhaba Arkadaşlar,
Ekli dosyayı kendime göre uyarladım. Çözüm elde edemediğim iki konu var.

1. Konu: A1 ve B1 hücrelerini başlık ve filtreleme amacıyla kullanmak istiyorum buralara veri yazmasın istemekteyim.
2. Konu: Listelemeyi yapmak için illa bir klasöre atmak zorundasınız. Buradaki klasör ve dosya adlarını ancak klasör altına atılırsa yazıyor. Birçok farklı yerde dosyalarım var ve her birine ayrı ayrı atmak gerekecek. F3 hücresine işlem yapmak istediğim yolu girerek klasör ve dosya isimlerini elde etmek istemekteyim.

Şimdiden teşekkür ederim.

 

[hasanyaprak]

Konu günceldir

 

[ÖmerBey]

Merhaba,
Kod içindeki satırları aşağıdaki şekilde değiştiriniz.
yol = ThisWorkbook.Path ==> yol = Range("F3").Text (3 tane var)
Cells(Say, 1) = yol ==> Cells(Say + 1, 1) = yol
Cells(x, 1) = deg(x) ==> Cells(x + 1, 1) = deg(x)
Cells(Say, 2) = dosya ==> Cells(Say + 1, 2) = dosya

 

[hasanyaprak]

Merhaba,
Kod içindeki satırları aşağıdaki şekilde değiştiriniz.
yol = ThisWorkbook.Path ==> yol = Range("F3").Text (3 tane var)
Cells(Say, 1) = yol ==> Cells(Say + 1, 1) = yol
Cells(x, 1) = deg(x) ==> Cells(x + 1, 1) = deg(x)
Cells(Say, 2) = dosya ==> Cells(Say + 1, 2) = dosya

Hocam teşekkür ettim sorunsuz çalışıyor.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...