Önizlemeden sonra form açılmıyor.

[İsmail Küçükşengün]

Merhabalar;

Form1. in üzerindeki labele tıkladığımda, form35. userform.1 in üzerine açılmaktadır.

Userform35.ten bir önizleme yaptığımda, önizleme bittikten sonra, Userform1. açılmaktadır.
Fakat tekrar userform.35'i açmak istediğmde açılmamaktadır.
Önizleme kodu:


Private Sub CommandButton63_Click()
On Error Resume Next
Sheets("dilekçe").Select

[e1].Value = ComboBox13.Value
[e2].Value = TextBox8.Value
[e3].Value = TextBox9.Value
[e4].Value = TextBox10.Value
[e5].Value = TextBox11.Value
[e6].Value = TextBox12.Value
[e7].Value = TextBox13.Value
[e17].Value = TextBox14.Value
Sheets("dilekçe").Select
Range("bk96:bp113").Select
ActiveSheet.PageSetup.PrintArea = "$BK$96:$BP$113"
Application.ScreenUpdating = False
Application.Visible = True
Application.ScreenUpdating = True
UserForm35.Hide
UserForm1.Hide

Sheets(Array("dilekçe")).PrintPreview
Application.ScreenUpdating = False
Application.Visible = False
Application.ScreenUpdating = True
Sheets("dilekçe").Select
UserForm1.Show
End Sub

şeklindedir.

Önizlemeden sonra form.1 açılıdığında, ilgili labele tıkladığımda, yeniden 35.no.lu formun açılabilmesi veya önizleme bittikten sonra, tıpkı önizlemeden önce olduğu gibi,form.35.in form.1'in üzerine açılması için yukarıdaki kodda, ne gibi değişiklik gerekir.

Şimdiden teşekkürlerimle..

 

[Mahmut Kök]

userform1.show satırının altına

userform35.show yazmayı dener misiniz?

 

[İsmail Küçükşengün]

sayın mesleki;

Önerinizi daha önce de denedim.Maalesef.

 

[alpi]

userform1.showsatırının üstüne
userform35.show yazın. Eğer yinede görünmezse. userform35'in ShowModal özelliğini False yapın.

 

[İsmail Küçükşengün]

sayın alpi;

Maalesef.

 

[Levent Menteşoğlu]

Kodlarda bir mantık hatası görünmüyor. Fakat userfrom35 in initialize olayında bir hata meydana geliyor olabilir. Koddaki "on error resume next" satırını kaldırarak deneyin. Eğer hata verip userform35i işaret ediyorsa dediğim şekildedir.

 

[Zeki Gürsoy]

Merhaba,
Formlar ilk tasarlanırken,"Modal" özelliği "True" dir. "False" olarak değiştirip
dener misiniz?

 

[İsmail Küçükşengün]

Sayın leventm;

Önerinize teşekkürler. Fakat maalesef sorunuma çözüm bulamadım. Ana menü (Userform1.) tam ekran.
Userform35. ise bunun üzerine (ana menünün üzerine) sol üst tarafta açılıyor.
Aslında önizlemeden sonra tekrar her iki userform da (önizlemeden önceki) duruma gelebilse çok güzel olacak,ama beceremedim.

 

[Mahmut Kök]

Eğer mümkünse dosyanızı gönderebilir misiniz?