AccessTr.neT

(29/04/2019, 11:51)haliliyas yazdı: [ -> ]yedekleme adresinde mi sorun var acaba?
ACTIVEWORKBOOK.SAVEAS (“DosyaYolu_Ve_Adı”) 'mesela 

ActiveWorkbook.SaveAs "C:\comp\wolf\Denedimdeolmadı.xlsm"

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 ?

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\

(29/04/2019, 12:04)haliliyas yazdı: [ -> ]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\

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 ?

eğer yanlış anlamadıysam;
dosyanın yedeği dosya ile aynı ada sahip olacak ama adresi farklı olacak?
dilerim işinize yarar

ActiveWorkbook.SaveAs "\\10.0.0.10\ortakdata\HASARLI ARAÇLAR TAKİBİ\ARŞİV\HASARLI DOSYA KARDEDİLEN ARAÇ ARŞİVİ\" & ActiveWorkbook.Name

(29/04/2019, 12:44)haliliyas yazdı: [ -> ]eğer yanlış anlamadıysam;
dosyanın yedeği dosya ile aynı ada sahip olacak ama adresi farklı olacak?
dilerim işinize yarar

ActiveWorkbook.SaveAs "\\10.0.0.10\ortakdata\HASARLI ARAÇLAR TAKİBİ\ARŞİV\HASARLI DOSYA KARDEDİLEN ARAÇ ARŞİVİ\" & ActiveWorkbook.Name

ü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.

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