Önce Bul Sonra Kaydet Veya Farklı Kaydet - Baskı Önizleme +- 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, 11:51)haliliyas yazdı: yedekleme adresinde mi sorun var acaba? yok yedekleme adresinde de sorun yok ama o kod ile farklı kaydet yapıyor. zaten ben dosyada ilk değişiklik yaptıktan sonra kaydedince otomatik hem yeni klasörün içine hemde yedekleme yapacağı konuma ilk kayıtlarını yapıyor. ben daha sonra açıp değişiklik yaptığım zaman ThisWorkbook.Save kodu ile üzerine kaydediyorum mevcut konumuna yalnız ben yedekleme yaptığım klasörün içindeki aynı isimdeki dosyanın üzerine yeniden kayıt yapsın yedeklemem de güncellensin istiyorum. ben bu kodlar ile farklı kaydedi yapıyorum '________________________________________________________________________ Dim dosyamilkkyt As String Dim dosyamarsvkyt As String With Sheets("HASAR") dosyamilkkyt = "\\10.0.0.10\ortakdata\HASARLI ARAÇLAR TAKİBİ\İŞLEMİ DEVAM EDEN HASARLI ARAÇLAR\" & .Range("G6").Value & " " & .Range("G7").Value & Tarihklasör & "\" & .Range("G6").Value & "_" & .Range("G7").Value & Tarih & ".xlsm" 'İLK AÇILIŞ KAYDI dosyamarsvkyt = "\\10.0.0.10\ortakdata\HASARLI ARAÇLAR TAKİBİ\ARŞİV\HASARLI DOSYA KARDEDİLEN ARAÇ ARŞİVİ\" & .Range("G6").Value & "_" & .Range("G7").Value & Tarih & ".xlsm" 'ARŞİV KAYDI ActiveWorkbook.Save Filename:=dosyamilkkyt ActiveWorkbook.Save Filename:=dosyamarsvkyt End With '________________________________________________________________________ aynı şekil de de kaydet nasıl yapabilirim ? anlaşılır oldumu acaba ? Cvp: Önce Bul Sonra Kaydet Veya Farklı Kaydet - berduş - 29/04/2019 yedekleme klasörünüz yapısı ne? örnek dosya yolu ve ismi veriri misiniz? mesele aktif dosya için: Adı : Aktif.xlsm konumu: "d:\wolf\comp\Aktif\ yedek dosyası için: Adı : Aktif_yedek.xlsm konumu: "d:\wolf\comp\Aktif\yedek\ Cvp: Önce Bul Sonra Kaydet Veya Farklı Kaydet - comp_wolf - 29/04/2019 (29/04/2019, 12:04)haliliyas yazdı: yedekleme klasörünüz yapısı ne? aktif dosya için adı : & .Range("G6").Value & "_" & .Range("G7").Value & Tarih & ".xlsm" konumu : "\\10.0.0.10\ortakdata\HASARLI ARAÇLAR TAKİBİ\İŞLEMİ DEVAM EDEN HASARLI ARAÇLAR\" & .Range("G6").Value & " " & .Range("G7").Value & Tarihklasör & "\" yedek dosya için adı : & .Range("G6").Value & "_" & .Range("G7").Value & Tarih & ".xlsm" konumu : "\\10.0.0.10\ortakdata\HASARLI ARAÇLAR TAKİBİ\ARŞİV\HASARLI DOSYA KARDEDİLEN ARAÇ ARŞİVİ\" yukarıda yazılan gibi. ama aktif dosyayı zaten ThisWorkbook.Save dediğim zaman üzerine kaydını yapıyor. ben sadece yedeğinde üzerine kayıt yapmasını istiyorum ? Cvp: Önce Bul Sonra Kaydet Veya Farklı Kaydet - berduş - 29/04/2019 eğer yanlış anlamadıysam; dosyanın yedeği dosya ile aynı ada sahip olacak ama adresi farklı olacak? dilerim işinize yarar
Cvp: Önce Bul Sonra Kaydet Veya Farklı Kaydet - comp_wolf - 29/04/2019 (29/04/2019, 12:44)haliliyas yazdı: eğer yanlış anlamadıysam; üstat demek istediği anlamadınız sanırım. ben sizden başka bir şey istesem. c:\a\b\ klasörümün içinde birden fazla exel dosyam var. ben bunların içinden ActiveWorkbook.Name olanını bulup ThisWorkbook.Save yapmak istiyorum. siz o kudu verirseniz ben bu şekilde istediğimi yapabileceğim. Cvp: Önce Bul Sonra Kaydet Veya Farklı Kaydet - berduş - 29/04/2019 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
|