- Katılım
- 31 Aralık 2011
- Mesajlar
- 378
- Excel Vers. ve Dili
- 2016 türkçe
- Altın Üyelik Bitiş Tarihi
- 08-10-2020
Merhabalar
Arkadaşlar aşağıdaki vba kodu ile belirli bir süre geçtikten sonra çalışma kitabı kaydediliyor. Vba kodu çalıştıktan sonra ve kayıt işleminden sonra Control+Z "Geri al" butonu kullanılmıyor ve işlemleri geri alamıyorum. bunun için bir yöntem var mı? vba çalıştıktan sonra geri al butonunu kullanabilir miyim?
Teşekkürler.
Public Onceki As Date
Sub AutoSave()
Dim Suan As Date, Dakika As Integer, Sure As Integer, KayitAktif As String
KayitAktif = Sheets("Ayarlar").Range("A2")
Sure = Sheets("Ayarlar").Range("B2")
Suan = Time
Dakika = DateDiff("n", Onceki, Suan)
If KayitAktif = "Aktif" Then
If Dakika >= Sure Then
Onceki = Time
ActiveWorkbook.Save
Else
End If
End If
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
AutoSave
End Sub
Arkadaşlar aşağıdaki vba kodu ile belirli bir süre geçtikten sonra çalışma kitabı kaydediliyor. Vba kodu çalıştıktan sonra ve kayıt işleminden sonra Control+Z "Geri al" butonu kullanılmıyor ve işlemleri geri alamıyorum. bunun için bir yöntem var mı? vba çalıştıktan sonra geri al butonunu kullanabilir miyim?
Teşekkürler.
Public Onceki As Date
Sub AutoSave()
Dim Suan As Date, Dakika As Integer, Sure As Integer, KayitAktif As String
KayitAktif = Sheets("Ayarlar").Range("A2")
Sure = Sheets("Ayarlar").Range("B2")
Suan = Time
Dakika = DateDiff("n", Onceki, Suan)
If KayitAktif = "Aktif" Then
If Dakika >= Sure Then
Onceki = Time
ActiveWorkbook.Save
Else
End If
End If
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
AutoSave
End Sub