UserForm'u kapatma kodu ne olmalı

[mozdem]

Hocam;
User forma bir label ekleyip takvim göstersin istedim. Aşağıdaki kodu yazdım

'------------------
Do
Label1 = Format(Now, " dd mmmm yyyy dddd hh:mm:ss")
DoEvents
Loop
'----------------------------

Formu açmadan önce Excel hücresine değer girebilirken, formu açıp kapattığımda hücreye değer giremiyorum. Forma hangi kodu eklemeliyim ki formu kapattığımda hücreye değer girebileyim. Yardımınız için şimdiden teşekkürler.

 

[Orion1]

Dosyanız ektedir.

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

 

[mozdem]

Dosyanız ektedir.

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

Çok Teşekkürlr hocam
ellerine sağlık

 

[ReBiwAr]

unload me işinizi görür mü? Alternatif açısından yoksa Evren hocam daha iyi bilir

 

[Orion1]

unload me işinizi görür mü? Alternatif açısından yoksa Evren hocam daha iyi bilir

Deneyin bakalım.
Bence olmaz.