Çalışan makroyu durdur

[DeliBalta58]

Arkadaşlar çalışan makroyu gerekli kodlar nelerdir.

 

[Haluk]

Kullanacağınız konut : End

 

[DeliBalta58]

 Do
     DoEvents
     Label_saat = Format(Now, "hh:mm:ss") & "   " & Date
 Loop

bu kodu sonlardırmak için

 

[Haluk]

Dim CM As Boolean
'
Private Sub CommandButton1_Click()
    CM = True
    Call RunClock
End Sub
'
Private Sub CommandButton2_Click()
    CM = False
    Call RunClock
End Sub
'
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    CM = False
End Sub
'
Private Sub RunClock()
    Do
        If CM = False Then Exit Do
        Label_saat = Format(Now, "hh:mm:ss")
        DoEvents
    Loop
End Sub

 

[DeliBalta58]

teşekkürler