makro le farklı dosyaya farklı kaydettirmek

[seyehat25]

Öncelikle hepinize kolay gelsin değerli arkadaşlarım.
Sorum:hazırladığım "hesap kitap" adlı dosyama her farklı kaydet dediğimde "b58" hücresindeki değeri "\\Server01\ortak\TALEPFORM\arsiv.xls"dosyasına kaydetsin ama her farklı kaydeti de arsiv.xls deki "a1" sütünuna altalta eklesin "adı gibi arsiv" yani...aher kaydet dediğimde isim biticek inanın sıkıştım kaldım işin sonundayım.

******************************************************
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "\\Server01\ortak\TALEPFORM\" & [talep!b58]
End Sub
******************************************************

 

[ftekin]

EK'teki dosyada küçük bir örnek hazırladım.

Hesap kitap dosyasını her kaydet dediğiniz de VERİ sayfasının B1 hücresindeki değeri arsiv.xls dosyasının a sütunundaki son satıra yazıyor.

Tabi dosyaların yolunu ve hücrelerin değerlerini siz kendinize uyarlarsınız artık.

Kolay gelsin...

 

[seyehat25]

çok teşekkür ediyorum ilginiz için...