dosya kaydetme makrosu

[noyfa]

merhaba arkadaşlar,

A klasörü içresinde kayıtlı birden fazla excel dosyası mevcut.
ben yaptığım yeni excel çalışma "deneme001" isminde (isimler değişebilir) A klasörüne kaydetmek istediğimde bu klasör içeresinde olan dosyalar taransın ve aynı isimden varsa uyarı versin kaydetmesin (mevcut olanı değiştirmesin, asla kaydetmesin) istiyorum.

Ayrıca A klasörü içerisindeki dosya isimleri de devamlı olarak A klasörü içerisindeki "A liste" excel sayfasına kaydedilsin istiyorum.

böyle bir makroda yardımlarınızı bekliyorum ve sağlıklı çalışır mı ?

 

[hamitcan]

Böyle deneyin.

Sub YoksaKaydet()
    dosyaismi = "deneme2"
     a = VBA.Dir(ThisWorkbook.Path & "\" & dosyaismi & ".xlsx")
    If a = "" Then
        ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & dosyaismi
    End If
End Sub