Userformlar Arası Geçiş

[bozacioglu]

İyi günler. Kolay Gelsin.
3 sayfadan ibaret (İsimleri:Sabit,Nobet,Gecici) bir excel dosyam var.
Workbookopen kısmına
Application.Visible = False
Anasayfa.Show
kodunu yazdım.
Anasayfa User formum açılıyor.
Anasayfa üzerinde cbBelletmen isiminde butonumda :
Unload Anasayfa
Load Belletmen_Isleri
Belletmen_Isleri.Show
kodu yazılı. ve Belletmen_Isleri userformum açılıyor.
Belletmen_ısleri user formunda x düğmesinde UserForm_QueryClose içinde:
Unload Belletmen_Isleri
Load Anasayfa
Anasayfa.Show
kodu yazılı.
1 kez Anasayfa userfomundan Belletmen_ısleri userformuna gidip x düğmesi ile Anasayfa userfomuna geri dönüyorum. Fakat
2. kez Anasayfadan Belletmen_ısleri userformuna gittiğimde x düğmesi ile Anasayfa userfomuna geri dönemiyorum.

 

[bozacioglu]

İyi günler. Kolay Gelsin.
3 sayfadan ibaret (İsimleri:Sabit,Nobet,Gecici) bir excel dosyam var.
Workbookopen kısmına
Application.Visible = False
Anasayfa.Show
kodunu yazdım.
Anasayfa User formum açılıyor.
Anasayfa üzerinde cbBelletmen isiminde butonumda :
Unload Anasayfa
Load Belletmen_Isleri
Belletmen_Isleri.Show
kodu yazılı. ve Belletmen_Isleri userformum açılıyor.
Belletmen_ısleri user formunda x düğmesinde UserForm_QueryClose içinde:
Unload Belletmen_Isleri
Load Anasayfa
Anasayfa.Show
kodu yazılı.
1 kez Anasayfa userfomundan Belletmen_ısleri userformuna gidip x düğmesi ile Anasayfa userfomuna geri dönüyorum. Fakat
2. kez Anasayfadan Belletmen_ısleri userformuna gittiğimde x düğmesi ile Anasayfa userfomuna geri dönemiyorum.

Belletmen_ısleri user formunda x düğmesinde UserForm_QueryClose içindeki kodu buton ekleyip butona içine yazınca sorun çözüldü. Ama x düğmeisnde neden çalışmıyor ki..

 

[Korhan Ayhan]

İnceleyiniz.

userFormlar arası geçiş

Yapmaya çalıştığım şey userformda ana menüdeyken bir buton yardımıyla başka bir userforma geçmek yardımlarınızı bekliyorum değerli hocalarımdan şimdiden teşekkürler

www.excel.web.tr

 

[bozacioglu]

IsGunuTakvimi isimli userformumda bulunan kontroltiplerini kontrol etmek için aşağıdaki kod diziliminde nasıl bir değişiklik yapmalıyım. Yardımcı olursanız sevinirim. Teşekkür ederim.
Dim ctl As Control
For Each ctl In IsGunuTakvimi

With ctl
Select Case .ControlType

Case acTextBox
If .Enabled = True Then .Enabled = False

Case acComboBox
If .Enabled = True Then .Enabled = False

Case acCommandButton
If .Enabled = True Then .Enabled = False

End Select
End With
Next ctl