+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Önce Bul Sonra Kaydet Veya Farklı Kaydet (/konu-once-bul-sonra-kaydet-veya-farkli-kaydet.html)
Cvp: Önce Bul Sonra Kaydet Veya Farklı Kaydet - comp_wolf - 29/04/2019
(29/04/2019, 14:16)haliliyas yazdı: aslında gerçekten anlamadım galiba
çünkü bence istediğiniz şey ile benim yaptığım aynı
c:\a\b\ ile
daha önceden belirttiğiniz uzun adres arasında fark yok
kendi bilgisayarımda denediğimde yazdığım adresteki ayna ada sahip dosyayı aktif dosya olarak güncelledi
ActiveWorkbook.SaveAs "c:\a\b\" & ActiveWorkbook.Name
üstat sizin verdiğiniz kod ile yapınca farklı kaydet olduğu için dosya adı zaten var üzerine kaydetmek istiyormusunuz diyor.
ama ben
ThisWorkbook.Save "\\10.0.0.10\ortakdata\HASARLI ARAÇLAR TAKİBİ\ARŞİV\HASARLI DOSYA KARDEDİLEN ARAÇ ARŞİVİ\" & ActiveWorkbook.Name
farklı kaydet değil işaretlediğim kodun yaptığı gibi mevcut kaydet istiyorum. ben bu yazdığım şekilde kodu kullanamıyorum bunu nasıl kullanabilirim acaba ?
Cvp: Önce Bul Sonra Kaydet Veya Farklı Kaydet - berduş - 29/04/2019
ben de hatlar koptu))
aktif dosyadaki değişiklikler ayna ada sahip yedek Excel dosyasına da mı kayedilsin?
siz başka klasöre kaydetmek istediğinizde her zaman "saveas" kullanılır.
mesela Excel dosyanızı excelin kendi menüsünden girerek farklı bir yere kaydetmek istediğinizde
yine "farklı kaydet" der ama aslında yaptığı aktif dosyanızı farklı yere kaydeder.
şimdi anlaşılır olması için daha açık sorayım
aktif dosyanız==> d:\a\b\wolf.xlsm
ise
daha önce oluşturulmuş yedek dosyanız da ==>d:\arşiv\yedek\wolf.xlsm
ise eski dosyayı güncelleyip yeni dosya ile aynı veriye sahip olmasını istiyorsanız gerekli kod
ActiveWorkbook.SaveAs "d:\arşiv\yedek\" & ActiveWorkbook.Name bana böyle adım adım mümkün olduğunca basit anlatırmısınız
Cvp: Önce Bul Sonra Kaydet Veya Farklı Kaydet - comp_wolf - 29/04/2019
(29/04/2019, 15:07)haliliyas yazdı: ben de hatlar koptu))üstat
aktif dosyadaki değişiklikler ayna ada sahip yedek Excel dosyasına da mı kayedilsin?
siz başka klasöre kaydetmek istediğinizde her zaman "saveas" kullanılır.
mesela Excel dosyanızı excelin kendi menüsünden girerek farklı bir yere kaydetmek istediğinizde
yine "farklı kaydet" der ama aslında yaptığı aktif dosyanızı farklı yere kaydeder.
şimdi anlaşılır olması için daha açık sorayım
aktif dosyanız==> d:\a\b\wolf.xlsm
ise
daha önce oluşturulmuş yedek dosyanız da ==>d:\arşiv\yedek\wolf.xlsm
ise eski dosyayı güncelleyip yeni dosya ile aynı veriye sahip olmasını istiyorsanız gerekli kod
yani yeni yedek dosyanız da ==>d:\arşiv\yedek\wolf.xlsm olurActiveWorkbook.SaveAs "d:\arşiv\yedek\" & ActiveWorkbook.Name
bana böyle adım adım mümkün olduğunca basit anlatırmısınız
1-
ilk dosyamı açtık ve yaptığımız butona basarak
önce
aktif dosyamız ==> d:\a\b\wolf.xlsm
kaydetti.
işlem devam ederken de aynı anda
yedek dosyamız da ==>d:\arşiv\yedek\wolf.xlsm
olarak da kaydetti ve dosyamız kapandı.
yani ilk açılışı yaptık aynı anda bu iki yere kaydetti ve kapadı.
daha sonra kaydettiğim dosyayı
2-
aktif dosyamız ==> d:\a\b\wolf.xlsm
konumunda bulunan dosyamı açtım üzerinde ilaveler değişiklikler yaptım ve yeniden kapadım
ThisWorkbook.Save
bu kod ile mevcut dosyamın üzerine kaydetti ama ben aynı zamanda da
daha önceden yedeğini kaydettiğim
yedek dosyamız ==>d:\arşiv\yedek\wolf.xlsm
konumunda bulunan aynı isimli dosyamda da güncellenmesini istiyorum (yani 2 diye yazdığım işlemde değişiklik yaptım)
bu yaptığım değişikliğin hem aktif dosya konumunda hemde yedeklediğimde olmasını istiyorum.
daha nasıl açık anlatabilirim.
Cvp: Önce Bul Sonra Kaydet Veya Farklı Kaydet - berduş - 29/04/2019
anlaşamadığımız kesin benim verdiğim
==> ActiveWorkbook.SaveAs "d:\arşiv\yedek\" & ActiveWorkbook.Name kodunu
==>ThisWorkbook.Save kodunun altına yazınca
ThisWorkbook.Save
ActiveWorkbook.SaveAs "d:\arşiv\yedek\" & ActiveWorkbook.Namezaten sizin istediğinizi yapmıyor mu?
aynı ada sahip yedek dosyanızı güncellemiyor mu?
==> ActiveWorkbook.SaveAs "d:\arşiv\yedek\" & ActiveWorkbook.Name <== kodunu nereye yazdınız? ne yapıyor, hangi dosyayı güncelliyor?
kendi bilgisayarımda denediğimde bu kod yedek Excel dosyamı da güncelledi.
Cvp: Önce Bul Sonra Kaydet Veya Farklı Kaydet - comp_wolf - 29/04/2019
(29/04/2019, 16:35)haliliyas yazdı: anlaşamadığımız kesin benim verdiğim
==> ActiveWorkbook.SaveAs "d:\arşiv\yedek\" & ActiveWorkbook.Name kodunu
==>ThisWorkbook.Save kodunun altına yazınca
ThisWorkbook.Save
ActiveWorkbook.SaveAs "d:\arşiv\yedek\" & ActiveWorkbook.Name
zaten sizin istediğinizi yapmıyor mu?
aynı ada sahip yedek dosyanızı güncellemiyor mu?
==> ActiveWorkbook.SaveAs "d:\arşiv\yedek\" & ActiveWorkbook.Name <== kodunu nereye yazdınız? ne yapıyor, hangi dosyayı güncelliyor?
kendi bilgisayarımda denediğimde bu kod yedek Excel dosyamı da güncelledi.
üstadım sizin dediğiniz kodu yazınca dosya adı mevcut yinede kaydetmek istiyormusunuz diye uyarı veriyor.
benim dediğimi siz anlamıyorsunuz.
ben uyarı vermeden kaydetmesini istiyorum.
farklı kaydet ile değil.
kaydet ile nasıl yaparız diyorum anlamıyorsunuz sanırım. ben anlatamadım herhalde size.
Cvp: Önce Bul Sonra Kaydet Veya Farklı Kaydet - berduş - 29/04/2019
Application.DisplayAlerts = False
ThisWorkbook.Save
ActiveWorkbook.SaveAs "d:\arşiv\yedek\" & ActiveWorkbook.Name
Application.DisplayAlerts = true