VBA Form - Need Button - Time - Start & pause

[Sunil7598]

Hi All,

I have vba userform you can find ss below. When a user clicks on pause it changes to resume but its not changing to pause when clicking resume. And I want calculate time between those clicks

Here is a code that I used. This code is in command button
Private Sub CommandButton3_Click()
Static startTime As Date
Static pauseTime As Date
Static isPaused As Boolean


If Not isPaused Then
' Start the timer
startTime = Now()
CommandButton3.Caption = "Resume"
isPaused = False
Else

' Pause the timer
pauseTime = Now()
CommandButton3.Caption = "Pause"
isPaused = True
End If

End Sub


This code is in form
Private Sub UserForm1_Activate()
' Initialize the timer
startTime = Now()
pauseTime = startTime
End Sub


Dim elapsedTime As Date
If isPaused Then
elapsedTime = pauseTime - startTime
Else
elapsedTime = Now() - startTime
End If
ThisWorkbook.Sheets("Form").Range("G2").Value = Format(elapsedTime, "hh:mm:ss")


Please help me in solving this. Am trying to get it from 4 days
Thanks in Advance

 

[rabsofty]

your code

If Not isPaused Then

should be

If isPaused Then

Using NOT makes isPaused false
so when the button is = to pause isPaused =True

 

[dmt32]

Hi,

Just an observation,

your code shows that you have renamed the UserForm Activate event to UserForm1_Activate and in doing so, will not work as required.
It must be UserForm_Activate regardless of your userform name.

Never change this or any other events name

Dave

 

[Sunil7598]

your code

If Not isPaused Then

should be

If isPaused Then

Using NOT makes isPaused false
so when the button is = to pause isPaused =True

this is not working. Pause button is not changing to resume

 

[Sunil7598]

Hi,

Just an observation,

your code shows that you have renamed the UserForm Activate event to UserForm1_Activate and in doing so, will not work as required.
It must be UserForm_Activate regardless of your userform name.

Never change this or any other events name

Dave

if I change it to UserForm_activate then form is not opening

 

[dmt32]

if I change it to UserForm_activate then form is not opening

that shows event is now working & suggests you have a problem with your project

I suspect issue may be that these lines of code are outside a procedure?

Dim elapsedTime As Date
If isPaused Then
elapsedTime = pauseTime - startTime
Else
elapsedTime = Now() - startTime
End If
ThisWorkbook.Sheets("Form").Range("G2").Value = Format(elapsedTime, "hh:mm:ss")

BTW - when I stated, "Never change this or any other events name" omitted that this relates to UserForm events.

Dave