Makro ile tuşa yazı atamak

[Sinan2618]

Merhaba ben makro ile Ctrl + Shift + F1 tuşuna basıldığı zaman mail adresini yazmak istiyorum. Örneğin tuşa bastığım zaman deneme@deneme.com çıkmasını nasıl sağlarım?

 

[lark]

Sub auto_open()

Application.OnKey "^+{F1}", "deneme"

End Sub

Sub auto_close()

Application.OnKey "^+{F1}"

End Sub

Sub deneme()

ActiveCell.Formula = "deneme@deneme.com"

Application.SendKeys "{F2}", True

Application.SendKeys "{Enter}", True

End Sub

 

[Korhan Ayhan]

Merhaba,

Ben 2016 versiyonda CTRL+SHIFT+F1 kombinayonuna tanımlama yapamadım. Farklı bir işlem devreye giriyor.

Alternatif olarak SHIFT+F1 tanımlaması yaptım. Aşağıdaki kodlar deneyiniz.

ThisWorkBook (BuÇalışmaKitabı) bölümüne;

Private Sub Workbook_Activate()
    Application.OnKey "+{F1}", "Mail_Yaz"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "+{F1}"
End Sub

Private Sub Workbook_Deactivate()
    Application.OnKey "+{F1}"
End Sub

Private Sub Workbook_Open()
    Application.OnKey "+{F1}", "Mail_Yaz"
End Sub

Boş bir modüle;

Sub Mail_Yaz()
    Selection = "deneme@deneme.com"
End Sub

 

[Sinan2618]

Merhaba,

Ben 2016 versiyonda CTRL+SHIFT+F1 kombinayonuna tanımlama yapamadım. Farklı bir işlem devreye giriyor.

Alternatif olarak SHIFT+F1 tanımlaması yaptım. Aşağıdaki kodlar deneyiniz.

ThisWorkBook (BuÇalışmaKitabı) bölümüne;

Private Sub Workbook_Activate()
    Application.OnKey "+{F1}", "Mail_Yaz"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "+{F1}"
End Sub

Private Sub Workbook_Deactivate()
    Application.OnKey "+{F1}"
End Sub

Private Sub Workbook_Open()
    Application.OnKey "+{F1}", "Mail_Yaz"
End Sub

Boş bir modüle;

Sub Mail_Yaz()
    Selection = "deneme@deneme.com"
End Sub

Korhan bey bende hata alıyodum ben beceremedim herhalde diye düşünüyodum sizin kodlarınız ile sorun çözüldü çok teşekkürler.