excel dosyasını iki ayrı yere kaydetme

[power]

hocam,
kodu f8 ile satır satır çalıştırırsam olması gerektiği gibi her iki dizinede kaydediyor.kaydet butonuyla kaydettiğim zaman açtığım dosyaya kaydediyor fakat diğer dizine kaydetmiyor.

 

[PLİNT]

Ben denediğimde anormallik olmadı ama;
Ekteki gibi
"Kayıt" makrosu butonada eklenebilir
https://www.dosyaupload.com/barf

 

[power]

EmrExcel16
sizin verdiğiniz kod'da kayıt dizinini değiştiremedim.birde dosya ismi aynı olduğu halde ayrı ayrı dosyalar oluşuyor.ben mevcut dosyanın üzerine kayıt etmesini istiyorum.

 

[EmrExcel16]

EmrExcel16
sizin verdiğiniz kod'da kayıt dizinini değiştiremedim.birde dosya ismi aynı olduğu halde ayrı ayrı dosyalar oluşuyor.ben mevcut dosyanın üzerine kayıt etmesini istiyorum.

İsteğiniz ayrı bir kopyası oluşması değil mi ?

 

[power]

doğru ayrı bir adet dosya oluşmasını istiyorum.misal beş defa kaydet butonuna basarsam beş tane ayrı ayrı dosya oluşuyor.Flaş'ta çalışırken bir yedeğini d: dizinine atmasını istiyorum.en son halini yani.

 

[EmrExcel16]

Gönderdiğim dosyayı bir flaş a aldım , dosyayı açtım ve kaydet dedim , masaüstüne bir kopyasını aldı, bir daha kaydet dedim masaüstündeki dosyayı yeniledi. yenisini oluşturmadı. Bu şekilde denediğinizde sizde neler oluyor , dosyada hiç oynama yapmadan deneyin.

 

[power]

haklısınız hocam tek bir adet dosya üretti.dizini değiştirmek için denemeler yapmıştım ondan oldu galiba.dizini nasıl değiştireceğim hocam?

 

[EmrExcel16]

Bu şekilde deneyin. Path kısmını kendinize göre ayarlayın.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim path As String
    On Error Resume Next
    path = "C:\Users\Desktop\Macro"  'isteğe göre değiştiriniz.
    ThisWorkbook.SaveCopyAs path & "\" & "Kopya" & ThisWorkbook.Name
End Sub

 

[power]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim path As String
On Error Resume Next
path = "D:\" 'isteğe göre değiştiriniz.
ThisWorkbook.SaveCopyAs path & "\" & "Kopya" & ThisWorkbook.Name
End Sub

bu şekilde yazdım.Fakat d: ye kopya oluşturmuyor.

 

[EmrExcel16]

Birde bu şekilde deyin ,path = "D:" eğer olmaz ise normalde oraya manaul olarak dosya ekleyebiliyor musunuz ona bakın.

 

[power]

path = "D:"
bu şekilde oldu hocam.Çok teşekkür ederim:Emeğine sağlık.

 

[EmrExcel16]

Rica ederim , kolay gelsin.

 

[power]

PLİNT hocam,
sizede çok teşekkür ederim.