makro ile klavyeden tuş bastırma !!!!

[halit3]

xp de çalışan kod ile ilgili görsel video ekliyorum
Bu eklediğim video ya textbox1 nesnesi de ekledim yapılan işlemleri oraya yazıyor.

görsel video

Private Sub CommandButton1_Click()

'On Error Resume Next
Dim basla
Dim bekle

'TextBox1.Text = ""
Cells(1, 10).Select
For k = 2 To 17 'Cells(Rows.Count, "b").End(3).Row
sut1 = Cells(k, "a")
sut2 = Cells(k, "b")
sut3 = Cells(k, "c")

basla = Timer
bekle = 0.4
While Timer < basla + bekle
DoEvents
Wend

If sut3 <> "" Then SendKeys ("{" & sut3 & "}"), True: GoTo atla
If sut1 <> "" Then
SendKeys ("" & sut1 & sut2 & ""), True
Else
SendKeys (sut2), True
End If
atla:
'TextBox1.Text = TextBox1.Text & Chr(10) & sut1 & sut2 & sut3
Next
MsgBox "işlem tamam"

End Sub

 

[halit3]

http://www.maheshsubramaniya.com/article/fix-for-code-execution-has-been-interrupted-in-excel-vba-macros.html

http://www.excel-easy.com/vba/examples/interrupt-a-macro.html

Yukarıdaki linkde bir çözüm bulmuşlar belki olur diye yazıyorum.

Birde bu kodu dene koda kırmızı yeri ekledim.

Private Sub CommandButton1_Click()
[COLOR="Red"]Application.EnableCancelKey = xlDisabled[/COLOR]
'On Error Resume Next
Dim basla
Dim bekle

'TextBox1.Text = ""
'Cells(1, 10).Select
For k = 2 To 17 'Cells(Rows.Count, "b").End(3).Row
sut1 = Cells(k, "a")
sut2 = Cells(k, "b")
sut3 = Cells(k, "c")

basla = Timer
bekle = 0.4
While Timer < basla + bekle
DoEvents
Wend

If sut3 <> "" Then SendKeys ("{" & sut3 & "}"), True: GoTo atla
If sut1 <> "" Then
SendKeys ("" & sut1 & sut2 & ""), True
Else
SendKeys (sut2), True
'SendKeys ("BREAK"), True
End If
atla:
'TextBox1.Text = TextBox1.Text & Chr(10) & sut1 & sut2 & sut3
Next
MsgBox "işlem tamam"

End Sub

 

[osm87]

Nette arattığımda da pause break tuşu sıkıntısı oluyormuş bir şey söylemek zor bu tuşun yaptığı işlemin ekran görüntüsünü ekleyebilirmisiniz.

halit hocam yardımlarınız için teşekkür ederim. Kodu yabancı kaynaklardan araştırma yaparak düzenledim tıkır tıkır çalışıyor. Ancak pause/break tuşuna bastırıldığında ilginç olarak numlock tuşunu açıp kapatıyor. O yüzden SendKeys "{BREAK}", True ile işlem yaptırılamıyor. Bende BREAK kısmını dolaylı olarak hallettim sorunum düzeldi. VBA da BREAK sorunu var yabancı kaynaklarda dile getirmiş o yüzden başka bir arkadaş kod bulana kadar yapacak bişey yok.

İyi çalışmalar