Userform Çağırma

[ANTALYA 01]

Merhabalar
Bir userform hazırladım.İlk açılışta Userfrom 1 Otomatik geliyor.
Sub form_ac()
UserForm1.Show
End Sub

Aşağıdaki Kodları kullanıyorum Ben şunu merak ediyorum Userformu ekrana tekrar çağırmak için örnek veriyorum F4 Tuşuna bastığımda ekrana userform getirilebilir mi ?VBA Modulundeki gibi F5 Basınca çalışan userformu Exel çalışma sayfasındada çalışmasını istiyorum eğer mümkünse

Private Sub CommandButton3_Click()
Application.Visible = True
Sheets("Satış Rapor").Activate
UserForm1.Show 0
End Sub
Private Sub CommandButton4_Click()
Application.Visible = True
Sheets("Yeni Müşteri").Activate
UserForm1.Show 0
End Sub
Private Sub CommandButton5_Click()
Application.Visible = True
Sheets("ARTISAZALIS").Activate
UserForm1.Show 0
End Sub
Private Sub CommandButton6_Click()
Application.Visible = True
Sheets("Aylık Satış").Activate
UserForm1.Show 0
End Sub
Private Sub CommandButton1_Click()
UserForm2.Show 0
Unload Me
End Sub

Private Sub CommandButton8_Click()
Sayfa52.Activate
UserForm1.Show 0
End Sub

Private Sub CommandButton9_Click()
Sayfa53.Activate
UserForm1.Show 0
End Sub

Private Sub CommandButton10_Click()
UserForm1.Hide
End Sub

Private Sub CommandButton7_Click()
Unload Me
Application.Visible = True
End Sub

Private Sub UserForm_Initialize()
Application.Visible = False
End Sub

 

[N.Ziya Hiçdurmaz]

Yanıt

F4 İle user form çağırılır.

Sub auto_open()
Application.OnKey "{F4}", "TEST"
End Sub
Sub TEST()
UserForm1.Show
End Sub

 

[ANTALYA 01]

G

Merhaba
cevabınız için tşk ederim.Çalışmama uyarladığımda şu hatayı veriyor

Ambiguous name delected auto-open

3 Tane Module kullanıyorum aşağıdadır düzgün çalışması için vermiş olduğunuz kodu nereye yazmalıyım

1.modul

Sub auto_open()
Set AnaMenü = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
With AnaMenü
.Caption = "&Menü"
.Tag = "MyTag"
.BeginGroup = False
End With
If AnaMenü Is Nothing Then Exit Sub
'....................................................................................................
'ALT MENÜ 0
Set AnaAltMenü = AnaMenü.Controls.Add(msoControlButton, 1, , , True)
With AnaAltMenü
.Caption = "AltMenü"
.OnAction = "acilis"
End With
Sayfa1.Activate
UserForm1.Show 0
End Sub
Sub acilis()
UserForm1.Show 0
End Sub
2.modul
Sub form_ac()
UserForm1.Show
End Sub
3.Modul
Sub auto_open()
Application.OnKey "{F4}", "TEST"
End Sub
Sub TEST()
UserForm1.Show
End Sub

 

[exam77]

Sub auto_open()
Application.OnKey "{F4}", "TEST"
End Sub

diye tanımlamışsınız ancak auto_open tanımlaması çift olduğu için hata veriyor.
şu şekilde yazarsanız hata vermeyecektir.

Sub auto_open_iki()
Application.OnKey "{F4}", "TEST"
End Sub

 

[raditelny]

konuyu uyandırdığım için kusura bakmayın

ekle menüsünden eklenen simgeler ile userform çağırmamız mümkün müdür?