Çalışan makroyu durdurmak

[Serpily]

Bir commandbuttonla çalıştırdığım makroyu başka bir commandbutonla durdurmak için şu kodu yazdım.

Private Sub srkli_Click()
Do
DoEvents
If Range("teta").Value >= 360 Then Range("teta").Value = Range("teta").Value - 360
Range("teta").Value = Range("teta").Value + 1
Range("a26").Select
ActiveCell.FormulaR1C1 = Range("teta").Value
Loop
End Sub


Private Sub Durdur_Click()
MsgBox ("oley")
End
End Sub

Bu kodlarla makro canı istediği zaman duruyor. Durdur butonuna defalarca basıyorum hangi tık denk gelirse o zaman duruyor. Kodlarda bir değişiklik yapmak lazım galiba. Özellikle

ActiveCell.FormulaR1C1 = Range("teta").Value

satırında sayfa içinde pek çok fonksiyon çalışıyor. Bu işlemleri yaparken butona basılsa bile işlem yapamıyor galiba.

İlgi ve yardımlarınız için şimdiden teşekkür ederim.

 

[hamitcan]

Daha önce bu konu forumda işlendi ama ben bulamadım. Arşivimde bir örnek buldum. İşinize yarayacaktır.

 

[Erhan Üstünel]

Daha önce bu konu forumda işlendi ama ben bulamadım. Arşivimde bir örnek buldum. İşinize yarayacaktır.

hocam güzel bir örnek teşekkürler..