DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub auto_open()
Application.OnTime Now + TimeValue("00:00:30"), "kayit"
End Sub
Sub kayit()
ActiveWorkbook.Save
auto_open
End Sub
Kod:Sub auto_open() Application.OnTime Now + TimeValue("00:00:30"), "kayit" End Sub Sub kayit() ActiveWorkbook.Save auto_open End Sub