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:01"), "Saat"
End Sub
Sub Saat()
DoEvents
Sheets("[COLOR=red]Sayfa1[/COLOR]").[[COLOR=red]A1[/COLOR]] = Now
Auto_Open
End Sub