- Katılım
- 14 Şubat 2006
- Mesajlar
- 710
- Excel Vers. ve Dili
- 2002-TÜRKÇE
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
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