Help with VB Code Please

[Get_Involved]

I have this VB code in Module1

Dim TimerActive As Boolean
Sub StartTimer()
    Start_Timer
End Sub
Private Sub Start_Timer()
    TimerActive = True
    Application.OnTime Now() + TimeValue("00:00:01"), "Timer"
End Sub
Private Sub Stop_Timer()
    TimerActive = False
End Sub
Private Sub Timer()
    If TimerActive Then
        ActiveSheet.Cells(6, 3).Value = Time
        Application.OnTime Now() + TimeValue("00:00:01"), "Timer"
    End If
End Sub

And this code in ThisWorkbook

Private Sub Workbook_Open()
    Module1.StartTimer
End Sub

The clock works perfect, but date is 1/0/00

Can someone help me to get it to show today’s month/day/year and time?

 

[NARAYANK991]

Hi ,

Replace this line of code :

ActiveSheet.Cells(6, 3).Value = Time

by this :

ActiveSheet.Cells(6, 3).Value = Date + Time

 

[Logit]

.
Or :

Option Explicit


Dim TimerActive As Boolean
Sub StartTimer()
    Start_Timer
End Sub
Private Sub Start_Timer()
    TimerActive = True
    Application.OnTime Now() + TimeValue("00:00:01"), "Timer"
End Sub
Private Sub Stop_Timer()
    TimerActive = False
End Sub
Private Sub Timer()
    If TimerActive Then
        ActiveSheet.Cells(6, 3).Value = Now()
        Application.OnTime Now() + TimeValue("00:00:01"), "Timer"
    End If
End Sub

Format C6 as CUSTOM / m/d/yyyy h:mm:ss

 

[Get_Involved]

Thanks LOgit and NARAYANK991 got it to work thanks a bunch

 

[Logit]

.
You are welcome