userformların sayfada açılış yerlerini belirleyebilmek

[mustafa7691]

sayın dostlar yine sizlerden edindiğim ve derleyip kullandığım bir çalışmamda bir userform açıyorum ve bu userform üzerinden iki userform daha açıyorum.(diğerlerini kapatmadan).

Private Sub UserForm_Initialize()
ActiveSheet.Unprotect Password:="0"
On Error Resume Next

With Me
.StartUpPosition = 0
.Left = Application.Width - .Width
.Top = 60
End With
ActiveSheet.Protect Password:="0"

End Sub

bu kodla 1.userformu tam sağ üst köşede açıyor.diğer userformu sayfanın ortasına açıyor.bu kodu onada kullanırsam 1.userformun üzerine açıyor.ben ikinciyi daha aşağıya açmak istiyorum.birkaçyol denedim ama olmadı yardımcı olurmusunuz tabi böyle bir imkanımız varsa.saygılarımla

 

[Recep İpek]

Tüm userformların StartUpPosition değerlerini 3 yaparak Top değerlerini arttırınız.

Örneğin 2.si için Top=250 yaparak deneyiniz.

 

[mustafa7691]

Sn Ripek teşekkür ederim denedim ve sonuç istediğim gibi.saygılarımla