doevents'ten çıkış ?

[musculus]

Kullanmış olduğum userformda aşağıdaki kodlarla saati yazdırıyorum.
Fakat userformu kapatıp excele döndüğümde hücrede işlem yapabilmek için VBA sayfasında reset butonuna basmam gerekiyor.



Do
DoEvents
Label48 = Format(Now, "hh:mm:ss")
Loop

Aşağıdaki kodlarda sorunu çözmedi

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Visible = True
Unload Me
End Sub

Excele dönüp hücreye herhangi bir veri girebilmek için yukarıdaki kodlara ne eklemem gerekir acaba ?

 

[Zeki Gürsoy]

"End" kullanın. Tüm döngüleri bitirir.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Visible = True
[B]End[/B]
End Sub

 

[musculus]

Teşekkür ederim sorunum çözüldü bilginize sağlık