veri alınan dosya ismini 2.sayfada yazsın

[polis-53]

Merhaba arkadaşlar ekte gönderdiğim klasörün içindeki dosyaları icmal dosyasına verileri aldığımız zaman hangi dosyalardan veri aldıysa isimlerini icmal dosyasının 2.sayfasına yazsın.

 

[Husgvarna]

Kodlarınızdaki aşağıdaki aralığa: kırmızı bölümü ekleyin.

'.............
'....................
For Each dosya In dc
If ThisWorkbook.Name <> dosya.Name Then


[COLOR="Red"]t = Sheets("Sayfa2").Cells(65000, 1).End(xlUp).Row + 1
Sheets("Sayfa2").Cells(t, 1) = t - 1
Sheets("Sayfa2").Cells(t, 2) = Split(dosya.Name, ".")[/COLOR]


For Z = 5 To 39
If Not IsNumeric(Cells(Z, 2)) Then GoTo f: 
'............................

 

[polis-53]

çok teşekkür ederim iyiki varsın allah ne muradın varsa versin
BİR SORUNLA DAHA KARŞILAŞTIM TAMAM VERMİŞ OLDUĞUNUZ KOD ÇOK GÜZEL ÇALIŞIYOR FAKAT 2. HESAPLAMADA İSTİYORUMKİ 1. HESAPLAMADA SAYFA2 YE GELEN DOSYA İSİMLERİNİ 2. KEZ HESAPLAMA YAPTIRDIĞIMDA İKİ KEZ DOSYA İSİMLERİNİ YAZIYOR OYSA YAZMASIN OLMAYAN DOSYA İSMİ VARSA ONU YAZSIN.

 

[Husgvarna]

Merhaba.
Yine kırmızı bölüm.

  Private Sub CommandButton1_Click()
Range("b5:d23, b25:d26,b29:d32,b36:e37, b39:e39, f5:f39") = ""

[COLOR="Red"]Sheets("Sayfa2").[a2:b65000] = ""[/COLOR]

 

[polis-53]

eyvallah sağolun