Dosya Kaydetme Hk

[bulentkars]

Arkadaşlar Herkese iyi akşamlar.

Çalışma kitabını kaydet yaptığımda dosyanın olduğu yere ve C:\YEDEK Klasörünün içine nasıl kaydedebilirim.Örneğin dosya masa üstünde dosyayı açıp kaydet düğmesine bastığımda hem masaüstü hemde C:\YEDEK klasörüne kaydetmek istiyorum.Bu konuda yardımcı olursanız sevinirim.

 

[Ömer]

Merhaba,

Sub Kayıt()
Dim a
a = Split(ActiveWorkbook.Name, ".x")
DosyaAdı = a(0) & ".xls"
ActiveWorkbook.SaveCopyAs "C:\Yedek\" & DosyaAdı
ActiveWorkbook.Save
End Sub

Butona bağlayarak çalıştırınız..

.

 

[bulentkars]

Ömer Bey Merhaba
Butona bağlamdan yapmamız mümkün değilmi yani kaydet diğmesine basıldığında işlemi yapsın.

 

[Ömer]

ThisWorkbook sayfasına kopyalayınız..

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim a
a = Split(ActiveWorkbook.Name, ".x")
DosyaAdı = a(0) & ".xls"
ActiveWorkbook.SaveCopyAs "C:\Yedek\" & DosyaAdı
ActiveWorkbook.Save
End Sub

.

 

[bulentkars]

Ömer Bey

İlginiz için çok teşekkür ederim.Emeğinize sağlık.