İki userformda aktif çalışan saat

[Korhan Ayhan]

Selamlar,

Arkadaşlar ekte gönderdiğimi dosyada iki userform üzerindeki saati aktif şekilde çalıştırmak mümkünmü ?

Özetle ilk form açıkken butonla ilk formu kapatmadan diğerini açıyorum ikinci formdaki saat çalışıyor fakat ilk formdaki saat duruyor ayı anda ikisinin çalışması mümkünmüdür?

 

[Levent Menteşoğlu]

Userform2 deki kodu aşağıdaki ile değiştirin.

Private Sub UserForm_Activate()
Do
DoEvents
Label1 = Format(Now(), "dd mmmm yyyy") & " " & Format(Now(), "dddd") & " " & Format(Time, "hh:mm:ss")
UserForm1.Label1 = Format(Now(), "dd mmmm yyyy") & " " & Format(Now(), "dddd") & " " & Format(Time, "hh:mm:ss")
Loop
End Sub

 

[Korhan Ayhan]

Selamlar,

Levent bey teşekkür ederim. :hey: