Macro'yu bir klasördeki tüm dosyalara uygulamak

[sabun]

Record macro ile oluşturduğum bir macro var, aşağıdaki gibi. Bunu belli bir klasördeki tüm xls dosyalarına uygulamak istiyorum. Teker teker dosyaları açtığımda macro çalışıyor.

Sub tarih_duzenle()
Columns("B:B").Select
    Selection.Copy
    Columns("D:D").Select
    ActiveSheet.Paste
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("E1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=RC[-1]+7"
    Range("E1").Select
    Selection.AutoFill Destination:=Range("E1:E365"), Type:=xlFillDefault
End Sub

Aşağıdaki kodu modifiye ederek yapmaya çalıştım, klasördeki dosyaları açıyor, ancak macroyu çalıştırmıyor; kayıt da etmiyor. Yani bir xls dosyasından, başka bir klasördeki ( diyelim ki "C:\fimalar\tarih" ) çok sayıda dosyaya macroyu uygulayıp, hepsini yeni halleri ile kaydetmek istiyorum. Yardımcı olabileceklere şimdiden teşekkürler.

Sub tarih_al()
Dim VeriDosya
Dim i As Byte
ChDrive ("D")
ChDir ("D:\anet\tarih")
Dosya = Dir("*.xls")
    While Dosya <> ""
'
' buraya kod gelecek
'
        Workbooks(Dosya).Close
        Dosya = Dir
    Wend
End Sub

 

[Kemal Demir]

Sn.Sabun

ek'te küçük bir dosya hazırladım.

Sizin belirttiğiniz Dosya Dizin Doğrultusunda [( diyelim ki "C:\fimalar\tarih" ) ] ek'teki anasayfa ismindeki excel dosyasını acıp ctrl+r yapmanız yeterli olacaktır diye dusunuyorum.

Lütfen Dikkat:Kod Çalıştırmadan evvel Orginal Dosyalarınızı Yedekleyiniz yada Başka Folder 'a tasıyınız.

 

[psychic]

Böyle bi kod bana da lazım ama ekteki dosyaya ulaşamıyorum bunun nedeni nedir acaba?