Sendkey İle İşlem Yapan Makroyu Durdurma

[askm]

Kolay gelsin. Makro ile sendkey ile başka programda işlem yaptırıyorum. Bir tuş kombinasyonu ile makroyu durdurma imkanı var mı? makro çalışırken diğer programın ekranı aktif. DoEvents ekledim ama olmadı.

 

[Muzaffer Ali]

Merhaba.

SendKey ile ne yapıyorsunuz? Kod mu çalıştırıyorsunuz?
Eğer öyleyse Başka dediğiniz programda bir modüle boolean değişken tanımlayın ve genel bir prosedüre yazın.

Örnek:

Dim KodlariDurdur As Boolean

Public Sub Durdur()
    KodlariDurdur = True
End Sub

Çalışan kodlar arasına if KodlariDurdur then exit sub satırını ekleyin.

SendKeyi çalıştırdığınız yerden durdur butonuna
şu kodları yazın.

Sub test()
    Run "test.xlsm!Durdur"
End Sub

test.xlsm yerine başka dediğiniz dosyanın adını yazın.

 

[askm]

Sayın Dalgalikur cevabınız için teşekkürler. Kodlar java ile yazılı bir programa işlem yaptırıyor. Bu şekilde denedim ama olmadı maalesef.
Workbook kısmına

Private Sub Workbook_Open()
    With Application
    .OnKey Key:="^+K", Procedure:="durdurma_kodu"
    End With
End Sub

Modüle

Dim dur As Boolean
Sub durdurma_kodu()
dur = True
End Sub

ekledim. Kod içerisine de
DoEvents
If dur = True Then Exit Sub
yazdım ama olmadı. CTRL+SHIFT+K harfine basınca işlem yapmadı.

 

[Muzaffer Ali]

Sub durdurma_kodu()
Public Sub durdurma_kodu()
olmalı ve

.OnKey Key:="^+K", Procedure:="durdurma_kodu"
.OnKey Key:="^+K", Procedure:="dosyaadı.xlsm!durdurma_kodu"
olmalı

dosyaadı.xlsm yerine durdurma_kodu nun bulunduğu dosyanın adını yazın.

 

[askm]

Sayın Dalgalikur kodlar aktif çalışma kitabı seçili iken çalışıyor. Ama diğer program aktif iken çalışmıyor. Yani alt + tab ile çalışma kitabına geçersem kod çalışıyor. ("dosyaadı.xlsm!durdurma_kodu" kısmını Thisworkbook.name& "!durdurma_kodu" olarak denedim.)