İslem anında cancel!

[mavisachal]

Arkadaşlar çok basittir belki de ama merak ediyorum bir macro var çalıştırdık diyelim uzun süren bir macro ve işim çıktı iptal etmek istiyorum userform üzerinde cancel butonu için ne tür bir code yazmalıyım bir türlü yapamadım.

Teşekkürler.

 

[cenk77ist]

Ctrl + Pause Break Yada Shift + Escape Code U İŞlerken Kiriyor.. Ama DÜĞmenİn İÇİne Ne Yazarsin Bİlmİyorum Belkİ A Sheetİnİn B1 DeĞerİnİ 1 Yaptiran Bİr Kod Yaz... ÇaliŞan Makrodada A!b1 İ Kontrol Ettİr SÜreklİ 1 İse Dursun Vsvs

 

[Zeki Gürsoy]

Mantıksal değişken kullanın.
Değer False için "End", "Exit Sub", "GoTo" ya da "Stop" kullanarak
makro çalışmasını durdurabilirsiniz.

 

[mavisachal]

Açıkçası tam olarak anlamadım bir örnek yazmanız mümkün mü acaba?

 

[cenk77ist]

çalışan macro na

doevents

kodunu döngü içine bir yere koy



Sub exit_button_Click()

End

End Sub


ok??

 

[Zeki Gürsoy]

Saat örneği yapalım. Boş bir module aşağıdaki kodları yapıştırıp,
"basla" ve "dur" kullanarak sonucu izleyin.

Public bak As Boolean

Sub basla()
    bak = True
    saat
End Sub

Sub dur()
    bak = False
End Sub

Sub saat()
    Do
    DoEvents
        [a1] = Time
        If bak = False Then Exit Do
    Loop
End Sub

 

[Levent Menteşoğlu]

Userform üzerindeki cancel butonunun adının commanbutton1 olduğunu kabul edersek öncelikle bu butonun properties penceresindeki cancel özelliğini true yapın. Sonrasında da aşağıdaki kodu bu butona kopyalayın. ESC butonuna bastığınızda kod çalışacaktır.

Private Sub CommandButton1_Click()
End
End Sub