makrolara kısayol harf atma konusunda 2 soru

[jambow]

1)
Sub a4egit()
Application.OnKey "{F6}", "a4egit"
Range("a4").Select
End Sub

makroyu f6 ile çalıştırabilmek için ilk önce makroyu bir defaya mahsus düğme ile çalıştırmak istiyor ondan sonra f6 tuşu ile çalışmaya başlıyor
2) kısayol olarak (f) tuşları yerine (ctrl+p)veya (alt+k) gibi kombinasyon kısayol atayabilirmiyiz

cevap verecekle şimdiden teşekkür

 

[Levent Menteşoğlu]

1- Makroyu F6 tuşuna atamak için ilgili kodları auto_open prosedürüne yazın. Dosyayı kaydettikten sonra kapatıp tekrar açın.

Sub auto_open()
Application.OnKey "{F6}", "a4egit"
End Sub

Sub a4egit()
Range("a4").Select 
End Sub

2- alt+k için yukarıda verdiğim gibi bir mantık kullanabilirsiniz. Ancak ctrl+p yi direk makro penceresinden tanımlayabilirsiniz. Bunun için aşağıdaki adımları izleyin.

- Araçlar-makro-makrolar penceresinden kısayol atayacağınız makroyu seçin.
- Pencerenin en altında bulunan seçenekleri tıktadığınızda ctrl+ için kısayol seçeneğini göreceksiniz.

 

[jambow]

çok teşekkürler