Kaydet DedİĞİmde A1 HÜcresİndekİ DeĞerle Kaydetsİn?

[seyehat25]

Merhabalar DeĞerlİ ArkadaŞlar ...
HazirladiĞim Dosya Bİ Form Şeklİnde Ve Her Bİrİ Serİ Olarak Artiyo Bende Örn. A1 HÜcresİndekİ Serİ Numaramla Dİrek Kayit Ettİrmek İstİyorum Dosyami.
(a1= Benİm Serİ Numaram=pr0802-2)
Kaydet Veya Farkli Kaydet DedİĞİmde Dosya Adi Dİrek(pr0802-2)olsun
Her Seferİnde Dosya Adina Serİ Nomu Gİrmeye Gerek Kalmasin.
Bİrde Kayit Edİlecek Yerİde Belİrleyebİlİr Mİyİm?(c:\evraklarim\... Gİbİ)
Şİmdİden Hepİnİze TelekÜr Edİyorum.

 

[Levent Menteşoğlu]

Aşağıdaki kodu thisworkbook kod sayfasına kopyalayın. Her kaydetme işleminde sayfa1 A1 hücresindeki veriyi dosya adı olarak kabul edecektir.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "c:\evraklarim\" & [sayfa1!a1]
End Sub

 

[seyehat25]

Öncelikle ilginiz için teşekkürler Leventm.Yazdığınız kodu kullanıyorum istediğim işi yapıyor ama "kaydet" deyince hata raporu veriyor!Gerçi farklı kaydet deyince sorun olmuyor ama aynı işleyişi kayedete yapablirsek ve her kaydettiğimde belirlediğim hücreye +1 şeklinde b değer arttırabilir mi?.çook teşekkürler