(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 ?