Userform açıldığı andan itibaren otomatik sıfırdan sayan kronemetre...!

[TiOr]

Merhaba,
Userform açıldığın andan itibaren otomatik sıfırdan sayan kronometre için kod talebim bulunmaktadır.
Bu şekilde bir kronometre sayesinde userformda kalınma süresini veya şöyle izah edeyim çalışma süresini görmeyi hedefliyorum.
Şimdiden destekleriniz için teşekkür eder, hayırlı akşamlar dilerim.
Syg..

 

[Korhan Ayhan]

Arama sonuçları;

Sorgu için arama sonuçları: Kronometre

www.excel.web.tr

 

[TiOr]

@Korhan Ayhan Üstadım Merhaba,
Formu baştan aşağı inceledim fakat maalesef olumlu bir sonuca ulaşamadım.
Konu başlığı açmadan önce formu ve google da derinlemesine bir araştırma yaptıktan sonra çözüm bulamadığımda buradan destek talep ediyorum. Formda en yakın konu https://www.excel.web.tr/threads/userform-kronometre.141553/ linkte bulunan konu fakat konu içeriğinde paylaşılan kod çalışmıyor.

Talebim şu yöndedir; Userform açıldığında bir labelde veya texboxta dijital saat gibi 0 dan saymaya başlasın 00:00:00 ve kendisi saymaya başlasın yani bir butona başla komutu vermeden ve formdan çıkıldığında sıfırlasın otomatik...

Böyle bir şey mümkün ise desteklerinizi talep ederim.

Syg..

 

[Korhan Ayhan]

Kendi dosyanıza uyarlarsınız.

 

[TiOr]

@Korhan Ayhan hocam Merhaba,
Öncelikle paylaşımın için çok teşekkür ederim. Bahsettiğim gibi yapmışsınız eline emeğine sağlık.

Senden bir konuda daha desteğine ihtiyacım olacak yardımcı olursan çok sevinirim;

Aşağıdaki gibi bir kod sıralaması mevcut her üç işleminde başlangıcı "Private Sub UserForm_Activate()" ile başlıyor ve dolayısı ile hata alıyorum.
Bu kodların her birinden faydalana bilmem için nasıl yazmam uygun olacaktır. Yardımcı olabilir misiniz?

Yardımcı olur isen çok sevinirim.

Syg..

Private Sub UserForm_Activate() 'MAXMİX BAŞLANGIÇ (Modele2 de ayrı bir kodlama var)

Module2.maxMinButton (UserForm1.Caption)

End Sub
-------------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub UserForm_Activate() 'SAAT BAŞLANGIÇ
Do
DoEvents
Label13 = Format(Time, "hh:mm:ss")
Loop
End Sub
--------------------------------------------------------------------------------------------------------------------------------------------------------------
Option Explicit 'KRONOMETRE BAŞLANGIÇ

#If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If
-------------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub UserForm_Activate()
Dim Say As Double

Label16.Caption = "00:00:00"

Do
DoEvents
Label16.Caption = Format(Say, "00:00:00")
Say = Say + 1
Sleep 1000
Loop
End Sub
----------------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
End Sub

 

[Korhan Ayhan]

Foruma kod eklerken/paylaşırken CODE tagını kullanmanız daha sağlıklı olacaktır. Bu işlemi mesaj yazdığınız pencerede bulunan ... şeklindeki menü yardımıyla yapabilirsiniz.

Deneme şansım yok ama aşağıdaki gibi sanırım sorun çıkmadan birleştirebilrisiniz.

Option Explicit

#If VBA7 Then
    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

Private Sub UserForm_Activate()
    Dim Say As Double
    
    Module2.maxMinButton (UserForm1.Caption)
    
    Label16.Caption = "00:00:00"
    
    Do
        DoEvents
        Label13.Caption = Format(Time, "hh:mm:ss")
        Label16.Caption = Format(Say, "00:00:00")
        Say = Say + 1
        Sleep 1000
    Loop
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    End
End Sub

 

[TiOr]

@Korhan Ayhan Hocam Merhaba,
Eline, emeğine sağlık. Sayaç formda kastı o yüzden sayacı eklemedim. Desteklerin için çok teşekkür ederim.
Sizlerin sayesinde güzel bir çalışma ekranı yapmış oldum. Allah razı olsun.
Ekranı da aşağıda paylaşıyorum;

Tekrardan teşekkür eder, saygılarımı sunarım...