VBA lı Bir Excel Sayfası Açık İken Başka Bir Excel Dosyası Açınca Hata Çıkması

[Furkan TARAKÇI]

Merhabalar,
İçerisinde makro bulunan bir dosya açık iken herhangi bir excel dosyası açtığımda aşağıdaki hata mesajını almaktayım.

 

[Muzaffer Ali]

Merhaba.
Makro bulunan dosyanızda aşağıdaki gibi bir kod satır var mı?

Application.OnKey "^q", "MakroAdi"

Varsa sadece kodların bulunduğu dosyada çalışacak şekilde ayarlanmalı.
Eğer çözemezseniz makrolu dosyayı paylaşın kontrol edelim.

 

[muhasebeciyiz]

Muzaffer Ali hocamıza destek olarak ;

Bu hata mesajı şunu söylüyor: Makro dosyanız, Excel’in Application.OnKey özelliğiyle bir kısayol tuşunu bir makroya bağlamaya çalışıyor ama Excel bunu o anda yapamıyor (ya makroyu bulamıyor, ya da bağlama “geçersiz” bir durumdayken yapılıyor). Bu yüzden makro dosyanız açıkken başka bir Excel dosyası açtığınız anda tetiklenip hata veriyor.

Başka dosya açınca Excel “aktif workbook” değiştiriyor. Siz OnKey’i sadece "BenimMakrom" diye bağladıysanız, Excel bazen makroyu yanlış yerde arayıp hata veriyor.Bunu kullanın:

Application.OnKey "^+K", "'" & ThisWorkbook.Name & "'!BenimMakrom"

ThisWorkbook içine koymanız önerilir:

Private Sub Workbook_Open()
On Error Resume Next
Application.OnKey "^+K", "'" & ThisWorkbook.Name & "'!BenimMakrom"
On Error GoTo 0
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnKey "^+K" ' reset (bağlantıyı kaldırır)
On Error GoTo 0
End Sub

Eğer sizde Workbook_Open yerine “her workbook açıldığında” çalışan bir Application event’i varsa (aşağıdaki madde), hata çok daha sık görülür.

 

[Furkan TARAKÇI]

Merhaba.
Makro bulunan dosyanızda aşağıdaki gibi bir kod satır var mı?

Application.OnKey "^q", "MakroAdi"

Varsa sadece kodların bulunduğu dosyada çalışacak şekilde ayarlanmalı.
Eğer çözemezseniz makrolu dosyayı paylaşın kontrol edelim.

Burda varmış hocam sanki Private Sub workbook_open() bu kod gereksiz olmuş. Bundan dolayı yapıyor olabilir mi?

 

[Furkan TARAKÇI]

Muzaffer Ali hocamıza destek olarak ;

Bu hata mesajı şunu söylüyor: Makro dosyanız, Excel’in Application.OnKey özelliğiyle bir kısayol tuşunu bir makroya bağlamaya çalışıyor ama Excel bunu o anda yapamıyor (ya makroyu bulamıyor, ya da bağlama “geçersiz” bir durumdayken yapılıyor). Bu yüzden makro dosyanız açıkken başka bir Excel dosyası açtığınız anda tetiklenip hata veriyor.

Başka dosya açınca Excel “aktif workbook” değiştiriyor. Siz OnKey’i sadece "BenimMakrom" diye bağladıysanız, Excel bazen makroyu yanlış yerde arayıp hata veriyor.Bunu kullanın:

Application.OnKey "^+K", "'" & ThisWorkbook.Name & "'!BenimMakrom"

ThisWorkbook içine koymanız önerilir:

Private Sub Workbook_Open()
On Error Resume Next
Application.OnKey "^+K", "'" & ThisWorkbook.Name & "'!BenimMakrom"
On Error GoTo 0
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnKey "^+K" ' reset (bağlantıyı kaldırır)
On Error GoTo 0
End Sub

Eğer sizde Workbook_Open yerine “her workbook açıldığında” çalışan bir Application event’i varsa (aşağıdaki madde), hata çok daha sık görülür.

Hocam bunda da eğer dosya adı değişirse hata vermez mi?

 

[Furkan TARAKÇI]

'Private Sub Workbook_Deactivate()
'Application.OnKey "^{TAB}"
'End Sub

'Private Sub workbook_open()
'Application.OnKey "^{TAB}", "Satir_Ekle"
'End Sub

Bu ikisini pasif yapınca düzeldi. Olmaması bir problem olur mu?

Normalde kod satırı

Option Explicit

Private Sub Workbook_Activate()
Application.OnKey "^{TAB}", "Satir_Ekle"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "^{TAB}"
End Sub

'Private Sub Workbook_Deactivate()
'Application.OnKey "^{TAB}"
'End Sub

'Private Sub workbook_open()
'Application.OnKey "^{TAB}", "Satir_Ekle"
'End Sub