Userform

[Hacı Bayram ÖZKAN]

arkadaşlar bir excel çalışma sayfasındaki userformu istediğimiz yerde sabitleyebilirmiyiz. Yani örnek sağ üst köşe veya sol üst köşe veya sağ alt köşeye gibi

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodlarla formunuzu istediğiniz köşeye konumlandırabilirsiniz.

Sol üst köşe için;

Option Explicit
 
Private Sub UserForm_Initialize()
    With Me
        .StartUpPosition = 0
    End With
End Sub

Sağ üst köşe için;

Option Explicit
 
Private Sub UserForm_Initialize()
    With Me
        .StartUpPosition = 0
        .Left = Application.Width - (.Width + 5)
        .Top = 0
    End With
End Sub

Sol alt köşe için;

Option Explicit
 
Private Sub UserForm_Initialize()
    With Me
        .StartUpPosition = 0
        .Left = 0
        .Top = Application.Height - (.Height + 5)
    End With
End Sub

Sağ alt köşe için;

Option Explicit
 
Private Sub UserForm_Initialize()
    With Me
        .StartUpPosition = 0
        .Left = Application.Width - (.Width + 5)
        .Top = Application.Height - (.Height + 5)
    End With
End Sub

 

[Hacı Bayram ÖZKAN]

Private Sub CommandButton1_Click()
UserForm1.Show 0
End Sub

Korhan bey teşekkürler ama bunu ben CommandButton1_Clik() bütonun koduna nasıl uygularım yani normalde kod yukardaki gibi idi, şimdi bunu bu bütona nasıl yazacağım

 

[NBATMAN]

Private Sub CommandButton1_Click()
UserForm1.Show 0
End Sub

Korhan bey teşekkürler ama bunu ben CommandButton1_Clik() bütonun koduna nasıl uygularım yani normalde kod yukardaki gibi idi, şimdi bunu bu bütona nasıl yazacağım

Korhan Bey in yazdığı kodlar UserForm_Initialize olayında yani siz programı çalıştırır çalıştırmaz çalışır ve ilgili pozisyona taşır formu.Bunu user form içindeki bir buton ile yapmak için ise ilgili kodları butonun click olayına yazmak yeterli örnek dosya ekte....

 

[Hacı Bayram ÖZKAN]

teşekkürler