excel dosyasını iki ayrı yere kaydetme

Katılım
8 Aralık 2006
Mesajlar
218
Excel Vers. ve Dili
Excel 2002
Türkçe
Altın Üyelik Bitiş Tarihi
15.06.2020
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.
 
Katılım
8 Aralık 2006
Mesajlar
218
Excel Vers. ve Dili
Excel 2002
Türkçe
Altın Üyelik Bitiş Tarihi
15.06.2020
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.
 
Katılım
8 Aralık 2006
Mesajlar
218
Excel Vers. ve Dili
Excel 2002
Türkçe
Altın Üyelik Bitiş Tarihi
15.06.2020
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

Destek Ekibi
Destek Ekibi
Katılım
1 Kasım 2012
Mesajlar
1,524
Excel Vers. ve Dili
Office 365 Türkçe
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.
 
Katılım
8 Aralık 2006
Mesajlar
218
Excel Vers. ve Dili
Excel 2002
Türkçe
Altın Üyelik Bitiş Tarihi
15.06.2020
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

Destek Ekibi
Destek Ekibi
Katılım
1 Kasım 2012
Mesajlar
1,524
Excel Vers. ve Dili
Office 365 Türkçe
Bu şekilde deneyin. Path kısmını kendinize göre ayarlayın.
Kod:
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
 
Katılım
8 Aralık 2006
Mesajlar
218
Excel Vers. ve Dili
Excel 2002
Türkçe
Altın Üyelik Bitiş Tarihi
15.06.2020
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

Destek Ekibi
Destek Ekibi
Katılım
1 Kasım 2012
Mesajlar
1,524
Excel Vers. ve Dili
Office 365 Türkçe
Birde bu şekilde deyin ,path = "D:" eğer olmaz ise normalde oraya manaul olarak dosya ekleyebiliyor musunuz ona bakın.
 
Katılım
8 Aralık 2006
Mesajlar
218
Excel Vers. ve Dili
Excel 2002
Türkçe
Altın Üyelik Bitiş Tarihi
15.06.2020
path = "D:"
bu şekilde oldu hocam.Çok teşekkür ederim:Emeğine sağlık.
 

EmrExcel16

Destek Ekibi
Destek Ekibi
Katılım
1 Kasım 2012
Mesajlar
1,524
Excel Vers. ve Dili
Office 365 Türkçe
Rica ederim , kolay gelsin.
 
Katılım
8 Aralık 2006
Mesajlar
218
Excel Vers. ve Dili
Excel 2002
Türkçe
Altın Üyelik Bitiş Tarihi
15.06.2020
PLİNT hocam,
sizede çok teşekkür ederim.
 
Üst