UserForm un açılışta ekranı kaplaması

[kamilsrky]

Arkadaşlar hazırladığım çalışmamdaki UserFormun açılırken ekranı kaplamasını istiyorum.Modül kısmına yazacağım kod hakkında yardımlarunızı bekliyorum.Teşekkürler :hey:

 

[danersin]

[vb:1:105efe50f3]Private Sub UserForm_Initialize()
With Application
.WindowState = xlMaximized
Zoom = Int(.Width / Me.Width * 100)
Width = .Width
Height = .Height
End With[/vb:1:105efe50f3]


İki linkide inceleyebilirsiniz

http://www.excel.web.tr/viewtopic.php?t=2548
http://www.excel.web.tr/viewtopic.php?t=1020

 

[kamilsrky]

Arkadaşım verdiğin kodları

Sub Autpen()
UserForm1.Show
End Sub

kodları ile beraber kullnmak istiyorum.Yani açılışta otomatik açılacak ve ekranı kaplayacak yardılarını bekliyorum Teşekkürler :hey:

 

[danersin]

autoopen da "userform1.show" çalıştığında oda show olayını gerçekleştirmek için initilialize'yi çalıştıracaktır.

Yani dediğiniz giibi olur denerseniz.

 

[kamilsrky]

Yazdığım kodlar aşağıda ama sanırım bir yerlerde yanlışlık var UserForm tam ekran olarakl açılmıyor.Lütfen yardımcı olurmusunuz

Sub Autpen()
UserForm1.Show
End Sub
Private Sub UserForm1_Initialize()
With Application
.WindowState = xlMaximized
Zoom = Int(.Width / Me.Width * 100)
Width = .Width
Height = .Height
End With

 

[danersin]

Initilize kodu Userformun altına(modülüne) yazılacak..

 

[kamilsrky]

teşekkürler sorun halloldu :hey: