yeni makro kaydetme sorunu

[desinger07]

Merhaba
ben yeni bir makro oluştururken mevcut klavye kısayol tuşuları bana herzaman engel oluyor herzaman CTRL+SHIFT+ (harf) kullanmak zorunda kalıyorum.
Bunu engelleyip sadece CTRL + ( harf ) olarak nasıl yapabilirim

Yardımcı olursanız sevinirim
Teşekkürler

 

[Korhan Ayhan]

Merhaba,

Normal yöntemle kullanamazsınız. Makro tuş kombinasyonlarında SHIFT tuşuda devreye girer.

Fakat dosyanızın açılış koduna istediğiniz CTRL+HARF tanımlamasını yapıp makronuzu tetikleyebilirsiniz.

Örnek;

Mesela CTRL+A harfine basara "TEST" isimli makromuzu çalıştıralım.

Boş bir modüle aşağıdaki kodları uygulayın. Dosyayı kayıt edin ve kapatıp açın.

Option Explicit
 
Sub AUTO_OPEN()
    Application.OnKey "^a", "TEST"
End Sub
 
Sub TEST()
    MsgBox "Makronuz çalıştı tebrikler...", vbCritical, "[URL="http://www.excel.web.tr"]www.excel.web.tr[/URL]"
End Sub
 
Sub AUTO_CLOSE()
    Application.OnKey "^a"
End Sub

Uygulanmış örnek dosya ektedir.

 

[desinger07]

teşekkürler çok işime yaradı çünkü tüm kodlarda herzaman SHİFT tuşu ile birlikte kullanmak zorunda kalıyordum