Arkadaşlar Selamlar..
Modülde şöyle bir kod var
Sub Tak()
Dim Zaman As Date
Zaman = Now + TimeValue("00:00:01")
Application.OnTime Zaman, "Tik"
End Sub
Sub Tik()
Range("A1").Value = Now
Call Tak
End Sub
ThisWorkbook sayfasında ise
Private Sub Workbook_Open()
Call Tak
End Sub
A1 hücresi biçimide şöyle
gg.aa.yy - ss:dd:nn
Kısacası aktif tarih-saat-dakika-saniye var
Diğer bir modülde ise
Sub auto_open()
If Date < [A1] Then
Application.DisplayAlerts = False
su = MsgBox("Sistem tarihi veya saati hatalı. Bilgisayar tarihini veya saatini düzeltiniz." _
& vbLf & vbLf & " , ", vbInformation + vbOKOnly, "Tarih Hatalı")
ActiveWorkbook.Close True
End If
End Sub
Burdaki amaç programı kullan arkadaşların verileri eşzamanlı girmeleri çok önemli.
Ancak arkadaşlar bunu tarihi veya saati geri alarak gerçekleştiriyorlar.
Tarih veya saat hatalı olduğunda program mesaj gönderecek, sayfa açılmayacak.
Tarih düzeltilince tekrardan çalışmaya başlayacak.
Kodların nasıl olması gerekiyor.
Saygılar...
Modülde şöyle bir kod var
Sub Tak()
Dim Zaman As Date
Zaman = Now + TimeValue("00:00:01")
Application.OnTime Zaman, "Tik"
End Sub
Sub Tik()
Range("A1").Value = Now
Call Tak
End Sub
ThisWorkbook sayfasında ise
Private Sub Workbook_Open()
Call Tak
End Sub
A1 hücresi biçimide şöyle
gg.aa.yy - ss:dd:nn
Kısacası aktif tarih-saat-dakika-saniye var
Diğer bir modülde ise
Sub auto_open()
If Date < [A1] Then
Application.DisplayAlerts = False
su = MsgBox("Sistem tarihi veya saati hatalı. Bilgisayar tarihini veya saatini düzeltiniz." _
& vbLf & vbLf & " , ", vbInformation + vbOKOnly, "Tarih Hatalı")
ActiveWorkbook.Close True
End If
End Sub
Burdaki amaç programı kullan arkadaşların verileri eşzamanlı girmeleri çok önemli.
Ancak arkadaşlar bunu tarihi veya saati geri alarak gerçekleştiriyorlar.
Tarih veya saat hatalı olduğunda program mesaj gönderecek, sayfa açılmayacak.
Tarih düzeltilince tekrardan çalışmaya başlayacak.
Kodların nasıl olması gerekiyor.
Saygılar...