buton'a kısayol ekleme

[İhsan Tank]

selam arkadaşlar buton'a mouse ile değil de bir kısayol nasıl ekleyebilirim

 

[acolkesen1]

Merhaba,
Buton herhalde bir makroya bağlıdır diye düşünerek,butonun çalıştırdığı makroya bir kısa yol ekleyebilirsiniz. Alt+F8 ile açılan pencerden butonun bağlı olduğu makroyu seçin ve alttaki seçenekler den Ctrl ile birlikte kullnacağınız bir harf seçerseniz kısa yol olarak kullanabilirsiniz..Eğer düşündüğünüz buysa.

 

[İhsan Tank]

alttaki seçenek derken neyi kastettiniz ( bir userform açmaktadır )

 

[mustafaine1]

macro seceneklarinde gorursunuz kisayol atama vardir.. macrolari girip macronuzu secin secenekler diyin goruceksiniz..

 

[İhsan Tank]

alt+f8 de görünmüyor herhangi bir makro alt+f11 fonksiyonunda görünüyor

 

[acolkesen1]

Merhab cılgın86'lı,
Ben modüle yazılmış makrolardan sözetmiştim..(Alt+F8 ile ulaştığımız makrolardan). Userformdaki kodlara nasıl kısa yol atanır ben de bilmiyorum. Bir bilen varsa açıklar umarım.

 

[Ömer]

Merhaba,

Aşağıdaki gibi olabilir.

Sub Auto_Open()
    Application.OnKey "{F12}", "Form1"
End Sub

Sub Form1()
    UserForm1.Show
End Sub
 
Sub Auto_Close()
    Application.OnKey "{F12}", ""
End Sub

 

[İhsan Tank]

hocam olmadı eki göndriyorum yardımcı olursanız

 

[Ömer]

Kodları module kopyaladınız mı? Ayrıca eklediğiniz dosyada ne yapılması gerekiyor. Eğer UserForm1 e kısayol tuşu atayacaksanız yukarıdaki kodlar bunu yapıyor. Kodları module kopyalayın dosyayı kapatın açın ve F12 tuşuna basın.

.

 

[İhsan Tank]

hocam yardımların için teşekkür ederim yalnız dediğiizi yapıyorum f12 fonksiyonunda farklı kaydet açıyor . f9 oalrak değiştirdim yine tıkla görevi görmüyor bir dener misiniz

 

[Ömer]

Eksik yaptığınız yer olmalı. Bir örnek ekliyorum.

.

 

[İhsan Tank]

hocam teşekkür ederim çok sağol olun ben module değil normale işlem yapıyor muşum hocam bu çalışma başka arkadaşlara yararlı olur mu _? hocam bir ikinci bir user form var başka sayfada oraya nasıl yapabilirim
yani burada bütün ayarları yapıldıktan sonra başka kullanıcılara sunulsa iyi olur mu bir fikir verirseiz sevinirim
yardımların ve görüşlerin için teşekkür ederim

 

[Ömer]

Tabiki faydalı olur. Dosyayı tamamladıktan sonra paylaşırsanız sevirinim.

Aynı mantıkla yapabilirsiniz.

Sub Auto_Open()
    Application.OnKey "{F12}", "Form1"
    Application.OnKey "{F11}", "Form2"
End Sub
 
Sub Form1()
    UserForm1.Show
End Sub
 
Sub Form2()
    UserForm2.Show
End Sub

.

 

[İhsan Tank]

hocam buraya ekliyorum ( hocam alttaki bilgiler kullanıcılar )
eksik yerleri söylerseniz birlikte geliştirelim
2 adet sayfa mevcuttur 1- giriş 2 - rehber
f12 tuşuna bastığımızda rehbere giriş yapıyoruz
f11 tuşuna bastığımızda rehberde arama yapıyoruz
ayrıca bir de buton var onunlada hangi harfi girersek girelim tıkladığımızda otomatik diziyor
arkadaşlar görüşlerinizi bekliyorum