Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
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
Lutfen yanlış dusunmelere zemin vermeyin bu uygulama eğer dosya boyutunuz çok buyukse dosyanızın yavas calısmasına neden olacaktır uyarı ondandır İyi çalısmalar
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.