Userform üzerinde takvim denetimi

[kelkitli]

Değerli Dostlar Selamlar,
Ekli dosyada UserForm2 üzerinde TextBox3 e Takvim ekledim ancak çalıştıramadım.

 

[abdi]

Sayın kelkitli

userform2 deki kodu aşağıdaki şekilde değiştirirseniz sorun çözülüyor.
kolay gelsin

Private Sub Calendar1_Click()
TextBox3.Value = Format(Calendar1, "dd mmmm yyyy")
Calendar1.Visible = False
TextBox3.SetFocus
End Sub

 

[ECYavuz]

İyi geceler...

Ekli örneği inceleyin.. Olmuşmu?

 

[kelkitli]

Teşekkür ederim Sayın abdi yaklaşık 1 saattir uğraşıyordum. Soruyu gönderdim akabinde çözdüm.

[Dim ad As String
Private Sub Calendar1_Click()
Controls(ad) = Format(Calendar1, "dd mmmm yyyy")
Calendar1.Visible = False
Controls(ad).SetFocus
End Sub

Private Sub TextBox3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ad = "TextBox3"
Calendar1.Visible = True
Calendar1.Top = TextBox3.Top
End Sub

Private Sub UserForm_Initialize()
Calendar1.Value = Date
Calendar1.Visible = False
End Sub

Sanıyorum Levent Hocamdan aldığım bir dosyada mevcuttu.

 

[kelkitli]

Sayın ECYavuz ekli dosyayı göremedim ama ben teşekkür ederim. Kod bankasına da baksam daha iyi olacaktı tabi.

 

[ECYavuz]

İlginç..

Ekli örneği inceleyin.. Olmuşmu?

Sayın Kelkitli 51 KB lık .rar lı dosya görünmüyor mu?
Sizin eklediğiniz dosyada düzenlemeleri yaparak kendi mesajıma ekledim ve ben denemek için şimdi bir kere daha indirdim. Çalışıyor...

 

[kelkitli]

Sayın ECYavuz sağol. Biraz önce ekli değil gibi geldi sanki. Teşekkür ederim.