Userform üstündeki Calendar nesnesini İlgili Textbox ın Altında Açılmasını Sağlamak

[alitolga2000]

Merhabalar,

Userform2 nin üstündeki ilgili textbox a tıkladığım zaman.
Userform4 (Calendar) userformun ortasına çıkıyor.

Bunu tıkladığım textboxların ın altına açılacak şekilde nasıl yapabilirim.

Yada textbox ın içinden açılabilirmi?

İlgili kodlar:

Userform4>>>>>>>>>>>
Public deg As String
Private Sub Calendar1_Click()
UserForm2.Controls(deg) = Format(Calendar1, "dd.mm.yyyy")
Unload UserForm4
End Sub
Private Sub UserForm4_Initialize()
Me.StartUpPosition = 0
Me.Left = UserForm2.Left + UserForm2.Width
Me.Top = UserForm2.Top
End Sub

Userform2>>>>>>>>>>>>
Private Sub TextBox40_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm4.deg = "TextBox40"
UserForm4.Show
TextBox41.SetFocus
End Sub

Private Sub TextBox41_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm4.deg = "TextBox41"
UserForm4.Show
TextBox41.SetFocus
End Sub

 

[Orion1]

Merhaba.
Aşağıdaki kodları UserForm'un initialize olayına yazarak deneyiniz.
Not : kodları kendi nesnelerinize göre uyarlayınız.

Calendar1.Left = TextBox1.Left
Calendar1.Top = TextBox1.Top + TextBox1.Height

 

[alitolga2000]

SAyın sezar bunu bende denemiştim ama olmamıştı acaba
textbox40 ile 41 .. ikisindede olduğu içinmi?
Birde çıkışta fare cursoru kumsaati oluyor ve tıklayana kadar düzelmiyor bunun sebebi neden olabilir.?

 

[Orion1]

Olması lazım.
Userform İnitialize'de veya Userform Activate de textbox'ın konumları değiştirilmiş olabilir.Oralara bakın .Değiştirilmişse değiştirilen satırın altına yazın kodları.

 

[alitolga2000]

Userform4 de sadece yukarda yazdıklarım var diğer herşey sabit
yanlız userform2 nin var ama oda maximize minimize vs.

Peki bu kum saati neden oluyor.
Yada bunu nasıl çözebilirim F8 ile bakarakmı??

 

[Orion1]

Kum saati konusunda bir bilgim yok.
İyi çalışmalar:

 

[Orion1]

Örnek Dosyayı inceleyiniz.

 

[alitolga2000]

Hocam sağolun evet istediğim buydu sanırım benim calendar başka userformda olduğu için olmuyor bu kodlarla
dediğim gibi userform2 nin textbox ından, calendarın bulunduğu userform4 ü çağırıyorum.
SAğolun
İyi akşamlar.