- Katılım
- 4 Mart 2012
- Mesajlar
- 69
- Excel Vers. ve Dili
- 2007
- Altın Üyelik Bitiş Tarihi
- 18-10-2022
Merhabalar...
Bir çalışma dosyam var..Bu dosyayı zaman ayarlı kaydetmek istiyorum. Her gün öğleden sonra dört buçukta kaydetmesi gerekiyor. Saati ve tarihi birer hücreye değişken olarak atadım.
Sayfa9.Range("x1") de değişken saatim var...Değer olarak 16:00:00 girilmiş durumda.
Sayfa9.Range("f7") de tarih var. Bugün() formülü ile günlük olarak çekmekteyim.
Kullandığım kaydetme kodunu otomatik olarak nasıl çalıştırabilirim?
Kodu aşağıya ekledim.
Yardımınızı bekliyorum.
Bir çalışma dosyam var..Bu dosyayı zaman ayarlı kaydetmek istiyorum. Her gün öğleden sonra dört buçukta kaydetmesi gerekiyor. Saati ve tarihi birer hücreye değişken olarak atadım.
Sayfa9.Range("x1") de değişken saatim var...Değer olarak 16:00:00 girilmiş durumda.
Sayfa9.Range("f7") de tarih var. Bugün() formülü ile günlük olarak çekmekteyim.
Kullandığım kaydetme kodunu otomatik olarak nasıl çalıştırabilirim?
Kodu aşağıya ekledim.
Yardımınızı bekliyorum.
Kod:
saat1 = Sayfa9.Range("X1")
zaman1 = Sayfa9.Range("f7").Value & "-" & saat1
zaman2 = Date & "-" & Time
Set ds = CreateObject("Scripting.FileSystemObject")
ThisWorkbook.Save
If ds.FolderExists("G:\Hikmet\Proje YEDEK\") = False Then
ds.CreateFolder "G:\Hikmet\Proje YEDEK\"
End If
If ThisWorkbook.Path = "G:\Hikmet\Proje YEDEK" Then Exit Sub
If zaman1 = zaman2 Then
tarih = Sheets("Anasayfa").Range("F7")
yol = "G:\Hikmet\Proje YEDEK\" & tarih & "-" & ThisWorkbook.Name
ds.CopyFile ThisWorkbook.FullName, yol
End If